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EINLEITUNG 


■i Das Salz in der Suppe 

Tips&Tricks - für viele ein 
Begriff mit fast magischer 
Anziehungskraft! Ihr Kennzei¬ 
chen: kurz und interessant. 

Der Commodore 64 ist nicht 
ohne Grund der meistverkaufte 
Computer. War es am Anfang 
das sagenhafte Preis-/ 
Leistungs-Verhältnis, kam mit 
der Zeit eine immer noch stei¬ 
gende Anzahl von Programmen 
und Geräten hinzu (und last not 
least viele Bücher und Zeit¬ 
schriften wie das 64’er-Maga- 
zin). Andererseits verführt die 
Mischung aus umfangreicher Grundausstattung 
(Speicherplatz, Grafik und Sound) und spartani¬ 
schem Betriebssystem (Basic) bei großer Zu¬ 
gänglichkeit (User-Port, Expansion-Port, Grafik- 
und Soundchips etc.) zu umfangreichen und bei 
manchen zu enthusiastischen Aktivitäten. End¬ 
lich gab es ein Gerät, mit dem man nicht nur 
spielen und »ernsthaft« arbeiten konnte (Textver¬ 
arbeitung, Dateiverwaltung etc.), sondern bei 
dem die Kreativität gefördert wurde, und zwar 
sowohl für Anfänger als auch für Profis. Was 
man brauchte und (ohne viel Geld) nicht bekom¬ 
men konnte, wurde eben selbst gemacht. Bei 
dieser Beschäftigung mußte und muß man sich 
mit einer Vielzahl von Problemen befassen, 
die man, wenn man sie gelöst hat, anderen 
C64-Besitzern natürlich nicht vorenthalten 
möchte. Die Anzahl und die Art der immer wie¬ 
der neuen Programme und Programmhilfen, der 
Tools und Utilities führen immer wieder zu Über¬ 
raschungen und verführen zu neuen Ideen. 
In diesem 64’erTips&Tricks-Sonderheft findet 
deshalb jeder etwas interessantes. Lassen Sie 

sich ebenfalls verführen! 

Am laufenden Band 

Es ist kaum möglich, alle Tips&Tricks, die bis¬ 
her veröffentlicht wurden, auswendig zu kennen. 

Oft weiß man auch gar nicht, daß es zu einem 
bestimmten Problem eine ganz einfache Lösung 
gibt. Manchmal kommt einem der Verdacht oder 
die vage Erinnerung, daß man schon irgendwo 
etwas darüber gelesen hat, nur - wo? Schließlich 
gibt es nicht nur das erste 64’er Tips&Tricks- 
Sonderheft (erschienen 1984), sondern auch 
eine stetig steigende Zahl 64’er-Ausgaben, 
in denen auch jeden Monat neue Tips&Tricks 

erscheinen. 


Bewährtes... 

Es ist also gar nicht so abwe¬ 
gig, ein Sonderheft zu machen, 
in dem neben vielen neuen 
Beiträgen auch die besten bis¬ 
her veröffentlichten Tips&Tricks 
zusammengefaßt werden 
(»Die besten Tips&Tricks aus 
1984/85« und »Einzeiler«). 
Dabei haben wir uns nicht nur 
auf die kurzen Leckerbissen 
beschränkt, sondern auch 
Grundlagenwissen nicht ver¬ 
gessen. Wer die ersten 64’er- 
Ausgaben von 1984 nicht 
besitzt, wird zum Beispiel kaum 
etwas ahnen von den sagenhaften Eigenschaf¬ 
ten der »synthetischen Steuerzeichen«. Auch 
das Wissen um die Tastencodes, die Tastaturab¬ 
frage und die sich daraus ergebenden Möglich¬ 
keiten für Programmierer fand 1984 großen 
Anklang. 


... und Neues ■hh^hbbhbi 

Natürlich gehört in ein Tips&Tricks-Sonderheft 
auch »fertige Kost«, vor allem aus dem Bereich 
Tools und Utilities. Gemeint sind Programme, die 
die Arbeit mit dem Computer erleichtern. Sie 
finden deshalb ausgezeichnete Programme aus 
den Themenbereichen Musik, Grafik, Floppy 
und Programmierung. Für jeden ist etwas dabei. 
Wenn Ihnen dieses Heft gefallen hat, freuen 
wir uns natürlich über Ihre Zuschriften. Aber 
auch, wenn Sie Verbesserungsvorschläge haben 
oder wenn Sie etwas vermissen - halten Sie sich 
mit Ihrer Meinung nicht hinter dem Berg! Denn 
sie ist für uns das Salz in der Suppe. 

(Georg Klinge) 


Diskettenservice 

Wer keine Zeit oder Lust hat, alle Programme 
selbst in mühevoller Kleinarbeit abzuschreiben, 
kann wieder auf den bewährten Diskettenservice 
zugreifen. Alle Programme, die mit dem Disket¬ 
tensymbol im Inhaltsverzeichnis gekennzeichnet 
sind, gibfs auf Diskette. 

Bestell-Nr. L6 86 S2D 29,90 Mark 

inkl. MwSt. 




SONDERHEFT 













Sonderheft 1/86: 
C 128er 

Diskette 

Bestell-Nr. L6 86 S2D 

Sonderheft 8/85: 
Assembler 

Diskette 

Bestell-Nr. L6 85 S8D 

Kassette 

Bestell-Nr. L6 85 S8K 


DM 29.90* 


DM 29.90* 
DM 19,90* 


DM 29.90* 


Sonderheft 7/85: 
Professionelle Anwendungen 

2 Disketten 

Bestell-Nr. L6 85 S7D DM 34,90* 
4 Kassetten 

Bestell-Nr. L6 85 S7K DM 34.90* 

Sonderheft 6/85: 
Top-Themen 


54 

43 

57 

68 


2 Disketten 

Bestell-Nr. L6 85 S6 

Sonderheft 5/85: 
Floppy, Datasette 

Diskette 

Bestell-Nr. L6 85 S5D 

Kassette 

Bestell-Nr. L6 85 S5K 


DM 34,90* 


DM 29.90* 
DM 19,90* 


Ausgabe 1/86 

Bestell-Nr. L6 86 01D DM 29,90* 


Ausgabe 12/85 

Diskette 

Bestell-Nr. L6 85 12D 
Kassette 

Bestell-Nr. L6 85 12K 
Checksummer V3 
MSE VI .0 
Old für C128 
Chemie-Assistent 
SMU 

Hyperscreen 

Grafik-80 

Seeschlacht 

Eprom-Automat 

Tipp-Utility 

Floppymonitor 

Auto.OBJ 

Bildsch.Langsam 

Taschenrechner 

Code-ASCII 

88-Zeichen 

Frogger 

Scroll n. unten 

Zahlenraten 

Auto-Befehl 

SWAP 

BSP.-Quelltext 


Ausgabe 11/85 

Bestell-Nr. L6 85 11A 
Commodore 64 


DM 29,90* 
S. 54 
S. 

S. 

S. 

I 76 
S. 80 
S. 93 
S. 93 
S. 99 
S. 105 
S. 108 
S. 107 
S. 107 
S. 107 
S. 107 
S. 106 
S. 106 
S. 108 
S. 107 
S. 153 
S. 169 


DM 29,90* 


Plotter-Fensterrose 

s. 

152 

Abweichungen 

s. 

152 

Funktionenplot 

s. 

153 

3D-Programm 

s. 

154 

REM-Text-Killer 

s. 

158 

Sound-Editor mit Sequencer 

s. 

158 

Sequencer-Ergänzung 

s. 

159 

Testsong 

s. 

159 

Sequenzgenerator 

s. 

159 

Ausgabe 10/85 




Leider hei ;h in die Bestell-Nummer 
der letzten Programm-Service Anzeige 
ein Druckfehler eingeschlichen. Die 
korrigierte Bestell-Nummer lautet: 

L6 85 10A DM 29,90* 

Commodore 64 
Check V3 Dez 64 
MSE V1.0 
Floppy-Adjust 
Eprom-Trans 
Schreiberling 
Cursus Latinus (AdM) 

Flypra-Text (LdM| 

Pacman 
Programm GEN 
SM0N + 

Sequenzer 
Musik 

Alarmanlage 
Codeschloß 

Crossreference verb. Version 


S. 

54 

S. 

32 

S. 

42 

S. 

54 

S. 

57 

S. 

67 

S. 

76 

S. 

86 

S. 

87 

S. 

129 

S. 

129 

S. 

132 

S. 

132 

S. 

83 


Bestell-Nr. L6 85 S4A 


Bestell-Nr. L6 85 S3A 

Sonderheft 2/85: 
Abenteuerspiele 

Bestell-Nr. L6 85 S2 

Sonderheft 1/85: 


Floppy-Utilities 

Bestell-Nr. CB 023 
Hilfsprogramme 
Bestell-Nr. CB 024 

Ausgabe 2/86 

Bestell-Nr. L6 86 02D 


DM 29.90* 

Spiele 

i Paket! 

Checksummer V3 

MSE 

Koala-Painter Hardcopy 

S. 

S. 

S. 

54 

54 

39 

Ausgabe 9/85 


Lyrik-Maschine (AdMI 

S. 

55 

Bestell Nr. L6 85 09A 

DM 29,90* 

s Bestell-Nr.: 

Hypra-Platos (LdM) 

S. 

61 

Commodore 64 


DM 34,90* 

Profiprint 

S. 

71 

Sound-Machine 

S. 23 

Apfelmännchen 

S. 

80 

Noteneingabe 

S. 24-25 


Block Out 

S. 

84 

Sound Master 

S. 32 


Spritekill 

S. 

86 

Ringmod 

S. 32 

DM 34,90* 

Screen-Dump 

s. 

88 

Moonlight 

S. 33 

Pseudo-IRQ 

s. 

88 

SYNC 

S. 33 


INPUT-Routine 

s. 

90 

Prüfungsfragen (AdM) 

S. 55-58 

rarb. Auflage) 

Synthetische Melodien 

s. 

95 

Schlüssel (LdM) 

S. 59-61 

Hypra-Ass Ergänzung 

s. 

96 

Disk Designer 

S. 70-72 

Reassembler 

s. 

97 

Blinker 

S. 73 

DM 29,90* 

Vier Betriebssysteme 

s. 

105 

Logelei-1/2 

S. 118 


Spiralen 

s. 

151 

Lichtgr. 

S. 122 

DM 29.90* 

HiRes-Spiralen 

s. 

151 

Mischsort 

S. 127 


Plotter-Spiralen 

s. 

151 

Block Busters 

S. 159 


Fensterrose 

s. 

151 

X-Gleichung 

S. 159 

DM 29,90* 

HiRes-Fensterrose 

s. 

152 

Musik-Tool 

S. 159 


Ausgabe 8/85 


Bestell-Nr. L6 85 08A 
Commodore 64 

DM 29,90* 

Quicksort 

S. 142 

Procedure 

S. 78 

Hypra-Save 

S. 79 

Uhr 

S. 22 

NEWEA2 (AdM) 

S. 60 

Disk-Monitor 

S. 84 

Maskengenerator 

S. 87 

Bit-Map 

S. 81 

HiRes3-Komplett 

S. 159 

Forth-Compiler (LdM) 

S. 63 

Vocabulary 

S. 69 

Schach 

S. 74 

Extern-Kurs 

S. 147 

Sprites 

S. 44 

Hypra-Zusatz 

S. 25 

Hi-Text 2.0 

S. 71 

Ausgabe 7/85 


Bestell-Nr. L6 85 07A 

DM 29.90* 

Ausgabe 6/85 


Bestell-Nr. L6 85 06A 

DM 29,90* 

Ausgabe 5/85 


Bestell-Nr. L6 85 05A 

DM 29,90* 

Ausgabe 4/85 

Bestell-Nr. L6 85 04A 

DM 29,90* 

Ausgabe 3/85 

Bestell-Nr. L6 85 03A 

DM 29,90* 

Ausgabe 2/85 

Bestell-Nr. L6 85 02A 

DM 29,90* 

Ausgabe 1/85 

Bestell-Nr. L6 85 01A 

DM 29,90* 

Ausgabe 12/84 

Bestell-Nr. CB 022 

DM 29,90* 

Ausgabe 11/84 


Bestell-Nr. CB 020 

DM 29,90* 

Ausgabe 10/84 


Bestell-Nr. CB 019 

DM 29,90* 


Bedeutung der Abkürzungen 

*LdM = Listing des Monats 

•AdM = Anwendung des Monats 

*SB = Simons Basic 

*GV = Grundversion 

*GV > = alle Speicherversionen können 


verwendet werden (einschließlich 
GV) 

*3K = 3-KByte-Speichererweiterung 

wird benötigt 

*8K> = Speichererweiterung größer als 
8 KByte wird benötigt 
*UPB = Unterprogrammbibliothek 


* Alle Preise inklusive Mehrwertsteuer. 


Bitte verwenden Sie für Ihre Bestellung nur 
die eingeheftete Postscheck-Zahlkarte zur 
Überweisung des Rechnungsbetrags. 


Fehlende Hefte erhalten Sie 
bei: Markt&Technik 
Vertrieb 64'er 
Hans-Pinsel-Str. 2 
8013 Haar 
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drei Minuten 117 

g Menügesteuertes Laden 

Selbsterstelltes Disketten-Menü 119 

g ""smanager schafft Übersicht 

Bringen Sie Ordnung in Ihre Disketten 121 

g Vier Bildschirme im Speicher 

Basic-Programmierhilfe und Maskengenerator 127 

g Joystickabfrage im Interrupt 

Steuern Sie mit dem Joystick ein Sprite 

während des normalen Programmablaufes 131 

g Und er LISTet doch! 

Das Ende des LIST-Schutzes? 131 

g Ordnung ist das halbe Leben 

Räumen Sie Ihre Directories auf 133 

POKEs, die Sie kennen sollten 

Lebenshilfe für Programmierer 136 

Die Modulfabrik 

Aus dem Speicher ins EPROM 138 

Die besten Tips&Tricks 

Zusammenstellung der wichtigsten Tricks 141 


Kurz und nützlich - Einzeiler 

Kurzprogramme, Utilities und Mini-Erweiterungen 152 

20000 Byte mehr 

So nutzen Sie das RAM unter dem ROM 159 


Spiel 


g Ping-Pong 

Das erste Telespiel der Welt 161 


5 


SONDERHEFT 

















EINGABEHILFE 


C 64 


Checksummer 
64 V3 

Der Checksummer 64 V3 überprüft 
jede Basic-Zeile direkt nach der Ein¬ 
gabe, erkennt Fehleingaben sowie 
Vertauschungen von Ziffern und 
erspart eine aufwendige Fehlersuche. 

D er Checksummer 64 V3 ist ein kleines Maschinen¬ 
programm, das Sie sofort unterrichtet, ob Sie die 
jeweilige Programmzeile korrekt eingegeben haben. 
So gehen Sie vor: 

1. Programm abtippen und speichern. 

2. Starten mit RUN 

3. Nach kurzer Zeit sehen Sie am Bildschirm: 
CHECKSUMMER 64, CHECKSUMMER AKTIVIERT, AUS¬ 
SCHALTEN MIT POKE 1,55, ANSCHALTEN MIT POKE 1,53, 
READY. 

4. Anschalten des Checksummer 64 V3 mit POKE 1,53. 

5. Test: Geben Sie in einer freien Zeile ein: »1 REM« und 
drücken die RETURN-Taste. Am Bildschirm oben links sollten 
Sie die Prüfsumme <63> sehen. 

6. Geben Sie ein Listing aus unserem Heft ein. Nach jeder 
Zeile wird die Zahl, die im Listing in Klammern < > steht, in 
den Bildschirm eingeblendet. Stimmen die Zahlen nicht über¬ 
ein, so liegt vermutlich ein Eingabefehler vor. Die Zahl in den 
Klammern, und auch die Klammern selbst, dürfen beim 
Abtippen nicht mit eingegeben werden! 

7. Der Checksummer 64 V3 bemerkt auch Vertauschun¬ 
gen von Zahlen und Buchstaben, aber nicht das Fehlen (oder 
Hinzufügen) von Leerzeichen. 

8. Unsere Basic-Listings enthalten keine Steuerzeichen 
mehr. Diese werden ersetzt durch Klartext und stehen zwi¬ 
schen geschweiften Klammern. Deshalb sind weder die 
Klammern noch was dazwischen steht, abzutippen, sondern 
die in Tabelle 1 aufgeführten Tasten zu drücken. Auf Ihrem 
Bildschirm erhalten Sie dann wieder die entsprechenden 
Grafikzeichen. 

9. Alle Grafikzeichen werden ebenfalls ersetzt durch unter¬ 
strichene oder überstrichene Großbuchstaben. 

Unterstrichene Buchstaben bedeuten, daß Sie die 
SHIFTTaste und den angegebenen Buchstaben drücken 
müssen, überstrichene jedoch die Commodore-Taste mit 
dem Buchstaben. Auch hier erhalten Sie am Bildschirm das 


entsprechende Grafikzeichen und nicht etwa das im Listing 
erkennbare Zeichen. 

Die Leerzeichen zwischen den einzelnen Basic-Befehlen 
können beim Abtippen entfallen (ohne Einfluß auf die Check¬ 
summe zu nehmen). Dies ist besonders bei speicherkriti¬ 
schen Programmen wichtig. Ebenso müssen Zeilen, die 
mehr als 80 Zeichen pro Zeile enthalten, mit den bekannten 
Abkürzungen für die Basic-Befehle (siehe auch das Hand¬ 
buch zum C64, Anhang D, Seite 130) eingegeben werden. 

Sie können die Programme auch weiterhin ohne den Check¬ 
summer eintippen. (F. Lonczewski/gk) 

Hinweis: [13 SPACE! bedeutet 13mal die Leertaste drücken 


9 REM ******************************* 

10 PRINT"{CLR,11SPACE,RVSONJCHECKSUMMER 64 

V3<RVOFF>" 

11 PRINT"{2D0WN,9SPACE>EINEN MOMENT, BITTE 


Of 


12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
?•? 

23 

24 

25 

26 

27 

28 

29 

30 


FOR 1=828 TO 864:READ ArPOKE I,A:PS=PS+ 
A+l:NEXT I 

IF PSO5802 THEN PR INT" PRUEFSUMMENFEHLE 
R IN ZEILEN 20-22":END 

SYS 828:PS=0:FOR 1=58464 TO 58583:READ 

A:POKE I,A:PS=PS+A+1:NEXT I 

IF PS<>16267 THEN PRINT"PRUEFSUMMENFEHL 

ER IN ZEILEN 22-30":END 

POKE 1,53:POKE 42289,96:POKE 42290,228 

PRINT" -I4D0WN,9SFACETCHECKSUMMER AKTIVIE 

RT. " 

PRINT"{2D0WNIAUSSCHALTEN : POKE1,55" 
PRINT"{DOWNJANSCHALTEN {2SPACEJ: POKE1,5 
3":NEW 

DATA 169,0,133,254,162,1,189,93,3,133,2 
55,160,0,177,254 

DATA 145,254,136,208,249,230,255 ,165,25 
5,221,95,3,208,238,202 

DATA 16,230,96,160,224,192,0,160,2,169, 
0,170,133,254,177 

DATA 95,240,40,201,32,208,3,200,208,245 
,133,255,138,41,7 

DATA 170,240,14,72,165,255,24,42,105,0, 

202.208.249.133.255 

DATA 104,170,232,165,255,24,101,254,133 
,254,76,111,228,192,4 

DATA 48,219,198,214,165,214,72,162,3,16 
9,32,157,1,4,189 

DATA 212,228,32,210,255,208,12,0,92,72, 
32,201,255,170,104 

DATA 144,1,138,96,202,16,228,166,254,16 
9,0,32,205,189,169 

DATA 62,32,210,255,104,133,214,32,108,2 

29.169.141.32.210.255 
DATA 76,128,164,9,60,18,19 


© 64'er 

Der Checksummer 64 V3 erkennt auch 
Vertauschungen von Zahlen 


CTRL sieht (ür Control-Taste, so bedeutet [CTRL-Aj, daß Sie die 
Control-Taste und die Taste »A« drücken müssen. Im folgenden steht: 

IDOWN! 

(UP| 

|CLRj 
(INST) 

|HOME| 

[DEL| 

[RIGHTI 
|LEFT| 

ISPACEI 
[Fl | bis JF8J 
[RETURNI 
[BLACK! 

IWHITEj 
[RED] 


|CYAN| 

Control-Taste 8 4 

[PURPLE) 

Control-Taste 8 5 

[GREENI 

Control-Taste 8 6 

IBLUE] 

Control-Taste 8 7 

[YELLOW! 

Control-Taste 8 8 

[RVSON] 

Control-Taste 8 9 

[RVOFF! 

Control-Taste 8 0 

[ORANGE! 

Commodore-Taste 8 1 

[BROWN | 

Commodore-Taste 8 2 

(LIG.REDI 

Commodore-Taste 8 3 

[GREYlj 

Commodore-Taste 8 4 

[GREY 2| 

Commodore-Taste 8 5 

[LIG.GREEN 

] Commodore-Taste 8 6 

[LIG.BLUEi 

Commodore-Taste 8 7 

[GREY3| 

Commodore-Taste 8 8 

Tabelle 1. 

Die Steuerbefehle in den Listings 


Taste neben rechtem Shift, Cursor unten 

Shift-Taste 8 Taste neben rechtem Shift; Cursor hoch 

Shift-Taste 8 2. Taste ganz rechts oben 

Shift-Taste 8 Taste ganz rechts oben 

2. Taste von ganz rechts oben 

Taste ganz rechts oben 

Taste ganz rechts unten 

Shift-Taste 8 Taste unten rechts 

Leertaste 

Funktionstasten 

Shift-Taste 8 Return 

Control-Taste 8 1 

Control-Taste 8 2 

Control-Taste 8 3 
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C 64 


EINGABEHILFE 


MSE - Abtippen 
sicher und 
leicht gemacht 

Ähnlich wie der »Checksummer« ist 
auch der MSE ein Hilfsmittel bei der 
Eingabe von Listings, diesmal jedoch 
bei reinen Maschinensprache-Pro¬ 
grammen. 

a m Gegensatz zum »Checksummer« aber ist die Eingabe 
nicht ohne den MSE möglich. Der MSE verringert die 
Tipparbeit um ein Drittel und schließt Fehleingaben 
vollkommen aus. Außerdem können Sie die Werte blind ein¬ 
geben, ohne andauernd auf den Bildschirm schauen zu müs¬ 
sen. Dies wird durch akustische Meldungen realisiert. 

MSE ist ein Maschinenspracheditor, mit dem ein Vertippen 
ausgeschlossen ist. Eine abgetippte Zeile wird nur angenom¬ 
men, wenn sie richtig ist. Eine Checksumme am Ende jeder 
Zeile prüft, ob die richtigen Werte in der richtigen Zeile an der 
richtigen Stelle stehen. Wenn nicht, ertönt ein Warnsignal, 
und man beseitigt den Fehler. 

War die Zeile korrekt, erklingt ein Gong, und die nächste 
Zeilennummer wird ausgegeben. Damit ist also auch »blin¬ 
des« Eintippen möglich; Sie können sich voll auf den Text kon¬ 
zentrieren. 

So arbeitet man mit MSE 

Laden und starten Sie MSE. Zuerst wird der Programm¬ 
name und die Start- und Endadresse erfragt. Diese Angaben 
entnehmen Sie dem Kopf des jeweiligen abgedruckten 
Listings. MSE meldet sich dann mit der Zeilennummer der 
ersten Zeile. Wenn Sie die Zeile richtig eingegeben haben, 
erscheint die nächste Zeilennummer und so weiter bis zum 
Ende. Zum Schluß wird das fertige Programm mit »CTRL-S« 
auf Diskette oder Kassette abgespeichert. Dazu sind keine 
weiteren Angaben mehr erforderlich. Das Programm kann 
dann ganz normal wieder geladen und gestartet werden. 


Wenn Sie nicht alles auf einmal tippen wollen, können Sie 
jederzeit unterbrechen und den eingetippten Teil mit »CTRL- 
S« abspeichern. Wollen Sie Weiterarbeiten, laden und starten 
Sie MSE wieder. 

Geben Sie auf die Frage nach der Startadresse aber jetzt 
»L« ein, um Ihr Teilprogramm zu laden. Jetzt können Sie mit 
»CTRL-N« die Adresse eingeben, an der Sie weitertippen 
müssen. Wenn Sie sich nicht gemerkt haben, wie weit Sie 
gekommen sind, geben Sie nach dem Laden »CTRL-M« ein. 

Auf die Frage nach der Startadresse antworten Sie mit der 
Anfangsadresse, die links in der Kopfzeile auf dem Bildschirm 
steht. Nun wird Ihr Programm aufgelistet. Mit »SPACE« wird 
das Listen fortgesetzt, mit »STOP« abgebrochen. Das Ende 
Ihres Programmteils erkennen Sie sehr einfach daran, daß 
nur noch der Wert »AA« in der Zeile steht. Die Adresse dieser 
Zeile müssen Sie anschließend mit »CTRL-N« eingeben. Das 
Programm ist nur mit »STOP/RESTORE« zu verlassen. Spei¬ 
chern Sie aber vorher unbedingt immer Ihren Text ab. 
Hinweise zum Abtippen 

Vor dem Abtippen oder späteren Wiederladen des MSE- 
Laders müssen Sie unbedingt folgende Zeile eingeben: 
POKE 43,1: POKE 44,32: POKE 8192,0: NEW 

Den MSE-Lader brauchen Sie nur einmal. Nach erfolgrei¬ 
chem Abtippen und Starten mit RUN geht der Lader verloren 
und es wird das endgültige Programm MSE VI .0 erzeugt. So 
gehen Sie vor: 

Starten Sie das Programm mit RUN. Fehlerhafte Zeilen wer¬ 
den angezeigt und müssen korrigiert werden, bis der Lader 
zum »READY« durchläuft. Jetzt müssen Sie das fertige MSE- 
Programm speichern. Dazu brauchen Sie nur »RETURN« zu 
drücken, weil die erforderlichen Angaben schon auf dem 
Bildschirm stehen. (Kassettenbesitzer müssen in Zeile 343 
die lo *zte Zahl in »1« abändern.) Ab jetzt können Sie »MSE 
VI.u« direkt, also ohne den DATA-Lader, benutzen. MSE VI.0 
wird ganz normal mit »,8« geladen (keine POKEs notwendig). 

(N. Mann/D. Weineck/gk) 


MSE-Befehle: 

DEL 

löscht die letzte Eingabe. 

CTRL-S 

speichert das eingetippte Programm ab. 

L oder CTRL-L 

lädt ein Programm. Start- und Endadresse werden 
automatisch ermittelt. 

CTRL-M 

listet den Speicherinhalt. Abbruch mit STOP-Taste, 
weiter mit Leertaste. 

CTRL-N 

erlaubt die Eingabe einer neuen Adresse zum 
Weitertippen. 

CTRL-P 

gibt ein MSE-Listing aut dem Drucker aus. 


100 

REM **************************** 

<091 > 


KE 19B,3 

<--?49> 

lio 

REM * * 

<159> 

343 

PR INT" -C3D0WN > SAVE "CHR$ (34) "MSE V1.0 " UH 


120 

REM * MSE LADER * 

<206> 


RS(34)",8 

< 171 > 

130 

REM * * 

< 179> 

344 

END 

<092> 

220 

REM **»**#******###•»**»**»**#*** 

<211 > 

1000 

DATA 00,0B, 08,0A, 00,9E , 32,30,36,31 ,00 


230 

REM 

<036> 


,00,00,A2,0B,A9,36,85,A4,A9, 1247 

< 119> 

240 

DIM H(75): FÜR 1=0 TO 9 

< 113> 

1001 

DATA 08,85,A5,A9,00,85,A6,A9,B0,85,A7 


250 

H(48+1)=1: H <65+1)=1 +10:NEXT 

<041 > 


, A0,00 ,B1, A4,91 , A6, C8, D0, F9, 2888 

< 054 > 

260 

FOR 1=2048 TO 3755 : READ A* 

< 198> 

1002 

DATA E6,A5,E6,A7,CA,D0,F2,A9,36,85,01 


270 

H=ASC(LEFT*(A*,1)):L=ASC(RISHT*(A*,1)) 

<199> 


, 4C, 00, B0,20 , D1, B1 , A9,06,8D , 2787 

< 144> 

2B0 

D=H(H)*16+H(L):S=S+D:POKE I,D 

<219> 

1003 

DATA 21 ,D0,A9,03,8D,20, D0,8D, 86,02, A0 


290 

A=A+1:IF A<20 THEN NEXT:A=-1 

< 141 > 


,B3,A9,74,20,FF,B1,A0,B3,A9, 2667 

<237> 

300 

PRINT " ZEILE:1000+Z; 

<011> 

1004 

DATA B9,20,FF,B1,A0,00,20,CF,FF,99,01 


310 

READ V :Z=Z+1:IF V=S THEN 330 

<218> 


,02,C8,C9,0D,D0,F5,88,F0,D2, 2912 

<217> 

320 

PRINT"PRUEFSUMMENFEHLER 1":STOP 

< 13S> 

1005 

DATA C0,0F , 90,02 , A0,0E, 8C, 00,02,20, EA 


330 

IF A<0 THEN 341 

<221 > 


, B1, A0, B3, A9, CF, 20, FF , B1,20, 2323 

<013> 

340 

S=0:A=0:PRINT:NEXT 

<046> 

1006 

DATA 8E,B4,85,FC,85,62,20,8E,B4,85,FB 


341 

PRINT"CCLR>Pfl43,1:Pfl44,8:Pfl45,172:Pß46 



,85,61,20,A7,B4,D0,20,A0,B3, 2864 

< 199> 


,14 

<010> 

1007 

DATA A9,E5,20,FF,Bl,20,8E,B4,85,60,20 


342 

POKE 631,19-.POKE 632,13: POKE 633, 13: PO 



,8E,B4,85,5F,20,A7,B4,D0,0A, 2624 

<091 > 

Der MSE zum bequemen Abtippen von Maschinenprogrammen 
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C 64 


1008 DATA A5,61,C5,5F,A5,62,E5,60,90,06,20. 

,43,B3,4C,3A,B0,A9,AA,A0,00, 2379 <167> 

1009 DATA 91,FB,E6,FB,D0,02,E6,FC,20,3F,B2 

,90,EF,4C,FB,B4,A2,02,B6,58, 3118 <152> 

1010 DATA A9,A6,A0,9D,20,F2,B1,20,E4,FF,F0 

,FB,C9,30,90,0C,C9,47,B0,08, 2970 <231> 

1011 DATA C9,3A,90,0B,C9,41,B0,07,C9,14,D0 

,0F,4C,0B,B1,20,D2,FF,A6,5B, 2322 <121> 

1012 DATA 95,F7,C6,58,D0,D2,60,AE,8D,02,F0 

,26,C9,0C,D0,03,4C,0B,B6,C9, 2685 <057> 

1013.DATA 13,D0,03,4C,8B,B5,C9,0D,D0,03,4C 

,BA,B4,C9,10,D0,03,4C,68,B5, 2282 <225> 

1014 DATA C9,0E,D0,06,20,5F,B4,4C,64,B1,4C 

,92,B0,A5,F9,20,02,B1,0A,0A, 2132 <208> 

1015 DATA 0A,0A,85,F9,A5,F8,20,02,B1,05,F9 

,60,C9,3A,90,02,69,08,29,0F, 1950 <092> 

1016 DATA 60,A6,59,E0,0B,90,1F,A6,58,E0,02 

,B0,06,20,D2,FF,4C,8E,B0,C6, 2509 <188> 

1017 DATA 59,A0,14,A9,92,20,F2,B1,CA,D0,FA 

,84,57,68,68,4C,BB,B1,A6,D3, 2891 <197> 

1018 DATA E0,08,B0,03,4C,92,B0,20,D2,FF,A6 

,58,E0,02,90,09,C6,59,20,D2, 2468 <049> 

1019 DATA FF,C6,58,D0,F9,4C,8E,B0,4B,4A,4A 

,4A,4A,20,59,B1,68,29,0F,C9, 2419 <035> 

1020 DATA 0A,90,02,69,06,69,30,4C,D2,FF,A2 

,FC,9A,20,D1,B1,20,48,B2,20, 2261 <073> 

1021 DATA EA,B1,20,9F,B2,A5,FC,20,4E,B1,A5 

,FB,20,4E,B1,20,ED,Bl,A9,3A, 2860 <148> 

1022 DATA A0,20,20,F2,B1,A9,00,85,59,20,BE 

,B0,20,ED,Bl,A4,59,20,EF,B0, 2530 <233> 

1023 DATA 91,FB,CB,84,59,C0,08,90,EC,20,10 

,B2,A9,12,20,D2,FF,20,8E,B0, 2657 <105> 

1024 DATA 20,EF,B0,C5,FF,F0,0D,20,43,B3,A9 

,14,A0,14,20,F2,B1,4C,A2,B1, 2665 <034> 

1025 DATA A9,92,20,D2,FF,20,33,B2,20,E0,B2 

,20,3F,B2,90,9F,4C,8B,B5,A9, 2648 <123> 

1026 DATA 93,20,D2,FF,A2,00,A9,03,9D,00,D8 

,9D,00,D9,9D,00,DA,9D,00,DB, 2476 <237> 

1027 DATA E8, D0 , EF , 60, A9,0D, 2C, A9,20,4C, D2 

,FF,20,D2,FF,98,4C,D2,FF,20, 2965 <160> 

1028 DATA E4,FF,F0,FB,60,84,5D,B5,5C,A0,00 

,B1,5C,F0,06,20,D2,FF,C8,D0, 3100 <077> 

1029 DATA F6,60,A5,FB,85,5A,A0,00,84,5B,Bl 

,FB,18,65,5A,85,5A,90,02,E6, 2606 <156> 

1030 DATA 5B,06,5A,26,5B,C8,C0,08,90,EC,A5 . 

,5A,65,5B,85,FF,60,18,A5,FB, 2467 <219> 

1031 DATA 69,08,85, FB, 90,02, E6, FC , 60, A5, FB 

,C5,5F,A5,FC,E5,60,60,A0,B3, 3106 <183> 

1032 DATA A9,FB,20,FF,B1,A0,01,B9,00,02,20 

,D2,FF,CC,00,02,C8,90,F4,A9, 2692 <098> 

1033 DATA 10,ED,00,02,AA,20,ED,Bl,CA,D0,FA 

,A5,62,20,4E,B1,A5,61,20,4E, 2453 <236> 

1034 DATA Bl ,20,ED,Bl ,A5,60,20,4E,B1, A5,5F 

,20,4E,B1,A9,9F,20,D2,FF,20, 2575 <038> 

1035 DATA EA , B1,24,5E ,10,01,60, A9,12,20, D2 

,FF,A2,28,20,ED,Bl,CA,D0,FA, 2646 <161> 

1036 DATA A9,92,4C,D2,FF,A5,D6,C9,16,B0,01 

,60,A9,A0,85,A4,A9,78,85,A6, 2945 <204> 

1037 DATA A9,04,85, A5,85, A7, A2,13, A0,27 ,B1 

,A4,91,A6,88,10,F9,CA,F0,19, 2671 <20S> 

1038 DATA 18,A5,A4,69,28,85,A4,90,02,E6,A5 

,18,A5,A6,69,28,85,A6,90,E0, 2503 <251> 

1039 DATA E6,A7,4C,B6,B2,A9,91,4C,D2,FF,A9 

,0F,8D,18,D4,A9,00,8D,05,D4, 2776 <000> 

1040 DATA A9,F7,8D, 06, D4 , A9,11 ,BD, 04 ,D4, A9 

,32,8D,0l,D4,A9,00,BD,00,D4, 2413 <126> 

1041 DATA A0,80,20,09, B3 , A9,10, BD, 04 , D4,60 

,A2,FF,CA,D0,FD,88,D0,F8,60, 2914 <240> 

1042 DATA A9,0F,BD,18,D4,A9,2D,8D,05,D4,A9 

,A5,BD,06,D4,A9,21,8D,04,D4, 2385 <119> 

1043 DATA A9,07,8D,01,D4,A9,05,8D,00,D4,A0 

,FF,20,09,B3,A9,20,8D,04,D4, 2250 <07B> 

1044 DATA A9,00,8D,01,D4,8D,00,D4,60,38,20 

,F0,FF,8A,4B,98,48,18,A0,06, 2179 <175> 

1045 DATA A2,18,20,F0,FF,A0,B4,A9,0A,20,FF 

,Bl,20,12,B3,20,E4,FF,F0,FB, 2931 <093> 

1046 DATA A2,1D,A9,14,20,D2,FF,CA,D0,FA,68 

,A8,68,AA,18,4C,F0,FF,0D,0D, 2704 <08B> 

1047 DATA 0D,20,20,20,20,20,20,20,4D,41,53 

,43,48,49,4E,45,4E,53,50,52, 1144 <216> 

1048 DATA 41,43,48,45,20,2D,20,45,44,49,54 

,4F,52,20,0D,0D,20,20,20,20, 1023 <03B> 


1049 DATA 20,20,20,20,56,4F,4E,20,4E,2E,4D 

,41,4E,4E,20,26,20,44,2E,57, 1128 <206> 

1050 DATA 45,49,4E , 45,43,4B, 00,0D, 0D , 0D, 20 

,20,20,50,52,4F,47,52,41,4D, 1102 <117> 

1051 DATA 4D , 4E ,41,4D, 45,20,3A, 20,00,0D, 0D 

,20,20,20,53,54,41,52,54,41, 1073 <095> 

1052 DATA 44,52,45,53,53,45,20,3A,20,24,00 

,0D,0D,20,20,20,45,4E,44,41, 1014 <129> 

1053 DATA 44,52,45,53,53,45,20,20,20,3A,20 

,24,00,92,05,20,50,52,4F,47, 1171 <217> 

1054 DATA 52,41,4D,4D,20,3A,20,00,12,20,20 

,2A,2A,2A,20,46,41,4C,53,43, 1024 <027> 

1055 DATA 48,45,20,45,49,4E,47,41,42,45,20 

,2A,2A,2A,20,20,92,00,0D,0D, 1058 <098> 

1056 DATA 2A, 2A, 2A, 20,45,4E , 44,45,20,2A, 2A 

,2A,00,13,05,20,20,12,44,92, 920 <148> 

1057 DATA 49,53,4B,20,4F,44,45,52,20,12,54 

,92,41,50,45,0D,00,13,20,20, 1151 <035> 

1058 DATA 49,2F, 4F , 20,2D , 20,46,45,48,4C, 45 

,52,00,20,D1,B1,20,48,B2,A0, 1606 <012> 

1059 DATA B3,A9,CF,20,FF,B1,20,8E,B4,85,FC 

,20,8E,B4,85,FB,C5,61,A5,FC, 3207 <251> 

1060 DATA E5,62,90,23,A5,FB,C5,5F,A5,FC,E5 

,60,B0,19,20,A7,B4,D0,14,60, 2860 <112> 

1061 DATA 20,A7,B4,F0,0C,85,F9,20,A7,B4,F0 

,05,85,F8,4C,EF,B0 \ 68,68,20, 2749 <08B> 

1062 DATA 43,B3,4C,5F,B4,20,CF,FF,C9,4C,D0 

,09,20,Dl,B1,20,48,B2,4C,0B, 2372 <046> 

1063 DATA B6 , C9,0D, 60 , A9,00,85,5E , 20,5F , B4 

,20,EA,B1,20,0D,B5,24,5E,30, 2042 <120> 

1064 DATA 05,20, E4, FF , F0 , FB, 20, E1 , FF , F0,26 

,20,9F,B2,24,5E,10,09,20,4E, 2435 <198> 

1065 DATA B5,20,0D,B5,20,60,B5,20,33,B2,20 

,3F,B2,90,D7,A0,B4,A9,28,20, 2190 <207> 

1066 DATA FF,B1,20,E4,FF,C9,0D,D0,F9,A9,00 

,85,5E,A5,61,85,FB,A5,62,85, 3056 <240> 

1067 DATA FC, 20, E0 , B2,4C, 64 , B1 , A5 , FC , 20,4E 

,Bl,A5,FB,B5,FF,20,4E,B1,A9, 3003 <221> 

1068 DATA 20,A0,3A,20,F2,B1,A0,00,20,ED,B1 

,B1,FB,20,4E,B1,C8,C0,08,90, 2566 <070> 

1069 um"A F3,20,ED,B1,24,5E,30,03,A9,12,2C 

,Av,20,20,D2,FF,20,10,B2,A5, 2190 <059> 

1070 DATA FF,20,4E,Bl,A9,92,20,D2,FF,4C,EA 

,B1,A9,FF,85,B8,85,B9,A9,04, 3073 <029> 

1071 DATA 85,BA,20,C0,FF,A2,FF,4C,C9,FF,20 

,CC,FF,A9,FF,4C,C3,FF,20,5F, 3315 <189> 

1072 DATA B4,A9,80,85,5E,20,4E,B5,20,48,B2 

,A2,24,A9,2D,20,D2,FF,CA,D0, 2596 <111> 

1073 DATA FA,20, EA, Bl , 20, EA, Bl, 20,60, B5,4C 

,C1,B4,20,BB,B5,A6,5F,A4,60, 2812 <015> 

1074 DATA A9,61,20, D8, FF, B0,0A, 20 , B7, FF , 29 

,BF,D0,03,4C,FB,B4,A9,01,20, 2577 <201> 

1075 DATA C3,FF,20,68,B6,A0,B4,A9,4F,20,FF 

,B1,20,F9,B1,4C,FB,B4,20,68, 2921 <237> 

1076 DATA B6,A9,37,A0,B4,20,FF,B1,20,F9,B1 

,A2,08,C9,44,F0,06,A2,01,C9, 2717 <213> 

1077 DATA 54, D0 , F l , A9,01, AB, 20 , BA , FF , A0,00 

,E0,01,F0,1A,A9,40,8D,20,02, 2403 <101> 

1078 DATA A9,3A,8D,21,02,B9,01,02,99,22,02 

,C8,CC,00,02,90,F4,C8,C8,D0, 2182 <127> 

1079 DATA 0C,B9,01,02,99,20,02,C8,CC,00,02 

,D0,F4,98,A2,20,A0,02,4C,BD, 2018 <025> 

1080 DATA FF , 20, B8, B5, A5, BA, C9,08,90,33, A6 

,B9,86,57,A9,01,20,C3,FF,A9, 2800 <022> 

1081 DATA 60,85 , B9,20, C0 , FF, B0,28, A5, BA, 20 

,B4,FF,A5,B9,20,96,FF,20,A5, 2911 <053> 

1082 DATA FF , 85,61, A5,90,4A, 4A, B0 ,13,20, A5 

,FF,85,62,20,AB,FF,A5,57,85, 2663 <214> 

1083 DATA B9, A9,00,20, D5, FF , 90,03,4C, A3, B5 

,86,5F,B4,60,A5,BA,C9,01,D0, 2639 <131> 

1084 DATA 0A,AD,3D,03,85,61,AD,3E,03,85,62 

,4C,FB,B4,A9,13,20,D2,FF,A2, 2300 <120> 

1085 DATA IC,20,ED,Bl,CA,D0,FA,60, 1230 <214> 

6 8-4'er 


MSE (Schluß). Dieses Listing können Sie (müssen aber 
nicht) mit dem Checksummer 64 V3 in diesem Heft 
eingeben 
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C 64 


MUSIK 


Vielstimmig 

Das Besondere an diesem Synthesizer ist 
die Tastaturabfrage: Sie ermöglicht es, bis 
zu drei verschiedene Töne gleichzeitig zu 
spielen. 

H aben Sie schon einmal versucht, einen Synthesizer in 
Basic zu programmieren? Dann haben Sie sicher fest¬ 
gestellt, daß die Tastaturabfrage (welcher Ton wird 
gerade gespielt?) über »GET« oder »PEEK (197)« beim 
gleichzeitigen Drücken von zwei oder mehr Tasten diese 
nicht mehr unterscheiden kann. Eigentlich schade, weil 
dadurch die drei Stimmen des C 64 nicht ausgenützt werden 
können. 

Als ich nun im Buch »PEEKs und POKEs zum C64« von 
Data Becker die Möglichkeit entdeckte, mehrere Tasten 
gleichzeitig abzufragen, kam mir die Idee, eine mehrstimmige 
Orgel zu programmieren. 


Hinweise zum Abtippen 


Der Synthesizer besteht aus drei Programmen: 

Dem Hauptprogramm »SYNTHESIZER« (Listing 1) 
und den beiden Maschinensprache-Unterroutinen 
» SY« (Listing 2) und »TASTEN« (Listing 3). 

Das Programm »SYNTHESIZER« ist mit Hilfe des Check¬ 
summers einzutippen und erst einmal zu speichern. Sind alle 
drei Programme auf Diskette/Kassette vorhanden, ist der 
Synthesizer startbereit. Achten Sie bei den MSE-Listings 
bitte auf das Leerzeichen vor dem ersten Buchstaben des 
Programmnamens. 

Wer nur eine Datasette zur Verfügung hat, muß beim Spei¬ 
chern auf die Reihenfolge der Programme auf der Kassette 
achten: Zuerst »SYNTHESIZER«, danach »SY« und schließ¬ 
lich » TASTEN«. Außerdem ist für Datasette in den beiden 
ersten Programmzeilen des Basic-Prggramms das »,8,1« in 
»,1,1« zu ändern. 


Bedienung des Synthesizers 


Nach dem Start des Basic-Programms mit »RUN« lädt dieses 
selbst die beiden Maschinenroutinen nach. 

Danach kann man den Synthesizer stimmen: Fl und F7 in 
großen Schritten; F3 und F5 in kleinen. Durch Drücken von 
Return gelangt man ins Hauptmenü: Man hat jetzt die Wahl 
zwischen den Funktionen »Wellenform«, »Pulsbreite«, »Fil¬ 
ter«, »Lautstärke», »ADSR-Hüllkurve», »Spielen« und »Ende«. 
Es lassen sich immer nur alle drei Stimmen des C 64 gleich¬ 
zeitig ändern (dies ist sinnvoll, da beim Spielen zum Beispiel 
nicht immer der höchste Ton der ersten Stimme entspricht). 

Gespielt wird über die beiden Tastenreihen »Z« bis »I« und 
»Q« bis »I«. Die Halbtöne liegen auf den entsprechenden 
Tasten darüber. 

Wer sich mit dem Programm genauer beschäftigen 
möchte, findet in der Tabelle die Variablenbelegung. 

Übrigens: Beim reinen, einstimmigen Melodie-Spiel 
erreicht man einen sehr guten Echo-Effekt, indem man eine 
Taste so lange hält, bis der nächste Ton der Melodie durch die 
jeweilige Taste erklingt. 

(Georg Gerber/tr) 


Verwendete Variablen: 

FF 

Filterfrequenz 

P 

Pulsbreite 

RZ 

Resonanz 

AR 

Attack 

DE 

Decay 

SU 

Sustain 

RE 

Release 

FA 

Filterart 

L 

Lautstärke 

F1/2/3 

Hoch-/Band-/Tiefpaß (hat den Wert 0 oder 1) 

W1/2/3/4/5 

Wellenform (nur 0 oder 1) 

M 

Maximaler Wert beim Unterprogramm 
»Parameter einstellen« 

G 

Parameter, der in diesem Menü eingestellt 
wird 

LB/HB 

Lxjw-/High-8yte 

Sl 

Startadresse des SID 


:POKE 2053,143sLOAD" SY",0,1s: 
sPOKE 2081,143:LOAD" TASTEN",8,1 
: 

REM ******************************** 
REM ******************************** 


<145> 
< 113> 
<234> 
<053> 
<054> 


5 REM 

** 



< 005 > 

6 REM 

** 

SYNTHESIZER (2.FASSUNG) 

«* 

<239> 

7 REM 

** 



<069> 

B REM 



** 

<008> 

9 REM 

** 

GEORG GERBER OKT. 1985 

** 

<134> 

10 REM 

** 


** 

<010> 

11 REM 

** 

7500 KARLSRUHE 51 

** 

<102> 

12 REM 

** 


** 

<012> 

13 REM 

** 

TULPENSTR.10 

** 

<206> 

14 REM 

** 


** 

<014> 

15 REM 

** 

TEL.: 0721/31273 

«-* 

<250> 

16 REM 

** 


** 

<016> 

17.riM 

** 


** 

<017> 


20 K£M ******************************** <070> 

21 REM ******************************** <071> 

25 : <001> 

32 REM *** PARAMETER SETZTEN- <247> 

33 FF=1000:P=2048:RZ=7:AT=0:DE=0:SU=15:RE= 


11:FA=0:L=15:W3=1:F2=1 <229> 

34 BOSUB 20000:REM BILDSCHIRM LOESCHEN <017> 

35 : ' <011> 

36 REM *** ADRESSEN SETZEN- <114> 

37 S1=54272:REM * BASISADRESSE ’SID' <071> 

38 POKE SI+24,15:POKE SI+23,0:POKE SI+4,0: 

POKE SI + 11,0:POKE SI+18,0 <132> 

39 POKE SI+5,0:POKE SI+6,251:POKE SI+12,0: 

POKE SI+13,251:POKE SI+19,0:POKE Sl+20, 

251 <018> 

40 A=W1*128+W2*64+W3*32+W4*16+W5*8 <077> 

41 POKE 8*4096+11*256,A <062> 

42 POKE SI+3,8:POKE SI+10,B:POKE SI+17,8 <045> 

43 : <019> 

44 REM *** BRUNDTON STIMMEN- <208> 

45 PRINT"tDOWNJGRUNDTON STIMMEN" <019> 

46 PRINT"<191> 

47 PRINT"{3D0WN>F1++ / F3+ / F5- / F7 —“ <065> 

48 PRINT"<2D0WN,SPACEXRETURN> : WEITER" <133> 

49 POKE SI+4,33 <206> 

50 G=222B:W=2T<1/12> <130> 

60 A=G:GOSUB 20500:POKE SI,LB:POKE SI+1,HB <217> 

70 IF PEEK<1971=3 THEN G=G-100:IF B<350 TH 

EN G=350 <204> 

71 IF PEEK <197)=6 THEN G=G-1:IF G<350 THEN 

G=350 <051> 

72 IF PEEK (197).=5 THEN G=G+1:IF G>6501 THE 

N G=6501 <222> 

73 IF PEEK <197)=4 THEN G=G+100:IF G>6501 T 

HEN G=6501 <011> 

75 IF PEEK«197)=1 THEN 80 <056> 

77 GOTO 60 <039> 

B0 POKE SI+4,0:PRINT"IDOWNJMOMENT BITTE" <221> 

90 REM *** TONLEITER BERECHNEN ** <206> 

100 FOR 1=0 TO 40:A=G*WTI:GOSUB 20500:POKE 

8*4096+5*256+9+2*1,LB <231> 

110 POKE 8*4096+5*256+10+2*1,HB:NEXT <162> 


Listing 1. Zur Eingabe von »SYNTHESIZER« 
verwenden Sie bitte den Checksummer (Seite 6) 



SONDERHEFT 




















MUSIK 


120 POKE 198,0 
123 : 

200 REM *** HAUPTMENU - 

210 GOSUB 20000:PRINT"C2D0WN)" 

220 PRINT"W ... WELLENFORM" 

221 PRINT"P ... PULSBREITE" 

222 PRINT"F ... FILTER" 

223 PRINT"L ... LAUTSTAERKE" 

224 PRINT"A ADSR-HUELLKURVE" 

225 PRINT"S SPIELEN" 

226 PRINT"E ... ENDE” 

230 PRINT"CDOWN,SPACE)BITTE WAEHLEN" 

240 SET A*:IF A*=""THEN 240 

250 IF A*="W"THEN 300 

251 IF A*="P"THEN 500 

252 IF A*="F"THEN 700 

253 IF A*="L"THEN 900 

254 IF A*="A"THEN 1100 

255 IF AS="S"THEN 1300 

256 IF A*="E"THEN 1500 
260 GOTO 240 

266 : 

300 REM *** WELLENFORM - 

310 GOSUB 20000:PRINT"CDOWN,7SPACE >WELLENF 
ORM" 

320 PRINT"CDOWN )RAUSCHENC2SPACE>";W1 

321 PRINT"RECHTECK C2SPACE>";W2 

322 PRINT"SAEGEZAHN C2SPACE)";W3 

323 PRINT"DREIECKC2SPACE>";W4 

324 PRINT"TESTC2SPACE>";W5 
330 PRINT"C6UP)" 

339 INPUT"C9RIGHT)";A*: IF VAL(A*>=0 AND A* 

< >"0"THEN PRINT"C2UP>":GOTO 339 

340 W1=VAL(A*> : IF W1<>1 AND HIOB THEN PRI 
NT"C2UP>":G0T0 339 

341 INPUT"C9RIGHT}";A*:IF VAL(A*)=0 AND A* 
<>"0"THEN PRINT"C2UP>":GOTO 341 

342 W2=VAL(A*) : IF W2<>1 AND W2O0 THEN PRI 
NT"<2UP>":GOTO 341 

343 INPUT"C10RIGHT)";A*:IF VAL(AS)=0 AND A 
*<>"0"THEN PRINT"C2UP>":GOTO 343 

344 W3=VAL(A*):IF W3<>1 AND W3<>0 THEN PRI 
NT"C2UP>":GOTO 343 

345 INPUT"C8RIGHT)";AS:IF VAL(AS)=0 AND AS 

< >"0"THEN PRINT"C2UP>":GOTO 345 

346 W4=VAL(AS):IF W4<>1 AND W4<>0 THEN PRI 
NT"C2UP>":GOTO 345 

347 INPUT"C5RIGHT>";AS:IF VAL(AS>=0 AND AS 
<>"0"THEN PRINT"C2UP>":GOTO 347 

348 W5=VAL(AS):IF W5<>1 AND W5<>0 THEN PRI 
NT“C2UP >":GOTO 347 

350 A=W1*12B+W2*64+W3*32+W4*16+W5*8 
360 POKE 8*4096+11*256,A 
370 GOTO 200 
377 : 

500 REM *** PULSBREITE - 

510 GOSUB 20000:PRINT"CDOWN,9SPACEJPULSBRE 
ITE“ 

520 G=P:M=4095:GOSUB 21000:P=G 

530 A=G:GOSUB 20500:POKE SI+2,LB:P0KE SI+3 
,HB:POKE SI+9,LB:P0KE SI+10,HB 

531 POKE 51+16,LB:POKE SI+17.HB 
540 GOTO 200 

544 : 

700 REM *** FILTER - 

710 GOSUB 20000:PRINT"CDOWN,7SPACEJFILTER" 
720 PRINT"FREQUENZ":G=FF:M=2047:GOSUB 2100 
0: FF*=G 

730 PRINT"FILTERCSPACE,RVSON>ACRVOFF)N / A 
CRVSON >U CRVOFF >S" 

735 GET AS: IF AS< >"A" AND ASO"U"THEN 735 

740 M0=7:IF AS="U"THEN MO=0 

750 PRINT"CDOWNJRESONANZCD0WN>":G=RZ:M=15: 

GOSUB 21000:RZ=G 
760 POKE SI+23,G*16+MO 
780 PRINT"C2DOWN >ART:CDOWN >" 

800 PRINT"TIEF ";F1 

801 PRINT"BAND " ; F2 

802 PRINT"HOCH ";F3 

803 PRINT"C4UPJ":POKE 198,0 

610 INPUT" C4RIGHT>"; AS: IF ASO"0"AND VAL (A 
S>=0 THEN PRINT"C2UP>":GOTO 810 
811 F1=VAL (AS) : IF FlOl AND F1O0 THEN PRI 
NT"C2UP >":GOTO 810 

B12 INPUT" C4RIGHT>" ; AS: IF ASO"0"AND VAL (A 
S>=0 THEN PRINT"C2UP>":GOTO 812 


<028> 
<099> 
<205> 
<152> 
<10B> 
<078> 
<241 > 
<005> 
<0BB> 
<070> 
<0B2> 
<027> 

< 146 > 

< 190> 
<06B> 
<072> 
<0B4> 

< 189> 
<215> 
<227> 
<006> 
<244> 
<050> 

<201 > 

<004> 

<055> 

<032> 

<242> 

<070> 

< 11B> 

< 049 > 
<096> 
<1B7> 

< 131 > 
<026> 

< 1B5> 
<083 > 
<239> 

< 155> 

<037> 

< 133> 

< 127> 
<052> 
<099> 
<016> 

<150> 

< 156> 

< 105> 
<060> 
<224> 

< 11B> 

< 131 > 

< 118 > 

< 193> 

< 121 > 
<223> 
<251 > 

<224> 
< 169> 
<082> 
<201 > 
<225> 
<074> 
<081 > 

<207> 

<017> 

<210> 


c ru. 


813 F2=VAL(AS):IF F2<>1 AND F2<>0 THEN PRI 

NT"C2UP}":GOTO 812 <071> 

814 INPUT" C4RIGHT>"; AS: IF ASO"0"AND VAL (A 

S>=0 THEN PRINT"C2UP>":GOTO 814 <213> 

815 F3=VAL(AS):IF F3<>1 AND F3<>0 THEN PRI 

NT"C2UPV:GOTO 814 <125> 

820 FA=F1*16+F2*32+F3*64 <0BB> 

830 POKE SI+24,FA+L:G0T0 200 <243> 

B8B : <102> 

900 REM *** LAUTSTAERKE- <209> 

910 GOSUB 20000:PRINT"CDOWN,9SPACE1LAUTSTA 

ERKECDOWN>" <035> 

920 G=L-.M=15: GOSUB 21000: L=G: POKE SI+24,L+ 

FA:GOTO 200 <170> 

999 : <213> 

1100 REM *** ADSR- <160> 

1110 GOSUB 20000:PRINT"C4SPACE>ADSR—HUELLK 

URVECDOWN)" <114> 

1120 PRINT"ATTACK":G=AT:M=15:G0SUB 21000:A 

T=G:POKE 198,0 <079> 

1130 PRINT"C2D0WN>DECAY":G=DE:M= 115:GOSUB 2 

1000:DE=G:POKE 198,0 <055> 

1140 PRINT"C2D0WN)SUSTAIN":G=SU:M=15:GOSUB 

21000:SU=G:POKE 198,0 <123> 

1150 PRINT"C2D0WN > RELEASE":G=RE:M=15:GOSUB 

21000:RE=G:POKE 198,0 <117> 

1180 A=AT*16+DE:POKE SI+5,A:P0KE SI+12,A:P 

OKE SI+19,A <128> 

1185 A=SU*16+RE:POKE SI+6,A:P0KE SI+13,A:P 

OKE SI+20,A <192> 

1190 GOTO 200 <110> 

1195 : <155> 

1300 REM *** SPIELEN- <032> 

1310 GOSUB 20000:PRINT"C8SPACEJSPIELEN" <185> 
1315 POKE 53281,4 <231> 

1320 PRINT"C3D0WNJF7:ENDEC3D0WN)" <130> 

1327 PRINT"CBLUE >TTiTlTlTTTTTTTTTTTTTTTlTT 

1330 PRINT"CRVSON,WHI TE )QCBLACK)2CWHITE>WC 
BLACKJ3CWHITE >ER CBLACK >5 CWHITE)T CBLAC 
K)6CWHITE)Y CBLACK>7 CWHITE)UICBLACK>9 C 

HITETO CBLACK>0 CWHITE)P@CBLACK)-CWHIT 
E)* CBLACK)iCWHITE)T CBLACK)CCWHITE)Z"; 

1331 PRINT"CRVSON,WHITE)X CBLACK)DCWHITE)CC 
BLACK)FCWHITE)VB CBLACK)H CWHITE)N CBLAC 
K ) J CWHI TE )M CBLACK )K CWH ITEX > CBLACK ) : C 
WHITE)/CBLACK);CWHITE)"; 

1340 PRINT"CRVSON,WHITE,SPACE,BLACK,SPACE, 

WHITE,SPACE,BLACK,SPACE,WHITE,SPACE)U 
CBLACK,SPACE,WHITE,SPACE,BLACK,SPACE, 

WH I TE, SPACE , BL ACK, SP ACE , WH I TE, SPACE ) H 
CBLACK,SPACE,WHITE,SPACE,BLACK,SPACE, 

WHITE, SPACE)HCBLACK , SPACE, WHI TE , SPACE 
, BLACK, SPACE, WH I TE, SPACE, BLACK , SPACE, 

WHITE,SPACE)"; 

1341 PRINT"CRVSON.WHITE)HCBLACK,SPACE,WHIT 
E,SPACE,BLACK,SPACE.WHITE,SPACE)^CBLA 
CK, SPACE, WH I TE , SP ACE , BL ACK, SPACE, WH IT 
E,SPACE,BLACK,SPACE,WHITE,SPACE)HCBLA 
CK, SPACE .WHITE,SP ACE, BLACK, SPACE, WH IT 
E)"; 

1350 PRINT" CRVSON, WH ITE, SPACE),! J 1 2 ® 

£ £ SS £ £ "; 

1351 PRINT"CRVSON,WHITE)H£ £ H£ £ £ H£ £"; 

1355 PR I NT " CBLUE, RVOFF )'uO'Ü'u'UUuWu'u’üUuWuuV 

üWiHTüWuWirüuuuWuiAj'" 

1390 SYS 8*4096:POKE 198,0:GOTO 200 
1440 : 

1500 REM *** ENDE - 

1510 GOSUB 20000:PRINT"C3D0WN)AUF WIEDERSE 


<174> 


<088> 


<247> 


HEN C3D0WN,LIG.BLUE)" 

1520 SYS 42115:REM * END OHNE READY 

19997 

19998 

19999 

20000 REM *** BILDSCHIRM - 

20005 POKE 532B1,6 

20010 PRINT"CCLR,DOWN,WHITE,8SPACE)P0LYPH0 
NER SYNTHESIZER" 

20011 PRINT"C7SPACE)====================== 

==CDOWN)" 

20012 PRINT" C20SPACEXO GEORG GERBER -85" 
20020 RETURN 

20025 : 

Listing 1. »SYNTHESIZER« (Fortsetzung) 


<077> 

<046> 

<206> 

<131> 

< 146> 

< 146 > 
<015> 

<060> 

<015> 

< 161 > 
< 162> 

< 163> 
<223> 
<127> 

<078> 

<132> 

< 176> 
< 010 > 

< 189> 


10 


SONDERHEFT 


























C 64 


MUSIK 


20500 REM *** LB / HB AUS A BERECHNEN — <196> 

20510 HB=INT(A/256):LB=A-HB*256:RETURN <006> 

20560 : <216> 

21000 REM *** PARAMETER EINSTELLEN - <206> 

21002 PRINT"Fl ++ / F3 + / F5 - / F7 — " <161> 

21003 PRINT"<RETURN> : ENDE <2D0WN J" <141> 

21010 PRINT"{UP,5SPACE,5LEFT1";G <219> 

21020 IF PEEK(197)=3 THEN G=G-100:IF G<0 T 

HEN G=0 <226> 

21030 IF PEEK(197)=6 THEN G-G-lsIF G<0 THE 

N G=0 <15B> 


21040 IF PEEK(197)=5 THEN 
N G=M 

21050 IF PEEK(197)=4 THEN 
HEN G=M 

21060 IF PEEK(197)=1 THEN 
21070 GOTO 21010 


G=G+1:IF G>M THE 

<225> 

G=G+100:IF G>M T 

<123> 

RETURN <052> 

<03S> 


© 

Listing 1. »SYNTHESIZER« (Schluß) 


Programm 

: 

sy 





8000 Slc2 BOcB 

: 

85 

Ga 

c8 

cB 

cO 

52 

fO 

03 

76 











BOdO 

: 

4c 

le 

80 

ad 

00 

85 

c9 

00 

54 












80dB 

: 

dO 

12 

ad 

01 

85 

c9 

00 

dO 

B5 

8000 

: 

ad 

Oe 

de 

29 

fe 

8d 

0g 

de 

5t 

80b0 

: 

Ob 

ad 

00 

8b 

29 

f e 

Bd 

04 

fc 

BOOS 

: 

a9 

00 

Bd 

00 

85 

Bd 

01 

85 

e9 

80g8 

: 

d4 

4c 

00 

Bl 

ad 

00 

85 

Bd 

lf 

8010 

: 

Bd 

02 

B5 

Bd 

03 

85 

8d 

04 

4c 

80f 0 

: 

00 

d4 

ad 

01 

85 

8d 

01 

d4 

58 

8018 

: 

85 

Bd 

05 

85 

aO 

00 

20 

78 

dl 

BOf 8 

: 

ad 

00 

Bb 

09 

01 

Bd 

04 

d4 

eO 

0020 


Bl 

b9 

00 

Sa 

Bd 

00 

de 

ad 

77 

8100 

: 

ad 

02 

85 

c9 

00 

dO 

12 

ad 

73 

8028 

: 

01 

de 

49 

ff 

39 

01 

Ba 

d9 

63 

BIOS 

: 

03 

B5 

c9 

00 

dO 

Ob 

ad 

00 

5c 

B030 

: 

01 

8a 

dO 

4c 

ad 

00 

85 

d9 

d9 

8110 


Bb 

29 

fe 

Bd 

Ob 

d4 

4c 

2d 

84 

8038 

: 

09 

B5 

dO 

Ob 

ad 

01 

85 

d9 

46 

8118 

: 

81 

ad 

02 

B5 

Bd 

07 

d4 

ad 

61 

8040 

: 

Oa 

85 

dO 

03 

4c 

7d 

80 

ad 

af 

Bl 20 

: 

03 

85 

Bd 

OB 

d4 

ad 

00 

8b 

lc 

B04B 

: 

02 

B5 

d9 

09 

B5 

dO 

Ob 

ad 

Ob 

8128 

: 

09 

01 

8d 

Ob 

d4 

ad 

04 

85 

4c 

8050 

: 

03 

85 

d9 

Oa 

B5 

dO 

03 

4c 

51 

8130 

: 

c9 

00 

dO 

12 

ad 

05 

85 

c9 

lc 

8058 

: 

7d 

BO 

ad 

04 

85 

d9 

09 

85 

58 

8138 

: 

00 

dO 

Ob 

ad 

00 

Bb 

29 

fe 

18 

8060 

: 

dO 

Ob 

ad 

05 

B5 

d9 

Oa 

85 

lc 

8140 


Bd 

12 

d4 

4c 

5a 

81 

ad 

04 

05 

8068 

: 

dO 

03 

4c 

7d 

80 

ae 

OB 

85 

25 

8148 

: 

85 

Bd 

Oe 

d4 

ad 

05 

B5 

8d 

g6 

8070 


b9 

09 

85 

9d 

00 

85 

eB 

b9 

06 

8150 

: 

Of 

d4 

ad 

00 

8b 

09 

01 

8d 

55 

8078 

: 

Oa 

B5 

9d 

00 

85 

4c 

c9 

BO 

Bf 

8158 

: 

12 

d4 

Ga 

a9 

fe 

Bd 

00 

de 

da 

8080 


ea 

ad 

00 

85 

d9 

09 

85 

dO 

8f 

8160 

: 

ad 

01 

de 

49 

ff 

29 

08 

c9 

eb 

8088 

: 

10 

ad 

01 

85 

d9 

Oa 

85 

dO 

05 

B168 

: 

OB 

dO 

09 

ad 

Oe 

de 

09 

01 

be 

8090 

: 

08 

a9 

00 

Bd 

00 

85 

Bd 

01 

83 

8170 

: 

Bd 

Oe 

de 

60 

4c 

lc 

80 

60 

bO 

B098 

: 

85 

ad 

02 

85 

d9 

09 

85 

dO 

c3 

8178 

s 

Ga 

ad 

00 

85 

c9 

00 

dO 

Od 

g4 

BOaO 


10 

ad 

03 

B5 

d9 

Oa 

85 

dO 

9e 

8180 


ad 

01 

85 

c9 

00 

dO 

06 

a9 

3a 

BOaB 

: 

OB 

a9 

00 

8d 

02 

85 

8d 

03 

bf 

B1BB 

: 

00 

Bd 

OB 

B5 

60 

ad 

02 

85 

8B 

BObO 

: 

85 

ad 

04 

B5 

d9 

09 

85 

dO 

5b 

8190 

: 

c9 

00 

dO 

Od 

ad 

03 

85 

c9 

cc 

BObB 

: 

10 

ad 

05 

85 

d9 

Oa 

85 

dO 

36 

8198 

: 

00 

dO 

06 

a9 

02 

8d 

08 

85 

6f 

80c O 


08 

a9 

00 

Bd 

04 

85 

Bd 

05 

fb 

BlaO 

: 

60 

ad 

04 

85 

c9 

00 

dO 

Od 

83 


Listing 2. »SY«, die Tastaturabfrage zum Synthesizer. Eingab* tit 
dem MSE. Achten Sie auch auf das Leerzeichen vor dem »SY«. 


■SlaQ 

: 

ad 

05 

85 

c9 

00 

dO 

06 

a9 

64 

BlbO 

: 

04 

Bd 

08 

85 

60 

a9 

06 

0d 

b4 

BlbB 

: 

08 

85 

60 

60 

a9 

06 

Bd 

08 

b8 

aico 

: 

85 

60 

04 

00 

98 

9B 

b8 

a8 

f 9 


Programm : tasten 8a00 8a56 


BaOO 

s 

7f 

40 

7f 

OB 

fd 

02 

f d 

01 

6a 

8a08 

: 

fd 

40 

fb 

02 

fb 

01 

fb 

40 

9d 

BalO 

: 

fb 

OB 

f 7 

02 

f 7 

01 

f 7 

40 

35 

8a 18 

: 

ef 

02 

ef 

01 

ef 

40 

ef 

OB 

f 5 

8 a 20 

: 

df 

02 

df 

40 

df 

08 

bf 

02 

41 

8 a 28 


bf 

01 

bf 

40 

bf 

08 

f d 

10 

b4 

Ba30 

: 

fb 

80 

fb 

04 

fb 

10 

f b 

20 

5b 

8a38 

: 

f 7 

80 

f 7 

10 

f 7 

20 

ef 

80 

bO 

Ba40 

: 

Bf 

04 

ef 

10 

ef 

20 

df 

80 

bO 

8a48 

: 

df 

10 

df 

20 

bf 

80 

bf 

04 

32 

Ba50 

: 

bf 

20 

00 

00 

00 

Od 

55 

05 

e7 


Listing 3. » TASTEN«. Verwenden 
Sie zur Eingabe bitte den MSE 
(Seite 7). Achten Sie auch hier auf 
das Leerzeichen vor dem »TASTEN«. 


Elektronisches 

Akkordeon 

Mit diesem Programm steht dem Einzug 
des C 64 in die Hausmusik nichts mehr im 
Wege. Spielen Sie auf der Tastatur wie auf 
einem richtigen Akkordeon. 

W f ersieh das Listing genauer betrachtet, wird bemer¬ 
ken, wie einfach doch das Programm aufgebaut ist. 
Trotzdem produziert es erstaunlich harmonische 
Klänge. Außerdem wurden die einzelnen Akkorde so auf der 
Tastatur verteilt, daß geübte Akkordeonspieler nach einer 
kurzen Eingewöhnungsphase wie auf einem »echten« Instru¬ 
ment spielen können. 

Wenn das Programm mit »RUN« gestartet wurde, befindet 
man sich sofort im Spielmodus. Wie die Tastatur mit den 
Akkorden belegt ist, zeigt unser Bild. 

Durch Druck auf die große Space-Taste gelangt man in 
einen Änderungsmodus. Folgende Funktionen sind über die 
Zifferntasten verfügbar (jeweils vorher Space-Taste drücken): 

»1«: Baß auf Sägezahnschwingung schalten. 

»2«: Baß auf Rechteckschwingung schalten. 

Ü'ai* 



Das Bild zeigt die Belegung der Tastatur mit den ein¬ 
zelnen Bässen (Großbuchstaben) beziehungsweise 
Akkorden (Kleinbuchstaben) 


»3«: Baß auf Dreieckschwingung schalten. 

»4«: Baß auf Rauschen schalten. 

»5«: Akkord auf Sägezahnschwingung schalten. 

»6«: Akkord auf Rechteckschwingung schalten. 

»7«: Akkord auf Dreieckschwingung schalten 
»8«: Akkord auf Rauschen schalten. 

»9«: Kleine Rechteckimpulsweite einschalten (nur in 
Verbindung mit Rechteckschwingung). 

»0« Große Rechteckschwingung einschalten (nur in 
Verbindung mit Rechteckschwingung). 

»*« Einschaltwerte wiederherstellen p»1«, »5« und »9«), 
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Es empfiehlt sich übrigens, den Computer mit einem Uber¬ 
spielkabel über die Audio/Video-Buchse an eine Stereoan¬ 
lage anzuschließen. Man erhält so einen wesentlich besse- 

670 POKE E,20 :POKE F,26:REM C-DUR 

680 GOTO 5100 

710 POKE A,134:POKE B,6 

< 137> 

ren Klang, vor allem fülligere Bässe. Auch sollte man ruhig 

< 160 > 
<054> 

einmal mit der ADSR-Hüllkurve experimentieren. Sie wird in 

720 POKE C,133:POKE D,6 

<215> 

den Zeilen 10 bis 60 festgelegt. 


730 POKE E,132:POKE F,6 :REM G 

<070> 


740 GOTO 5000 

<204> 

Technisches zum Programm 


750 POKE A,109:POKE B,16 

760 POKE C,137:POKE D,19 

<150> 

<216> 


770 POKE E,20 :POKE F,26:REM G-DUR 

<241 > 



780 GOTO 5100 

<006> 

Das eigentliche Problem bestand darin, die 40 

Tasten 

810 POKE A,208:POKE B,5 

820 POKE C,207:POKE D,5 

<238> 

<143> 

schnellstmöglich abzufragen. Eine Kolonne von IF-THEN- 

830 POKE E,206:POKE F,5 :REM F 

<126> 

Anweisungen wäre sicher nicht die Optimallösung. Der Pro- 

840 GOTO 5000 

< 050 > 

grammautor hatte da folgende geniale Idee: In den Zeilen 80 

850 POKE A,103:POKE B,17 

860 POKE C,59 :POKE D,23 

<025> 

<064 > 

und 90 wird auf einen Tastendruck gewartet, dieser als Buch- 

870 POKE E,69 :POKE F,29:REM F-DUR 

<199> 

stabe beziehungsweise Zahl übernommen und einem Zah- 

BB0 GOTO 5100 

<106> 

lenwert (ASC-Funktion) zugeordnet. Der Wert wird nun in ein 
anderes Format umgerechnet (Zeilen 300, 320, 340 und 

910 POKE A,194:POKE B,7 

920 POKE C,193:POKE D,7 

930 POKE E,192:POKE F,7 :REM B 

< 146> 
<051 > 
<032> 

360) und über eine Reihe von ON-GOTO-Befehlen der ent- 

940 GOTO 5000 

<150> 

sprechende Dreiklang/Baß angesprungen. 


950 POKE A,137:POKE B.19 

< 128> 

Auf eine aufwendige Bildschirmgestaltung wurde zum 

960 POKE C,59 :POKE D,23 

970 POKE E,3 :POKE F,31:REM B-DUR 

< 164> 

< 189> 

Wohle des abtippenden Lesers verzichtet. 


980 GOTO 5100 

<206> 

(Hermann Huck/tr) 

1010 POKE A,46 :POKE B,5 

< 198> 



1020 POKE C,45 :POKE D,5 

<164> 



1030 POKE E.44 :POKE F,5 :REM ES 

<018> 



1040 GOTO 5000 

<252> 



1050 POKE A,129:POKE B,15 

<038> 

1 REM AKKORDEON (2) 

<241 > 

1060 POKE C,178:POKE D,20 

< 121 > 

2 REM VON HERMANN HUCK 

<244> 

1070 POKE E,20 :POKE F,26:REM ES-DUR 

<015> 

3 REM 7987 WEINGARTEN 

<185> 

1080 GOTO 5100 

<052> 

4 REM LAURASTR.34 

<004> 

1110 POKE A,233: POKE B,6 

<105> 

6 A=54272:8=54273:REM FUER TONHOEHE 

<234> 

1120 POKE C,232:POKE D,6 

<011> 

7 C=54279:D=54280:REM FUER TONHOEHE 

< 128 > 

1130 POKE E,231:POKE F,6 :REM AS 

<201 > 

8 E=54286:F=54287:REM FUER TONHOEHE 

<022> 

1140 GOTO 5000 

< 096 > 

10 POKE 54277,1*16+15:REM ANSCHL.ABSCHW. 

< 13B> 

1150 POKE A,103:POKE B,17 

<071 > 

20 POKE 542B4,1*16+15:REM ANSCHL.ABSCHW. 

<084> 

1160 POKE C,178:POKE D,20 

<221 > 

30 POKE 54291,1*16+15:REM ANSCHL.ABSCHW. 

<02B> 

117t. POKE E, 160: POKE F,27:REM AS-DUR 

<076> 

40 POKE 54278,15*16+B:REM HALT.AUSKL. 

<112> 

1180 bOTO 5100 

< 152> 

50 POKE 54285,15*16+8:REM HALT.AUSKL. 

<057> 

1210 POKE A,227:POKE B,4 

<111> 

60 POKE 54292,15*16+B:REM HALT.AUSKL. 

<002> 

1220 POKE C,226:POKE D,4 

< 017 > 

70 POKE 54296,15:REM LAUTST. 

<169> 

1230 POKE E,225:POKE F,4 :REM D 

<254> 

71 TL=255 :REM TASTENVERH.LOW GRUNDEIN. 

<214> 

1240 GOTO 5000 

<196> 

72 TH=0 :REM TASTENVERH.HIGH GRUNDEIN. 

<005 > 

1250 POKE A,162:POKE B,14 

<076> 

74 WB=33 :REM WELLENFORM BASS GRUNDEIN. 

< 1B2> 

1260 POKE C,137:POKE D,19 

<20B> 

76 WA=33 :REM WELLENFORM AKK. GRUNDEIN. 

<254> 

1270 POKE E,157:POKE F,24:REM D-DUR 

< 181 > 

77 POKE 54274,TL:POKE 54275,TH 

<0B6> 

1280 GOTO 5100 

<254 > 

78 POKE 54281,TL:POKE 54282,TH 

<017> 

1310 POKE A.82 :POKE B,7 

< 134> 

79 POKE 54288,TL:POKE 54289,TH 

< 164> 

1320 POKE C.81 :POKE D,7 

<100> 

80 GET TS:IF TS=""THEN 80 

< 188 > 

1330 POKE E,80 : POKE F,7 : REM A 

<038> 

90 X=ASC(T*> 

<017> 

1340 BOTO 5000 

<042> 

100 IF X<=58 THEN 200 

< 154> 

1350 POKE A,162:POKE B.14 

< 17S> 

110 IF X>=65 THEN 250 

<086> 

1360 POKE C,112:POKE D,1B 

<020> 

120 GOTO 80 

< 098 > 

1370 POKE E,237:POKE F,21:REM A-DUR 

<087> 

200 IF X>=44 AND X<=50 THEN 300 

<125> 

1380 GOTO 5100 

<09B> 

210 IF X>=51 THEN 320 

<U0> 

1410 POKE A,124:POKE B.5 

< 16B> 

215 IF X=32 THEN 5200 

< 1 45 > 

1420 POKE C,123:POKE D,5 

<073> 

220 GOTO 80 

< 198 > 

1430 POKE E,122:POKE F,5 :REM E 

< 1B3> 

250 IF X<=90 AND X>=78 THEN 360 

< 04 5 > 

1440 GOTO 5000 

< 142 > 

260 IF X<=77 THEN 340 

<077> 

1450 POKE A.208:POKE B,13 

< 152> 

270 GOTO 80 

< 250 > 

1460 POKE C,109:POKE D,16 

< 122> 

300 X=X—43 

< 196> 

1470 POKE E,237:POKE F,21:REM E-DUR 

< 191 > 

310 ON X GOTO 2150,80,2210,2250,1750,610,7 


1480 GOTO 5100 

< 198> 

10 

< 188> 

1510 POKE A,56 :POKE B.8 

<246> 

320 X=X-50 

<151> 

1520 POKE C,55 :POKE D,B 

<212> 

330 ON X GOTO 1210,1310,1410,1510,1610,165 


1530 POKE E,54 :POKE F,8 :REM H 

<0B8> 

0,1710,1550 

<002> 

1540 GOTO 5000 

<244> 

340 X=X—64 

<237> 

1550 POKE A,78 :POKE B,12 

<204> 

350 ON X GOTO 1150,2010,1910,950,910,850,6 


1560 POKE C,109:POKE D,16 

<224> 

50,750,1310,1250,1350,1450,2110 

<234> 

1570 POKE E,178:POKE F,20:REM H-DUR 

< 106> 

360 X=X—77 

< 194> 

15B0 GOTO 5100 

<044> 

370 ON X GOTO 2050,1410,1510,1110,810,1050 


1610 POKE A,40 :POKE B,6 

< 171 > 

,610,1210,1950,1010,1850,710,1810 

<060> 

1620 POKE C,39 :POKE D,6 

<235> 

610 POKE A,91 :POKE B,4 

<140> 

1630 POKE E,38 :POKE F,6 :REM FIS 

<229> 

620 POKE C,90 :POKE D,4 

<106> 

1640 GOTO 5000 

<088> 

630 POKE E,89 :POKE F,4 :REM C 

< 014 > 

1650 POKE A,157:POKE B,4 

<204> 

640 GOTO 5000 

< 104 > 

1660 POKE C,156:POKE D,4 

<U0> 

650 POKE A,103:POKE B,17 

<079> 

1670 POKE E,155:POKE F,4 :REM CIS 

<201 > 

660 POKE C,237:POKE D,21 

<163> 

1680 GOTO 5000 

<12B> 

Das Listing zum elektronischen Akkordeon. 

Verwenden Sie zur Eingabe bitte den Checksummer (Seite 6). 
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1710 

P8KE 

A,233:POKE B,6 

<197> 

1720 

POKE 

C,232:POKE D,6 

<103> 

1730 

POKE 

E, 231: POKE F,6 : REM GIS 

< 196> 

1740 

SOTO 

5000 

< 188 > 

1750 

POKE 

A,46 :POKE B,5 

<176> 

1760 

POKE 

C.45 :POKE D,5 

<142> 

1770 

POKE 

E.44 :POKE F,5 :REM DIS 

< 008 > 

1780 

SOTO 

5000 

<22B> 

1810 

POKE 

A,109:POKE B,16 

< 196> 

1820 

POKE 

C,178:POKE D,20 

< 119> 

1830 

POKE 

E,160:POKE F,27:REM AS-MOLL 

<031 > 

1840 

SOTO 

5100 

< 050 > 

1850 

POKE 

A, 129:POKE B,15 

<076> 

1860 

POKE 

C,17B:POKE D,20 

< 159> 

1870 

POKE 

E,157:POKE F,24:REM ES-MOLL 

<046> 

1880 

SOTO 

5100 « 

<090> 

1910 

POKE 

A,112:POKE B,18 

<03B> 

1920 

POKE 

C,59 :POKE D,23 

<108> 

1930 

POKE 

E,3 :POKE F,31:REM B -MOLL 

<204> 

1940 

SOTO 

5100 

< 150> 

1950 

POKE 

A,103:POKE B.17 

< 109> 

1960 

POKE 

C.59 :POKE D.23 

<14B> 

1970 

POKE 

E,160:POKE F,27:REM F -MOLL 

< 178> 

1980 

SOTO 

5100 

<190> 

2010 

POKE 

A,103:POKE B.17 

< 169> 

2020 

POKE 

C,178:POKE D,20 

<063> 

2030 

POKE 

E,20 :POKE F,26:REM C -MOLL 

< 113> 

2040 

SOTO 

5100 

<250> 

2050 

POKE 

A,129:POKE B,15 

<022> 

2060 

POKE 

C,137:POKE D,19 

<24B> 

2070 

POKE 

E.20 :POKE F,26:REM G -MOLL 

< 157> 

2080 

SOTO 

5100 

<129> 

2110 

POKE 

A,162:POKE B,14 

< 176> 

2120 

POKE 

C.137:POKE D.19 

<052> 

2130 

POKE 

E,59 :POKE F,23:REM D -MOLL 

<202> 

2140 

SOTO 

5100 

<096> 

2150 

POKE 

A,162:POKE B,14 

<216> 

2160 

POKE 

C,103:POKE D,17 

<089 > 

2170 

PDKE 

E,237:POKE F,21:REM A -MOLL 

< 153> 

21B0 

SOTO 

5100 

< 136> 

2210 

POKE 

A,10 :POKE B,13 

<178> 

2220 

POKE 

C,109:POKE D,16 

< 120> 

2230 

POKE 

E,237:POKE F.21:REM E -MOLL 

<217> 

2240 

SOTO 

5100 

< 196> 

2250 

POKE 

A.78 :POKE B,12 

<140> 

2260 

POKE 

C,109:POKE D,16 

<160> 

2270 

POKE 

E,137:POKE F,19:REM H -MOLL 

<213> 

2280 

SOTO 

5100 

<236> 

5000 

REM BASS AUSLOESEN 

<204> 

5010 

POKE 

54276,WB 

<019> 

5020 

POKE 

54283,WB 

<220> 

5030 

POKE 

54290,WB:REM EINSCHALTEN 

<0B9> 

5040 

FOR 

[=1 TO 1 00: NEXT:REM KLANGDAUER 

< 164> 

5050 

POKE 

54276,WB-1 

< 171 > 

5060 

POKE 

54283,WB-1 

< 116> 

5070 

POKE 

54290,WB-1:REM AUSSCHALTEN 

<051 > 

5080 

SOTO 

80 

<232> 

5100 

REM AKKORD AUSLOESEN 

<176> 

5110 

POKE 

54276,WA 

<115> 

5120 

POKE 

54283,WA 

<062> 

5130 

POKE 

54290,WA:REM EINSCHALTEN 

< 187> 

5140 

FOR 

[=1 TO 100:NEXT:REM KLANGDAUER 

<010> 

5150 

POKE 

54276,WA-1 

<013> 

5160 

POKE 

54283,WA-1 

<21 4> 

5170 

POKE 

54290,WA-1:REM AUSSCHALTEN 

<149> 

5180 

SOTO 

80 

<07B> 

5200 

SET TS.-IF T*="" THEN 5200 

<075> 

5210 

IF T*=" 1 "THEN WB=33 : SOTO B0 

<029 > 

5220 

IF T*="2"THEN WB=65 :SOTO 80 

<137> 

5230 

IF T*="3"THEN WB=17 -.SOTO 80 

<243> 

5240 

IF T*="4"THEN WB=129:GOTO 80 

<177> 

5250 

IF T*="5"THEN WA=33 :SOTO 80 

<063> 

5260 

IF T*="6"THEN WA=65 -.SOTO 80 

< 171 > 

5270 

IF T*="7"THEN WA=17 :SOTO 80 

<021 > 

5280 

IF T*="8"THEN WA=129:S0T0 80 

<2 11 > 

5290 

IF T*="9"THEN TL=255:TH=0:GOTO 77 

<240> 

5300 

IF T*="0"THEN TL=0 :TH=8:G0T0 77 

<154 > 

5305 

IF T$="*"THEN 71 

< 18B> 

5310 

SOTO 

5200 

<234> 

© G4'er 



Das Listing zum elektronischen Akkordeon (Schluß) 


Immer im Takt 

Vollwertige Baß-Begleitung, gespielt von 
Ihrem C 64. Ohne komplizierte Eingaben. 
Das Programm »Bassist« errechnet die 
Schlagzeug- und Baßbegleitung selbst. 
Fetziger Sound vom Jazz bis hin zur Unter¬ 
haltungsmusik ist vorprogrammiert. 

J eder Amateurmusiker wird mit uns einer Meinung sein: 
Die Klangqualitäten des C 64 qualifizieren ihn als 
Rhythmus- und Begleitinstrument! 

Oft dürfte dies jedoch an der nicht ganz einfachen Program¬ 
mierung des Sound-Chips gescheitert sein. »Bassist« befreit 
Sie vom Betriebssystem, indem er die Steuerung des Sound- 
Chips nach Ihren Eingaben vornimmt. Sie müssen lediglich 
die im Jazz und in der Unterhaltungsmusik üblichen 
Harmonie-Bezeichnungen eingeben, der Computer spielt 
den entsprechenden Baß und, wenn gewünscht, auch die 
Schlagzeugbegleitung dazu. 

Das Programm ist menügesteuert und sagt dem Benutzer 
immer, was zu tun ist. Den Menüpunkt »Neuerfassen/Editie¬ 
ren« beendet man durch die Eingabe von »*«. Ansonsten 
kommt man immer mit der Fl-Taste zurück ins Hauptmenü. 

Programm-Aufbau: 

Das Programm besteht aus zwei Teilen: einem Basic- 
Programm (Listing 1) und einem Maschinensprache-Pro- 
grafn,.. (Listing 2). In diesem werden Interrupt-gesteuert die 
SID-Register bedient sowie einige zeitkritische Ton-Be¬ 
stimmungen durchgeführt. Die Funktionsweise dieses Teils 
können Sie Listing 3, dem ausführlich dokumentierten Guell- 
code entnehmen. 

SID-Tonerzeugungen 

Um die Anschlagsdynamik eines Basses zu simulieren, 
werden der VCO-Nr.l und VCO-Nr.2 mit unterschiedlichen 
Decay-Zeiten und unterschiedlichen Wellenformen ange¬ 
steuert. 

Für die Schlagzeugbegleitung wird VCO-Nr.3 benutzt. 

Parameter-Einstellungen 

Der Charakter eines Stückes wird wesentlich durch diese 
Einstellungen bestimmt: 

1. Stimmung: Die Stimmung kann um fünf Halbtöne in 
Ve-Ton-Schritten verändert werden. (Anpassen an andere 
Instrumente oder Transponieren eines Stückes!) 

2. Tempo: Das Tempo ist von 30 bis 180 Schläge in der 
Minute einstellbar. 

3. Baß-Filter: Vom dunklen String-Bass bis zum hellen 
Elektro-Baß einstellbar. 

4. Baß-Noten: Diese Einstellung bestimmt, wie oft 'A-Noten 
beziehungsweise '/ 2 -Noten gespielt werden. Ist der Pfeil 
ganz links, werden alle 'A-Noten gespielt. Ganz rechts 
nur 'A-Noten. Dazwischen je nach eingestellter Wahr¬ 
scheinlichkeit. 

5. Baß-Linie: Eine gute Baß-Linie springt nicht sinnlos in 
einer Tonleiter herum. Vielmehr folgt sie einem Trend, der 
eine Zeitlang beibehalten wird und dann durch eine 
Wende wieder abgebrochen wird. Nur »Trend-Spiel« wird 
aber auch langweilig. Deshalb ist eine Mischung von 
»Trend« und »Zufall« (die hier einstellbar ist) für eine gelun¬ 
gene Baß-Linie nötig. Normalerweise wird man ziemlich 
viel »Trend« mit einem kleinen Schuß »Zufall« einstellen. 

(R. Treichler/og) 
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A4 

Anzahl V 4 -Schlage pro Takt 

HA%() 

Akkord-eigene Töne als Bit-Muster 

AP 

Adresse des Assembler-Programms 

HD%() 

Harmonie-Dauer in '/ 4 

AU 

Vergleichswert für HD zum Ausschalten im 

letzten Takt 


bei Wiederholungen: Wiederholen »bis« 
Harmonie 

AZ 

Switch für Anzählen 

HG%() 

Nummer Grundton 

CS 

= CHRS (13) 


bei Wiederholungen: Wiederholen »von* 

DT, DS 

Disk-Track/Sektor 


Harmonie 

ER, ER$, ET, ES 

Disk-Error-Variablen 

HS%() 

Skala (0 = # -Skala, 1 = b-Skala) 

F 

aktuelle Frequenz 

I.J 

Laufvariablen 

F() 

Frequenz-Tabelle für 1 Oktave 

KP 

Schulter »keine Percussion* 

F1,F2 

Eck-Frequenzen für Trend-Umkehr 

LS, MOS...MNS 

diverse Print-Strings (Striche etc). 

F6 

Frequenz-Faktor für plus VTon 

MTS 

Musik-Titel 

FA 

Frequenz-Faktor für Aufschlag 

N 

Nummer des Tones in Bit-Functions 

FK 

Frequenz-Konstante für Umrechnung auf 

P() 

Parameter 


SID-Werte 

PN 

Parameter-Nummer 

FL 

letzte gespielte Frequenz 

PRS 

Print-String während Play-Time 

FO 

Frequenz-Faktor für etwa plus Oktave 

PSS 

Print-String für Skala-Striche bei Parametern 

FS 

Adresse »Frequenz* speichern 

R 

Adresse im SID-Register 

FU 

wie FK, aber korrigiert durch Parameter 

»Stimmung* 

RB 

Adresse RUN-Switch »Bass* für IRQ- 
Programm 

FW 

aktueller Frequenz-Wert für SID 

RP 

Adresse RUN-Switch »Percussion* für 

ASS-IRQ-Programm 

H 

aktuelle Harmonie-Nummer 


H4 

V 4 -Schlag-Nummer in aktueller Harmonie 

SSO 

Ton-Bezeichnung für #- und b-Skala 

HB 

Nummer der Harmonie, bis zu der wiederholt 

SM() 

Skala-Masken für Bit-Muster generieren 


werden muß 

SP() 

Skala-Pointer (enthält Grundton-Nummer für 

HD 

Dauer der aktuellen Harmonie in '/ 4 


A...G) 

HL 

letzte Harmonie 

T0%, T2%, T3%, T4% 

Zeiten (in V S o-Sek) für Vor- und Hauptschläge 

HM 

maximale Anzahl Harmonien 

TA% 

aktive Ton-Nummer 

HN 

nächste Harmonie 

TR% 

aktiver Trend (+/-1) 

HT 

totale Harmonien 

W 

Laufvariable für Wiederholungen 

HW 

Nummer der Harmonie zum Weiterfahren nach 

WA 

Anzahl Wiederholungen 


Wiederholungen 

X,Y,Z 

Zwischen-Speicher 

HS() 

Harmonie-Bezeichnungen 

XS.ZS 

Zwischen-Speicher 

Tabelle der Varia 

bien in »Bassist« 


10 REM *********** <125> 

270 PS*=" <2SPACE >-+.**+**+**+.**+**+**+**+** 


20 REM * BASSIST * <253> 

40 REM *********** <155> 

50 : <026> 

60 REM 1985, ROBERT TREICHLER, FL-94 

97 TRIESENBERG (F.TUM LIECHTENSTEIN) <176> 
70 : <046> 

80 POKE 53280,0:POKE 53281,0:PRINT CHR*(14 

)CHR*<8>"CCLRJ" <213S 

90 IF Z=0 THEN Z=1:X*=Z*=LOAD"BASS/I 

RQ",8,1:REM ASS-PROG.EINLESEN <094> 

100 : <076> 

101 REM DEFINITIONEN 3< INIT. <170> 

102 : <07B> 

200 HM=100: DIM H* (HM) ,HD7. (HM) ,HA7. (HM) ,HS7. ( 

HM) ,HG7.(HM> ,F(11) ,P(4,2) <07B> 

205 DIM S*(12,l),SP(6),SM(11),X$<16> <1B0> 

210 REM FUNC.F.BIT-MUSTER (Y=BIT—MUSTER,Z= 

GRUNDTON,N=NR.1/2-TON UEBER GRUNDTON): <039> 
212 DEF FN BS(N)=Y OR SM(N+Z+(N+Z>11>*12): 

REM FUNCT. SET BIT <070> 

214 DEF FN BC(N)=Y AND 4095-SM(N+Z+(N+Z>11 

)*12):REM FUNCT. CLEAR BIT <214> 

216 DEF FN BT(N)=Y AND SM(N+Z+(N+Z>11)*12) 

:REM FUNCT. TEST BIT <202> 

220 F=110:FOR 1=0 TO 11:F(I)=F:F=F*1.05946 
3094:SM(I)=2TI:NEXT:REM FREQU.+BIT-MAS 
K. <106> 

230 FOR 1=0 TO 6:READ SP(I):NEXT:REM SKALA 

-POINTERS (A...G) <147> 

240 FOR J=0 TO 1:FOR 1=0 TO 12:READ 5*(I,J 

):NEXT I,J:REM #- & B-SKALEN <244> 

250 FOR 1=0 TO 4:FOR J=0 TO 2:READ P(I,J>: 

NEXT J,I:REM PARAMETER <136> 

260 C*=CHR*(13):R=54272:REM ADR.SID-REG. <073> 
265 MN4="C3SPACEX MIT 'Fl' ZURUECK INS ÜE 

NUE >" <121> 

" <077> 

267 Ml*=" C7SPACEI j t itYTtYtYtYt-tTtTtYi-tVtYt' 

" < 210 > 

268 M2*="C6SPACE1H " <233> 

269 M3*="t6SPACE>H<25SPACE>g" <185> 


275 

280 

290 

300 

301 

302 
310 

320 


321 

322 

323 

324 

325 

326 

327 

330 

340 

350 

390 

500 

501 

502 

504 

505 


<165> 

<094> 


+**+**+- *-" 

L*=“T39SPACE >" 

FA=.943874:FK=6.378901:F6=1.019440644: 

FO=l.37:Fl=150:F2=300:REM FREQU.KONST <017> 
AP=49152:FS=AP+22:RB=251:RP=252:REM AD 
R.F.ASS-PROG 


< 130> 
< 022 > 
<235> 
<024> 

<250> 


REM MENUE 

GOSUB 6950:Z=32:PRINT"CCLR,CYAN,2DDWN) 

"M04:PRINT M3* 

PRINT M2*TAB(13)"a fl fl fl J. fl X"TAB(Z)" 
g":PRINT M3*:PRINT Ml*:PRINT M0*:PRINT 
M3* <115> 

PRINT M2*"1=flEUEINGABE/ flD ITIEREN"TAB(Z 
) "g" : PRINT M3* <0B6> 

PRINT M2*"2=flBSPEICHERN AUF 2äISK"TAB(Z 
) "g" : PRINT M3* <13B> 

PRINT M2*"3=fllNLESEN VON ,3ISK"TAB (Z > "g 
":PRINT M3* <107> 

PRINT M2*“4=£LAY flASS flßLO"TAB(Z)"g":P 
RINT M3* <062> 

PRINT M2*"5=£LAY flASS+5CHLAGZEUG"TAB(Z 
)"g":PRINT M3* <010> 

PRINT M2*"6=£ARAMETER-flINSTELLUNG"TAB( 

Z)"g":PRINT M3* <099> 

PRINT M2*"7=SMDE“TAB(Z>"g":PRINT M3*:P 
RINT Ml* <136> 

GET Z*:IF Z*<"l"OR Z*>"7"THEN 330 . <094> 

Z=VAL(Z*):ON Z GOSUB 8000,2000,3000,50 
0,505,5000,900 <229> 

POKE 19B,0:GOTO 300 <161> 

END <138> 

: < 222 > 

REM PLAY <249> 

s <224> 

KP=1:GOTO 510 <163> 

KP=0 <219> 


Listing 1. Das Basic-Programm »Bassist« geben Sie 
bitte mit dem Checksummer ein 
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C 64 


MUSIK 


510 PRINT"CCLR,5SPACE}"MT*:PRINT"CDOWN> " MN 



(I):GOTO 1400 

< 194> 

*"CDOWN>" 

<012> 

1345 

NEXT I:Y=0 

<049> 

520 TR7.= 1:AZ=1:FL=0:H=0:H*(HT+1)=H*(1) :PR* 


1350 

Y=FN BS(0)+FN BS(4)+FN BS(7):REM BIT- 


— II II 

< 159> 


MUSTER F.GRUND-DREIKLANG 

<1B0> 

525 AU=HD'/.(HT)-A4+1: IF AU< 1 THEN AU=1 

<050> 

1355 

FOR 1=2 TO LEN(X*):Z*=MID*(X*,I,1> 

< 116> 

530 GOSUB 6900:GOSUB 1800 

<018> 

1360 

IF Z*="M"THEN Y=FN BC(4):Y=FN BS(3):G 


540 FOR W=1 TG WA:HB=-1:HN=1:H4=0 

<111> 


OTO 1399:REM MOLL 

<111> 

550 HL=H:H=HN:HN=H+1:IF H>HT THEN B50 

< 174> 

1365 

IF Z*="J"THEN Y=FN BC(10):Y=FN BS(11) 


555 IF H<HL THEN PR*=" MIEDERHQLUNG" 

<207> 


:GOTO 1399:REM MAJOR 

<054> 

560 IF H>HL+1 THEN PR*="ENDE MIEDERHOLUNG" 

< 15B> 

1370 

IF Z*="+"THEN Y=FN BC(7):Y=FN BS(8):G 


570 IF HN=HB+1 THEN HN=HW:HB=-1 

<070> 


OTO 1399:REM QUINTE + 

<219> 

580 IF H*(HN)="W"THEN HB=HD7. <HN) : HW=HN+1: H 


1375 

IF Z*="—"THEN Y=FN BC(7):Y=FN BS(6):G 


N=HGX(HN> 

< 179> 


OTO 1399:REM QUINTE - 

<225> 

590 FOR HD=1 TO HD7. <H) : H4=H4+1: IF H4>A4 TH 


13B0 

IF Z*="0"OR Z*="0"THEN Y=FN BC(4):Y=F 


EN H4=l 

<071 > 


N BS(3):Y=FN BC(7):Y=FN BS(6):REM VER 


600 : 

<06B> 


MINDERT 

< 170> 

601 REM TON BESTIMMEN 

< 197> 

13B2 

IF Z*="6"THEN Y=FN BS(9):G0T0 1399:RE 


602 : 

<070> 


M SEXTE 

<242> 

605 IF H*(H)="£AUSE"THEN 630 

<130> 

13B5 

IF Z*="7"THEN 1398 

<150> 

610 IF W<WA OR HCHT OR HD<AU THEN 640 

<014> 

1386 

IF Z*="9"THEN 1397 

< 119> 

620 IF HD=AU THEN TA7.=HG7. (H) : GOTO 680:REM 


13B7 

IF Z*="1"THEN 1396 

<084> 

LETZTER TAKT BASS AUSHALTEN 

< 161 > 

1388 

IF Z*=“3"THEN 1395 

<054> 

630 TA7.= 12:FW=0:GOTO 720:REM PAUSE 

<071 > 

1390 

GOTO 1399 

<207> 

640 IF (H4 AND 1) OR HD=HD7. (H) THEN 650 

<210> 

1395 

Y=FN BS(9):REM 13-ER 

< 16B> 

645 IF RND (0><P(3,0)THEN 630 

<203> 

1396 

Y=FN BS(5):REM 11-ER 

<101> 

650 IF HD=1 AND HG7. (H) < >HG7. <HL) THEN TA'/.=HG 


1397 

Y=FN BS(2):REM 9-ER 

<157> 

X (H> :GOTO 680:REM NEUE HARMONIE BEGINN 


1398 

IF FN BT(11)=0 THEN Y=FN BS(10):REM 7 


T 

<079> 


-ER, WENN NICHT SCHON MAJOR-7 

<047> 

660 IF HD< >HDX (H) OR HGX <H> =HG7. (HN) THEN 670 


1399 

NEXT I 

<213> 

: REM ES FOLGT KEINE NEUE HARMONIE 

< 174> 

1400 

HA'/. (HT)=Y: PRINT: PRINT X*TAB(9)": "; 

<156> 

662 IF H* (HN) = " PAUSE "THEN TAX=HGX <H) : GOTO 


1410 

FOR 1=0 TO 11:IF FN BT(I)=0 THEN 1450 

< 179> 

680:REM PAUSE FOLGT 

<011> 

1420 

PRINT S*(I+Z+(I + Z>U)*12,X>" "; 

<120> 

665 SYS AP+12,HA7.(H) ,HA7.(HN> ,HG7.(H) ,HGX(HN 


1450 

NEXT I:PRINT:RETURN 

< 179> 

>, TR7., TAX: GOTO 680:REM UEBERG. TON SUCH 


1500 

: 

<206> 

EN 

<099> 

1501 

REM ANZAEHLEN 

< 183> 

670 IF RND (0)<P(4,0> THEN SYS AP+15, HA7. (H> , 


1502 

s 

<208> 

TAX:GOTO 680:REM ZUFALLS-TON 

<074> 

1510 

SYS AP:REM INIT.IRQ-PROG. 

<254> 

675 SYS AP+9,HAZ(H),TRX,TAX:REM NAE.AKKORD 


1511 

PRINT: PR INT "STIMMTON : "S* (TA7., HS7. (H) 


EIG.TON SUCHEN 

<253> 


> 

<051 > 

680 F=F(TAX):IF F=FL OR F»FO<FL AND F+FOF 


1512 

POKE RB,1:Z=FW:FOR 1=1 TO A4 

<036> 

L THEN F=F+F:REM FREQU. 

<1B9> 

1514 

SYS AP+6,128,Z,0,"":Z=0:NEXT 

IF PEEK(FS)THEN 1515 

< 183> 

oVifl In/. I+t*kr\rL; : Ir rsrl IHtN IKA-lSnhrl 

S46H Ol 

151 D 

<164> 

TREND BESTIMMEN 

<055> 

1516 

PRINT:PRINT"SNZA£HLEN:"; 

<136> 

695 IF F>F2 THEN TR7.=-1:REM ...DABEI ECKFR 


1520 

POKE RP,1:FOR 1=1 TO A4 

< 194> 

EOU. BEACHTEN 

< 112> 

1530 

SYS AP+6,128,0,0,STR*(I):NEXT 

< 122> 

700 : 

< 16B> 

1540 

IF KP THEN POKE RP,0 

<007> 

701 REM TON AUSGEBEN 

<125> 

1550 

PR*=" “:RETURN 

< 117> 

702 : 

< 170> 

1800 

: 

<254> 

710 FL=F:FW=F*FU:REM FREOU.IN SID-WERT UMR 


1801 

REM FREQU.UMRECHN.KONST. & TEMPO RECH 


ECHNEN 

<254> 


NEN/—>ASS.PROG. 

<213> 

720 IF <HD>1 OR H* <H)=H*(HL))AND H4>1 THEN 


1802 

: 

<000> 

800 

< 199> 

1820 

FU=FK*F6 TP(0,0):T0X=0 

< 196> 

730 IF AZ THEN GOSUB 1500:AZ=0 

<243> 

1B40 

REM VORSCHLAEGE BEI TEMPI<130 ->1/16- 


740 IF PEEK(FS)THEN 740:REM WARTE BIS LETZ 



NOTEN, WENN SCHNELLER ->l/8-TRI0LEN 

<183> 

TER TON V.IRQ-ROUT.BEHANDELT ... 

<025> 

1850 

IF P(l, 0X130 THEN Z=INT (900/P (1 ,0) + . 


750 IF PR*>""THEN PRINT:PRINT:PRINT PR*:PR 



5) : T2X=2*Z: T3X=T27.+Z: T47.=T3X+Z: GOTO 1 


*=" " 

< 106> 


870 

< 121 > 

760 PRINT:PRINT H*(H>TAB(9)": ";:REM ..ERS 


1860 

Z=INT(1200/P(1,0)+.5):T2X=Z:T3X=T2X+Z 


T DANN HARM0N1E-BEZ. AUSGEBEN 

< 164> 


: T47.=T3'/.+Z: GOTO 1870 

< 176> 

800 SYS AP+6,H4,FW,FW*FA,S*(TA7.,HSX(H) ) : RE 


1870 

POKE R+5,10+T4X/50:REM BASS-DECAY AUF 


M TON MIT BEZ. ->AS5-PR0G 

< 113> 


GRUND TEMPO 

<052> 

820 IF PEEK (197) =4 THEN HD=HD7. (H) : HN=HT+1: 


1880 

SYS AP+18 , T2X , T37., T47.: RETURN 

<092> 

W=WA:REM ABBRUCH 

<198> 

1897 

: 

<095> 

830 NEXT HD:GOTO 550 

< 172> 

1B98 

REM TON -> SID 

< 117> 

850 NEXT W:SYS AP+6,0,0,0,"":SYS AP+3:REM 


1899 

3 

<097> 

IRQ-ROUT. AUS 

<190> 

2000 

3 

< 198> 

890 FOR 1=0 TO 1500:NEXT:RETURN 

<250> 

2001 

REM ABSPEICHERN AUF DISK 

< 174> 

900 : 

< 114> 

2002 

s 

<200> 

901 REM ENDE 

< 176> 

2010 

PRINT"CCLR,DOWNJßBSPEICHERN AUF DISK" 

< 187 > 

902 : 

< 116> 

2020 

INPUT"C2D0WN >flUSIK-IITEL "; MT* 

< 192> 

990 END 

<230> 

2030 

GOSUB 2700:IF ER THEN RETURN 

<232> 

1300 : 

<006> 

2040 

OPEN 2,8,2,MT*+",S,W":GOSUB 2800:IF E 


1301 REM WERTE ZU EINER HARMONIE GENERIERE 



R=0 THEN 2050 

< 144> 

N 

<240> 

2042 

IF ER< >63 THEN RETURN 

<062> 

1302 : 

<008> 

2044 

PRINT"CDOWNJMEBERSCHREIBEN <J/N>? 

<054> 

1308 Z=SP(ASC(X*>-193>:Z*=MID*(X*,2,1 > :X=0 

<210> 

2046 

GET Z*: IF Z*<>"J"AND Z*<>"N"THEN 2046 

<090> 

1310 IF Z*="#"THEN Z=Z+1:GOTO 1335 

<07B> 

2048 

PRINT Z*:IF Z*="N"THEN 2090 

< 1B2> 

1320 IF Z*="B"THEN Z=Z-1-<Z<1 ) *12:X=1:GOTO 


2049 

CLOSE 2:PRINT#15,"S0:"+MT*:GOTO 2040 

<0B3> 

1335 

<111> 

2050 

PRINT#2,HT ; C* ; A4 ; C* ; WA : FOR 1=0 TO 4:P 


1330 IF Z*<>" "THEN X*=LEFT*(X*,1 )+ " "+MID 



RINT#2,P(I,0) : NEXT 

<120> 

*<X*,2> 

<032> 

2060 

GOSUB 2800:IF ER THEN RETURN 

<024> 

1332 IF Z=3 OR Z=8 THEN X=1:REM C- ?< F-SKA 


2070 

FOR 1 = 1 TO HT:PRINT#2,H*(I> ;C*;HA7.(I> 


LEN MIT B (NICHT #> 

< 194> 


; C*; HS7. ( I ) ; C*; HG7. ( I ) ; C*-, HD7. ( I ) : NEXT I 

<050> 

1335 H*(HT)=X*:HG7.(HT)=Z:HS7.(HT>=X:REM BEZ 


2090 

GOSUB 2800:CLOSE 2:CLOSE 15:RETURN 

<050> 

./GRUNDTON/SKALA (# DDER B) 

<020> 




1340 FOR 1=0 TO HT—1: IF H*(I)=X*THEN Y=HA7. 


Listing 1. »Bassist« (Fortsetzung) 
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C 64 


2600 

- 

<036> 


—HOTEN{RVOFF,9SPACE>1/2":PRINT PS* 

< 190> 

2700 

□PEN 15,8,15,"10" 

<033> 

5150 

PRINT"{2DQWN}5) IREND{4SPACE,RVSON}flA 


2800 

INPUT#15,ER,ER*,ET,ES:IF ER=0 THEN RE 



SS-i.1 NIE {RVOFF , 6SPACE > XUFALL " : PR I NT P 



TURN 

<251 > 


S* 

<035> 

2820 

PRINT:PRINT ER;ER*;ET;ES:IF ER<20 OR 


5160 

PRINT"{2DQWN}"MN*"{HOME}" 

<000> 


ER=63 THEN RETURN 

<210> 

5165 


<061 > 

2850 

s 

<032> 

5170 

FOR PN=0 TO 4:GOSUB 5500:NEXT 

<005> 

2900 

CLOSE 2:CLOSE 15 

<026> 

5180 

GOSUB 6900:PN=0:F=220 

<006> 

2910 

s 

<092) 

5190 

GOSUB 1800:SYS AP:SYS AP+6,0,F*FU,0," 


2950 

PRINT:PRINT"C2D0WNX XASTE DRUECKEN >": 



":POKE RB,1 

< 144> 


POKE 198,0 

<052> 

5200 

Z=PEEK <197):IF Z=4 THEN 5900 

<031 > 

2960 

GET Z*:IF Z*=""THEN 2960 

<017> 

5210 

IF Z=56 THEN PN=0 

<234> 

2980 

RETURN 

<244> 

5220 

IF Z=59 THEN PN=1 

< 189> 

3000 

: 

< 182> 

5230 

IF Z=B THEN PN=2 

<084> 

3001 

REM EINLESEN VON DISK 

<108> 

5240 

IF Z=ll THEN PN=3 

<095> 

3002 

: 

< 184> 

5250 

IF Z=16 THEN PN=4 

< 178 > 

3010 

Pf^INT“ {CLR1XITEL EINGEBEN ODER 'AETUR 


5290 

IF Z< >40 AND Z< >43 THEN 5200 

< 164> 


N• FUER":PRINT"<DOWN 1XNHALTSVERZEICHN 


5300 

I=(P(PN,2)-P(PN,1))/30:IF Z=43 THEN I 



IS{DOWN}" 

<071 > 


=-I 

< 146> 

3020 

MT*="":INPUT MT*:IF MT*>“"THEN 3040 

<024> 

5310 

P <PN,0)=P(PN,0)+1 

<253> 

3030 

GOSUB 3500:IF ER DR MT*=""THEN RETURN 

<0BB> 

5320 

IF P(PN,0)<P(PN,1)THEN P(PN,0)=P<PN,1 


3040 

GOSUB 2700:OPEN 2,8,2,"0:"+MT*+",S,R" 



) 

<05B> 


:GOSUB 2800:IF ER THEN RETURN 

<078> 

5330 

IF P(PN,0)>P<PN,2> THEN P<PN,0)=P<PN,2 


3050 

INPUT#2,HT,A4,WA:FOR 1=0 TO 4:INPUT#2 



) 

<062> 


,P<I,0):IF P(I,0)<P(1,1)THEN P(I,0)=P 


5400 

S 

<042> 


<1 , 1) 

< 136> 

5410 

GOSUB 5500:IF PN=0 OR PN=1 THEN 5190 

< 155> 

3055 

IF P(I,0)>P<I,2)THEN P(I,0)=P(I,2> 

<212> 

5415 

IF PN=2 THEN POKE R+22,P<2,0) 

< 115> 

3060 

NEXT I:GOSUB 2800:IF ER THEN RETURN 

<252> 

5420 

GOTO 5200 

<090> 

3065 

PRINT"{CLR}"MT* M <2SPACE>:"STR*(A4>"/4 


5490 

s 

< 132> 


-IAKT":PRINT"{DOWNJÜARMONIE{2SPACE}flA 


5500 

PRINT"{HOME,DOWN}":FOR 1=0 TO PN:PRIN 



UER IN 1/4IDOWN}" 

< 135> 


T"{4DOWN}";:NEXT 

< 183> 

3070 

FOR 1=1 TO HT;INPUT#2,H*<I):Z=ASC(H*( 


5510 

Z=INT(30/<P(PN,2)—P(PN,1))*(P(PN,0)—P 



I)+CHR*(0)):IF Z=87 OR Z=208 THEN 308 



(PN, 1) ) +3. 5) 

<052> 


0:REM W+P 

<052> 

5520 

PRINT LEFT*(L*,Z)" f'LEFT*<L*,35-Z> 

<097> 

3075 

IF Z<193 OR Z>199 THEN PRINT:PRINT"** 


5530 

RETURN 

<254> 


* AILE-flEHLER ***“:GOTO 2900 

< 181 > 

5900 

: 

<034> 

3080 

I NPUT#2, HA7. (I > , HS7. < I) , HG7. ( I) , HD7. < I ) 

<206> 

5910 

SYS AP+3:RETURN 

< 153> 

3090 

PRINT H*(I)TAB(12)HDX(I):NEXT I:FOR I 


6900 

: 

<016> 


=0 TO 500:NEXT:GOTO 3900 

<004> 

6901 

REM INIT.SID-REGISTERS: BAS5=VC0#l+2, 


3500 

s 

< 174> 


PERC=VC0#3 

<039> 

3510 

GOSUB 2700;IF ER THEN RETURN 

< 188> 

6902 

s 

<018> 

3515 

OPEN 2,8,2,"#":DT=18:DS=1 


6910 

35SUB 6950:POKE R+10,1:POKE R+12,8:RE 


3520 

PRINT#15,"Ul";2;0;DT;DS 



n VC0#2 

<085> 

3522 

PRINT"{CLRTXNHALT:":PRINT"{DOWN}flR XI 


6920 

POKE R+15,B0:REM VC0#3 

< 193> 


TEL":PRINT"TT TTTTTTDOWN>" 

<031 > 

6930 

POKE R+22,P(2,0):POKE R+23,240+8+2+1: 


3525 

PRINT#15,"B-P";2;0:BET#2,Z*:DT=ASC < Z* 



POKE R+24,16+15:REM FILTER & VOLUME 

<090> 


+CHR*(0)):GET#2,Z*:DS=ASC(Z*+CHR*(0)) 

<022> 

6940 

RETURN 

< 140> 

3530 

FOR 1=0 TO 7:PRINT#15,"B-P";2;1*32+2 

<045> 

6950 

FOR I=R+24 TO R STEP-1:POKE 1,0:NEXT: 


3540 

GET#2,Z*:IF Z*<>CHR*<129)THEN 3600 

< 165> 


RETURN 

< 116> 

3550 

GET#2,Z*,Z* 

<0B7> 

8000 

s 

< 102> 

3560 

X*=“":FOR J=1 TO 16:GET#2,Z*:X*=X*+Z* 


8001 

REM NEUEINGABE / EDITIEREN 

<097> 


:NEXT:Z* CI)=X*:PRINT I;X* 

< 120> 

8002 

- 

<104> 

3600 

NEXT:PRINT"{3D0WNTIASTE DRUECKEN:{DOW 


8100 

IF HT<1 THEN PRINT"{CLR1HEUEINGABE":G 



N>":PRINT"ÜR.0...7 = DIESEN XITEL EIN 



OTO 8150 

< 140> 


LESEN" 

<244> 

8102 

PRINT"{CLRTÜEUEINGABE ODER flDITIEREN 


3610 

PRINT"'SPACE'{2SPACE>= WEITER IM XNHA 



(N/E)?"; 

< 161 > 


LT SVER ZEICHNIS" 

<120> 

8105 

GET Z*:IF Z*=""THEN 8105 

<019> 

3620 

PRINT"'Fl'{5SPACE>= ZURUECK INS UENUE 


8110 

PRINT Z*:IF Z*="N"THEN 8150 

< 144> 


" 

<240> 

8120 

IF Z*="E"THEN HL=HT:GOTO 8200 

<0B7> 

3640 

GET Z*:IF Z*=""THEN 3640 

<029 > 

8130 

GOTO Bl00 

<012> 

3650 

IF Z*=CHR*<133)THEN MT*="“:GOTO 3900 

<212> 

Bl 50 

HL=0:A4=4:WA=1 

<017> 

3660 

IF Z*=>"0"AND Z#<"8"THEN MT*=Z*(VAL(Z 


8200 

HT=0:H=0 

<099> 


*)):GOTO 3900 

< 175> 

8210 

PRINT"{DOWNTflNZAHL 1/4 PRO IAKT{2SPAC 


3670 

IF Z*<>" "THEN 3640 

<222> 


E}"A4:PRINT TAB(20)"{UP}";:INPUT A4 

<052> 

3680 

IF DT<1 OR DT>35 THEN PRINT"{DOWN>KEI 


8220 

PRINT"{DOWN}ANZAHL SESAMT-fllEDERHOLUN 



NE WEITEREN XITEL":GOTO 3640 

<058> 


GEN{2SPACE}"WA:PRINT TAB(29)"{UP}";:I 


3690 

GOTO 3520 

<234> 


NPUT WA 

<023> 

3900 

CLOSE 2:CLOSE 15:RETURN 

<097> 

8300 

PRINT"{CLRIflARMONIEFOLGE EINGEBEN (*= 


5000 

: 

<150> 


flNDE EINGABEN){DOWN}" 

<026> 

5001 

REM PARAMETER AENDERN 

<234> 

8305 

PRINT" P=£AUSE{12SPACE}W=HIEDERHOLUNG 


5002 

: 

< 152> 


{DOWN}" 

<07B> 

5020 

PRINT"{CLR } J!ARAMETER-flINSTELLUNGEN:" 

<026> 

8310 

PRINT" fl...ü (ODER A...H){2SPACE}=£RU 


5030 

PRINT"ÜR. WAEHLEN <l-5) UND MIT + /- A 



ND-flREIKLANG" 

<021 > 


ENDERN" 

< 119> 

8315 

PRINT" #=ERHOEHT{10SPACE}B=ERNIEDRIGT 


5100 

PRINT"{DOWN >1> {10SPACE,RVSON } ATIMMUNG 



" 

<229> 


{RVOFF,SPACE >(A=220 ÜZ > " 

< 174> 

0320 

PRINT" J=MAJ0R{12SPACE}M=M0LL" 

<167> 

5110 

PRINT"{3SPACETE{2SPACETF{2SPACE1F# G{ 


8330 

PRINT" +=ERHOEHTE SUINT{3SPACE}-=ERNI 



2SPACE1G# A{2SPACEJA# B(2SPACEIC(2SPA 



EDRIGTE SU INT" 

<215> 


CE}C# D":PRINT PS* 

<071 > 

8340 

PRINT" 0=VERMINDERT{7SPACE}fl=DEUTSCHE 


5120 

PRINT"{2D0WN>2> 30 45 60{SPACE,RVSONJ 



S fl" 

< 116> 


2EMPD{RVOFF,3SPACE>120{3SPACE>150{3SP 


B350 

PRINT" 6,7,9,11,13=AEX T,flEPT,flONE,USW 



ACEMB0" : PRINT PS* 

<155> 


• • 

<017> 

5130 

PRINT"{2D0WN >3) DUNKEL{3SPACE,RVSON}£ 






ASS—£.1LTER {RVOFF, 7SPACE >HELL " : PR INT P 






S* 

<238> 




5140 

PRINT"{2D0WNJ4) 1/4{6SPACE,RVSON >SASS 


Listing 1. »Bassist« (Fortsetzung) 



16 


SONDERHEFT 








C 64 


MUSIK 


8360 

PRINT"<DOWN>ÜEISPIELE:" 

<054> 

8560 HDX (HT) =Z: GOTO 8400 

<068> 

8365 

PRINT" £<4SPACE>=£-3JR-flKK0RD" 

<21B> 

8900 : 

<240> 

8370 

PRINT" F#M9 =£1 S-flOLL-HDNE—AKKORD " 

<115> 

8910 IF HT<HL THEN HT=HL:REM EX IT, KORR.HT 


8380 

PRINT" £B6/7=£ES-S£XT/SEPT-SKK0RD" 

<102> 

WENN EDIT. 

< 149> 

8390 

PRINT" £B7J = KS-MAJ0R-5EPT-flKK0RD<D0 


8920 RETURN 

<086> 


WN> " 

< 133> 

9000 : 

<086> 

8400 

X*="":HD=4:IF HT<HL THEN X#=H*(HT+1>: 


9100 : 

<186> 


HD=HD7.(HT+1> 

<041 > 

9101 REM SKALA-POINTERS A,B,C,D,E,F,G 

< 166> 

8410 

PRINT"<2D0WN>JAKT"RIGHT*("<2SPACE>"+S 
TR#(INT(H/A4)+1),3>":<3SPACE}"X*:PRIN 


9102 : 

9110 DATA 0,2,3,5,7,8,10 

< 188> 

< 178> 


T TAB(9)"CUP}"; 

<029> 

9200 : 

<030> 

8420 

INPUT X#:X=ASC(X*+CHR#(0))AND 127 

<092> 

9201 REM tt UND B-SKALEN CHROMAT. 

<06B> 

8430 

IF X=42 THEN 8900:REM * (ENDE) 

<208> 

9202 : 

<032> 

8435 

IF X=87 THEN 8500:REM W (WIEDERH.) 

< 134> 

9210 DATA "fl ","fl#","fl ","£ ","£#", "fl 


8440 

8445 

IF X=72 THEN X=66:REM H WIRD B 

IF X=B0 THEN HT=HT+1:H*(HT)="£AUSE":G 

<247> 

","£#","4 " 

9220 DATA"fl ",”£ ","£B","a ","£B 

< 124> 


□TO 8480:REM P (PAUSE) 

<0B3> 

","£ ","£B","£ ","AB","f » 

<253> 

8450 

IF X<65 DR X>71 THEN PRINT"CDOWN}*#* 


9400 : 

<232> 


EEHLER **#":GOTO 8400 

<255> 

9401 REM PARAM. STD/TIEFST/HOECHST-WERTE 

< 169> 

8460 

X*=CHR*(X+12B)+MID*(X*,2) 

<222> 

9402 : 

<234> 

8470 

HT=HT +1:GOSUB 1300 

<098> 

9410 DATA 15,0,30:REM STIMMUNG (1/6-TOENE 


8480 

PRINT" IDOWNJJIAUER IN 1/4<2SPACE>“HD:P 


OBERHALB - E - ->'E'...'D') 

<10B> 


RINT TAB(13)"IUP>";:INPUT HD::H=H+HD 

<099> 

9420 DATA 105,30,180:REM TEMPO 

<246> 

8490 

HD7.(HT)=HD:GOTO 8400 

<159> 

9430 DATA 15,0,30:REM BASS-FILTER 

<04B> 

8500 

B 

<094 > 

9440 DATA.2,0,1:REM 1/4 - 1/2 NOTEN 

<254> 

8501 

REM WIEDERHOLUNGSZEICHEN BEARBEITEN 

<030> 

9450 DATA.2,0,1:REM TREND - ZUFALL 

<154> 

8510 

IF HT=>HL THEN HD=HT: HG7. (HT+1 > =1 

< 172> 

9480 : 

<058> 

8520 

HT=HT+1:H#(HT)="W" 

< 106> 

50000 : 

< 191 > 

8530 

PRINT"<DOWNJAB DER WIEVIELTEN ÜARMONI 


50001 REM SAVE PROG. 

< 133> 


E" 

<093> 

50002 : 

< 193> 

8535 

PRINT"SOLL WIEDERHOLT WERDEN" 

<160> 

50010 OPEN 15,8,15,"S0:BASSIST":GOSUB 2800 

<097 > 

8537 

PRINT" "HG7. (HT) : PRINT" CUP>" ; : INPUT Z: 


50020 SAVE"BASSIST",8:GOSUB 2B00:CLOSE 15 

<005> 

8538 

8540 

8545 

B550 

IF Z>HT—2 OR Z<1 THEN 8530 

HGX(HT)=Z 

PRINT"CDOWNTBIS (UND MIT) ZUR WIEVIEL 
TEN HARMONIE" 

PRINT"SOLL WIEDERHOLT WERDEN ( LETZTE 
="HT-1">" 

PRINT" "HD:PRINT"<UP>";:INPUT Z:IF Z= 
>HT OR Z<=HG7. (HT) THEN 8530 

< 152> 
<129> 

<140> 

<047> 

<241 > 

50030 END 

© 64'er 

Listing 1. »Bassist« (Schluß) 

<247> 



S4€R onun^" 



Programm 

: bass/irq 



cOOO c2c3 

cOeO 

3 

a9 

00 

Bd 

22 

cO 

Bd 

23 

cO 

b7 

cld8 

- 

8e 

25 

cO 

20 

3f 

c2 

8d 

26 

ba 












c0e8 

: 

ae 

15 

cO 

fO 

ld 

Bd 

16 

cO 

B7 

cleO 

3 

cO 

Be 

27 

cO 

20 

3f 

c2 

Bd 

eb 












cOf 0 

3 

Bd 

1B 

cO 

ad 

c3 

c2 

fO 

12 

a9 

cleB 

3 

28 

cO 

20 

3f 

c 2 

Bd 

2 a 

cO 

23 

cOOO 

: 

4c 

37 

cO 

4c 

4d 

cO 

4c 

57 

5c 

cOf B 

3 

a2 

00 

bd 

c3 

c2 

fO 

06 

20 

8e 

clfO 

3 

20 

3f 

c 2 

8d 

29 

cO 

20 

3f 

aa 

c 008 

: 

cl 

4c 

bl 

cl 

4c 

d2 

cl 

4c 

Bf 

clOO 

3 

d2 

ff 

e8 

dO 

f 5 

a9 

20 

20 

93 

c lf 8 


c2 

Bd 

la 

cO 

a9 

ff 

20 

65 

05 

cOlO 

: 

88 

c2 

4c 

bO 

c 2 

00 

00 

00 

4f 

c 108 

: 

d2 

ff 

4c 

72 

cO 

a5 

fc 

fO 

4a 

C200 

3 

c 2 

dO 

32 

a9 

02 

20 

65 

c 2 

2B 

c 018 

: 

00 

00 

00 

00 

00 

00 

00 

00 

19 

cllO 

3 

15 

ad 

23 

cO 

fO 

10 

a9 

BO 

14 

c208 

3 

dO 

2b 

a9 

fd 

20 

65 c2 dO 

72 

c020 

s 

00 

00 

00 

00 

OO 

00 

00 

00 

21 

cl 18 

3 

Bd 

12 

d4 

ad 

23 

cO 

Bd 

13 

2e 

C210 

3 

24 

a9 

04 

20 

65 

c2 dO Id 

fS 

cO20 

: 

00 

OO 

00 

01 

02 

04 

08 

10 

c9 

c 120 

3 

d4 

a9 

81 

8d 

12 

d4 

60 

dO 

c6 

c21B 

3 

ad 

24 

cO 

2d 

26 

cO 

Bd 

24 

94 

c030 

: 

20 

40 

80 

01 

02 

04 

OB 

a9 

64 

c 128 

3 

07 

a9 

2a 

20 

d2 

ff 

a9 

ff 

66 

c220 

3 

cO 

ad 

25 

cO 

2d 

27 

cO 

Bd 

47 

c03B 

s 

54 

a2 

cO 

78 

Bd 

14 

03 

8e 

bf 

c 130 

3 

30 

24 

a6 

fb 

fO 

20 

a2 

20 

76 

c22B 

3 

25 

cO 

Od 

24 

cO 

dO 

Oa ad 

Bb 

c04O 

: 

15 

03 

a9 

00 

85 

fb 

B5 

fc 

89 

cl3B 

3 

8e 

04 

d4 

a 2 

40 

Be 

Ob 

d4 

aO 

c230 


28 

cO 

Bd 

2a 

cO 

20 59 c2 

59 

c048 

: 

8d 

16 

cO 

58 

60 

a9 

31 

a2 

79 

c 140 

3 

8d 

00 

d4 

Sc 

01 

d4 

8d 

07 

Bf 

c23B 

3 

60 

ad 

la 

cO 

4c 

c3 

cl 

20 

38 

c050 

: 

ea 

4c 

3b 

cO 

a5 

f b 

05 

f c 

Bf 

C14B 

3 

d4 

Bc 

OB 

d4 

a9 

21 

Bd 

04 

el 

c240 

3 

fd 

ae 

20 

Bb 

bO 

B5 

49 

B4 

73 

c05B 

r 

fO 

15 

BB 

22 

cO 

ad 

22 

cO 

56 

c 150 

3 

d4 

a9 

43 

Bd 

Ob 

d4 

60 

20 

94 

C24B 

3 

4a 

aS 

Oe 

fO 

09 

aO 

00 

Bl 

ff 

c060 

3 

cd 

1 + 

cO 

*0 

10 

cd 

20 

cO 

7c 

C15B 

3 

fd 

ae 

20 

9e 

b7 

8e 

la 

CO 

62 

c250 

3 

49 

aa 

cB 

bl 

49 

60 

4c 

99 

53 

C068 

3 

fO 

2d 

cd 

21 

cO 

fO 

57 

8d 

92 

Cl60 

3 

20 

b2 

bl 

a5 

64 

dO 

02 

a9 

22 

c25B 

3 

ad 

a9 

00 

aB 

91 

49 

ad 

2a 

5d 

c070 

: 

22 

cO 

4c 

31 

ea 

a9 

00 

8d 

43 

cl6B 

8 

ff 

Bd 

lb 

cO 

a5 

65 

Bd 

lc 

01 

c 260 

3 

cO 

cB 

91 

47 

60 

18 

6d 

2 a 

e3 

c07B 

s 

23 

cO 

ad 

15 

cO 

30 

+ 3 

fO 

49 

c 170 

3 

cO 

20 

b2 

bl 

a5 

64 

8d 

ld 

11 

c26B 

3 

cO 

10 

03 

18 

69 

Oc 

c9 

Oc 

2a 

cOBO 

: 

fl 

29 

01 

dO 

e*d 

ad 

12 

dO 

96 

c 178 

3 

cO 

a5 

65 

8d 

le 

CO 

ad 

16 

el 

c270 

3 

90 

03 

3B 

e9 

Oc 

Bd 

2a 

cO 

24 

cOBB 

i 

69 

de 

bO 

e6 

a9 

05 

Bd 

23 

a7 

c 180 

3 

cO 

fO 

OB 

ad 

15 

cO 

dO 

f 6 

3B 

C27B 

3 

aa 

bd 

2b 

cO 

aO 

00 

eO 

OB 

Bl 

c090 

: 

cO 

20 

Od 

cl 

4c 

72 

cO 

ad 

93 

clBB 

8 

a2 

04 

bd 

la 

cO 

9d 

15 

cO 

ae 

c2B0 

3 

90 

02 

aO 

01 

39 

24 

cO 

60 

d2 

c09B 

: 

15 

cO 

30 

d6 

fO 

d4 

29 

01 

51 

cl90 

3 

ca 

10 

f 7 

20 

fd 

ae 

20 

9e 

77 

c2B8 

3 

20 

3f 

c 2 

Bd 

24 

cO 

Be 

25 

77 

cOaO 

: 

10 

05 

a9 

05 

Bd 

23 

cO 

20 

53 

c 19B 

8 

ad 

20 

a3 

b6 

aa 

aO 

00 

eB 

96 

c290 


cO 

20 

3f 

c2 

20 

75 

c2 

49 

d4 

c 0 a 8 

: 

Od 

cl 

ad 

15 

cO 

c9 

02 

bO 

6B 

claO 

8 

ca 

fO 

OB 

bl 

22 

99 

c3 

c 2 

9e 

C29B 

3 

ff 

39 

24 

cO 

99 

24 

CO 

ad 

6e 

cObO 

: 

cl 

ad 

12 

dO 

69 

c8 

bO 

ba 

fc 

claB 

3 

cB 

dO 

f 5 

a9 

00 

99 

c3 

c 2 

ec 

c2a0 

3 

12 

dO 

29 

07 

dO 

02 

a9 

01 

Ob 

cObB 

s 

ad 

19 

CO 

ac 

1B 

cO 

TO 

b2 

68 

clbO 

3 

60 

20 

3f 

c2 

Bd 

24 

cO 

Be 

63 

c2aB 

3 

20 

65 

c2 

fO 

f 9 

4c 

59 

c2 

36 

cOcO 

r 

20 

27 

cl 

4c 

72 

CO 

a2 

05 

2f 

clbB 

s 

25 

cO 

20 

3f 

c2 

Bd 

29 

cO 

ec 

c2b0 

3 

20 

3f 

c2 

Bd 

lf 

cO 

20 

3f 

c9 

c0c8 

3 

ad 

15 

cO 

29 

01 

fO 

02 

a 2 

3a 

clcO 

3 

20 

3f 

c 2 

Od 

2 a 

cO 

ad 

29 

94 

c2b8 

3 

c2 

Bd 

20 

cO 

20 

3f 

c 2 

8d 

83 

cOdO 

s 

OB 

Be 

23 

CO 

20 

Od 

Cl 

ad 

cd 

clcB 

3 

CO 

20 

65 

c2 

fO 

fB 

20 

59 

54 

c2c0 

3 

21 

cO 

60 

00 

ff 

ff 

ff 

00 

59 

cOdB 

3 

17 

cO 

ac 

16 

cO 

20 

27 

cl 

6a 

cldO 

3 

c 2 

60 

20 

3f 

c 2 

Bd 

24 

cO 

5d 













Listing 2. Das Maschinen-Programm »BASS/IRQ« steuert den SID. Bitte mit dem MSE eingeben. 


1 

1 init sys ap 


; eoit 5vi ap*3 

j• bas*/irq • 

j para oys ap*6 ,h4,f w,f w»f «, ton-bez . 


; trend sys ap*9,ha7.<h> ,trX.taX 

1 

l hnoMt cyo ap*12,ha7.<h> ,ha'/.(hn) ,hgX<h> ,hgX(hn> .trX.taZ 

; 1985 robprt tr«ichl*r 

; cufall sys ap + 13, ha'/, (h) , taV. 

; fl-9497 trios*nberg, f.tum 1iachtenstein 

; tempo syo ap* 1 B,t 2 X.t3X,t4X 

220: cOOO *= »cOOO 


t aufruf* auc bavic -- 

Listing 3. Das Quellcode-Listing zu »BASS/IRQ« 



SONDERHEFT 




















MUSIK 


C 64 


c 000 

4c 

37 

cO 

Jmp 

init 

c003 

4c 

4d 

cO 

jmp 

exlt 

c 006 

4c 

57 

cl 

jmp 

para 

c009 

4c 

bl 

cl 

jmp 

trend 

cOOc 

4c 

d2 

cl 

Jmp 

hnext 

cOOf 

4c 

SB 

c 2 

jmp 

zufall 

c 012 

4c 

bO 

c 2 

jmp 

tempo 


(irq-rout. ein 
(irq-rout. aus 

;ton-parameter aus basic holen 
tnae.akkordeig.ton suchen 
Iueberg.ton zu nao.harm.suchen 
izufalls-ton ermitteln 
Itempo aus baslc holon 


; defin 
I 


c015 

00 


h4 

.byt 

c 016 

00 

00 

fs 

.byt 

cOlB 

00 

oo 

fv 

.byt 

cOla 

00 

00 

00 suve 

.byt 

cOlf 

00 


t2 

.byt 

c 020 

00 


t3 

.byt 

c 021 

00 


t4 

.byt 

c 022 

00 


timer 

.byt 

c023 

00 


PC 

.byt 

C024 

00 

00 

ha 

.byt 

c026 

00 

00 

hanx 

.byt 

c02B 

oo 


hg 

.byt 

c029 

00 


tr 

.byt 

c 02 a 

oo 


ta 

.byt 




• 

land-maeken f 

c 02 b 

01 

02 

04 mask 

.byt 

c033 

01 

02 

04 

.byt 

c037 



1 

rb 

m 

c037 



rp 

- 

c037 



sid 

a 

c037 



random 

■ 

c037 



irqex 

- 

c037 



chkcom 

- 

c037 



chrout 

■ 

c037 



getbyt 

■ 

c037 



getvar 

■ 

c037 



typerr 

- 

c037 



getpar 

■ 

c037 



frmovl 

■ 

c037 



frestr 

' - 


inr. 1/4-achlag im takt 
(frcquenz hauptschlag 
IFrequenz Vorschlag 


nt (l.vors.) 
< 2 .vors.) 
(haupta.) 


251 

252 

54272 
*d012 
*ea31 
Saefd 
*ffd2 
*b79e 
*bO0b 
*ad99 
*blb2 
»ad 9«? 
*b6a3 


Izeit-lnkre 
I do. 

I do. 

izeit-zaehlor 


Spore, attack/decay 

Iakkordeig.toene akt.harmonie (lb/hb) 
Iakkordeig.toene naechste harmonie 
inr.grundton akt.harmonie 
Itrend +/-1 (1,255) 
inr.akt.ton 


jhb(bita-ll) 

Irun bass 
jrun percussion 

isid-reg.adr 
!psoudo-randorn-wert 
Iirq-rout.exit 
Scheck komma 
Ichar-output 

Iholt 1 -byte-wert ->reg.x 
Ivariable suchen 
ltype-mismatch-error 
«holt 16-bit-Parameter ->*64/65 
;bel.ausdruck auswerten 
Istring-verwaltung 


; lrq-routine 


c037 

a9 

54 init 

lda 

•<irq 

c039 

a 2 

cO 

ldx 

• >irq 

c03b 

7B 

vektor 

sei 


c03c 

Bd 

14 03 

sta 

*0314 

c03f 

Bo 

15 03 

stx 

*0315 

c042 

a9 

00 

lda 

•O 

c044 

B5 

fb 

sta 

rb 

c046 

B5 

fc 

sta 

rp 

c048 

Bd 

16 cO 

sta 

fs 

c04b 

58 


cli 





(irq-rout. aus 


c04d 

a9 

31 


exit 

lda 

*<irqex 


c04f 

a 2 

oa 



ldx 

•>irqex 


c051 

4c 

3b 

cO 


jmp 

vektor 






lirq-ei 

nsprung 


c054 

a5 

fb 


* 

irq 

lda 

rb 


c056 

05 

fc 



ora 

rp 


c05B 

fO 

15 



beq 

tim 


c05a 

ee 

22 cO 


inc 

timer 


cOSd 

ad 

22 

cO 


lda 

timer 


c 060 

cd 

lf 

cO 


emp 

t2 

icheck interval 1 -zelten 

c063 

40 

10 



beq 

P layt 2 


c06S 

cd 

20 

cO 


emp 

t3 


c 068 

fO 

2d 



beq 

playt3 


c 06 a 

cd 

21 

cO 


emp 

t4 


c 06 d 

fO 

57 



beq 

playt4 


c 06 « 

Bd 

22 

cO 

tim 

sta 

timer 


c072 

4c 

31 

ea 

return 

jmp 

irqex 


c075 

a9 

00 


playt 2 

lda 

•0 

I 1 .Vorschlag 

c077 

Bd 

23 cO 


sta 

PC 


c07a 

ad 

15 

cO 


lda 

h4 

(kein 1 .Vorschlag, wenn ... 

c07d 

30 

f 3 



bmi 

return 

1...h4-neg. 

c07f 

fO 

fl 



beq 

return 

1...oder h4"0 

cOBl 

29 

01 



and 

• 1 


c0B3 

dO 

ed 



bne 

return 

1 ...oder schlag*ungerade 

c0B5 

ad 

12 

dO 


lda 

random 


cOBB 

69 

de 



ade 

4220 


cOBa 

bO 

06 



bcs 

return 

(...oder random-exit 

cOBc 

a9 

05 



lda 

*5 


cOBo 

Bd 

23 

cO 


sta 

PC 

1 hl-hat kurz 

c091 

20 

Od 

cl 


Jsr 

perc 


c094 

4c 

72 

cO 


Jmp 

return 


C097 

ad 

15 

cO 

piayt3 

lda 

h4 

12 .Vorschlag 

c09a 

30 

d6 



bmi 

return 

(kein 2.vors.wenn h4-neg 

c09c 

40 

d4 



beq 

return 

(...oder h4-0 

c09e 

29 

01 



and 

• 1 


cOaO 

40 

05 



boq 

p310 


c 0 a 2 

a9 

05 



lda 

•5 

jhi-hat kurz,wenn... 

C0a4 

Bd 

23 

cO 


sta 

PC 

1 ...schlag-ungerado 

c0a7 

20 

Od 

cl 

p310 

Jsr 

perc 

(...oder 1 .vors.ausgefuehrt 

cOaa 

ad 

15 

cO 


lda 

h4 


cOad 

c9 

02 



emp 

•2 


cOaf 

bO 

cl 



bcs 

return 

Ibass-vorschlag nur bei •! 

cObl 

ad 

12 

dO 


lda 

random 


c0b4 

69 

c8 



ade 

•200 


c 0 b 6 

bO 

ba 



bcs 

return 

(random-exit 

cObB 

ad 

19 

cO 


lda 

fv*l 

(bass-vorschlag 

cObb 

ac 

1B 

cO 


ldy 

fv 


cObo 

fO 

b2 



boq 

return 

(ton noch nicht bereit 

cOcO 

20 

27 

cl 


Jsr 

bass 


c0c3 

4c 

72 

cO 


Jmp 

return 


c 0 c 6 

a 2 

05 


playt4 

ldx 

•5 

(1/4-hauptschlag 

cOcB 

ad 

15 

cO 


lda 

h4 


cOcb 

29 

01 



and 

• 1 


cOcd 

fO 

02 



boq 

p410 


cOcf 

a 2 

08 



ldx 

•B 


cOdl 

Be 

23 

cO 

p410 

stx 

PC 


c0d4 

20 

Od 

cl 


Jsr 

perc 



c0d7 ad 17 cO 
cOda ac 16 cO 
cOdd 20 27 cl 
cOeO a9 00 
c0e2 Bd 22 cO 
c0e5 Bd 23 cO 
c0e8 ae 15 cO 
cOeb fO ld 
cOed Bd 16 cO 
cOfO Bd 1B cO 
c0f3 ad c3 c2 
cOf 6 -»0 12 
cOfB a2 00 
cOf a bd c3 c2 p500 
cOfd 40 06 
cOff 20 d2 14 


lda 

ldy 

Jor 

lda 

sta 

ata 

ldx 

boq 

sta 

sta 

lda 

beq 

ldx 

lda 

beq 

Jsr 


•0 

timer 

pc 

h4 

p600 

in 

4v 

string 

p600 

#0 

string, 
P 550 
chro 


Sbass-hauptschlag 


sreset timer 
ireset perc.byte 


(freigeben Ireq-loc. wenn h4>0 


tatring auadrucken 


c 102 

«B 




inx 



C103 

dO 

<5 



bne 

p500 


c 105 

a9 

20 


p550 

lda 

.32 


c 107 

20 

d2 

44 


Jsr 

chrout 


clOa 

4c 

72 

cO 

p600 

Jmp 

return 


clOd 

a5 

fc 


perc 

lda 

rp 

(evtl.percussion ->sld 

clOf 

fO 

15 



boq 

percex 

|->keine perc. 

clll 

ad 

23 

cO 


lda 

PC 


cl 14 

fO 

10 



boq 

percex 

|->keine perc. 

c 116 

a9 

BO 



lda 

• 128 

cl 18 

Bd 

12 

d4 


sta 

oid*lB 

1vco»3 nolSeagate 

cl lb 

ad 

23 

cO 


lda 

PC 


eile 

Bd 

13 

d4 


sta 

sldM9 

|vco«3 attack/decay 

c 121 

a9 

Bl 



lda 

• 129 


c 123 

Bd 

12 

d4 


sta 

sid+lB 


c 126 

60 



percex 

rts 



cl27 

dO 

07 


bass 

bne 

basslO 

(evtl.bass ->sid 

c 129 

a9 

2 a 



lda 

•42 

(timing-fehler 

c 12 b 

20 

d2 

ff 


Jsr 

chrout 

cl 2 e 

a9 

ff 



lda 

• *ff 


cl30 

30 

24 


baoslO 

bmi 

banne« 

(pause 

cl32 

a6 

fb 



ldx 

rb 

c 134 

fO 

20 



beq 

bassox 

|->kein bass 

c 136 

a 2 

20 



ldx 

• 32 


cl3B 

De 

04 

d4 


stx 

sl d+4 

(VCO«l saogezahn'gate 

cl3b 

a 2 

40 



ldx 

• 64 

cl3d 

Be 

Ob 

d4 


stx 

sid +11 

;vco »2 rechteck« eync+gate 

c 140 

Qd 

00 

d4 


sta 

sid 

(vcoSl frequonz 

cl43 

0c 

01 

d4 


■tv 

sid+1 

c 146 

Bd 

07 

d4 


sta 

sid+7 

(Vco*2 frequenz 

c 149 

Bc 

OB 

d4 


sty 

sid+B 


c 14c 

a9 

21 



lda 

•33 


cl4e 

Bd 

04 

d4 


sta 

sid+4 


c 151 

a9 

43 



lda 

•67 


cl53 

Bd 

Ob 

d4 


sta 

sid +11 


c 156 

60 



basipx 

rts 







|ton-parameter aus basic holen 

c 157 

20 

fd 

ae 

para 

Jsr 

chkcom 


cl5a 

20 

9c 

b7 


Jsr 

getbyt 

,h4 

cl5d 

Be 

la 

cO 


stx 

r.ave 

c160 70 b2 
cl63‘ - 4 

bl 


jsr 

lda 

getpar 

*64 

;haupt-freq-wert 

c 165 

dO 

U2 



bne 

parlO 


c 167 

a9 

ff 



lda 

**ff 

(aus null wird *ff 

c 169 

Bd 

lb 

cO 

parlO 

sta 

save +1 

; hb 

cl6c 

a5 

65 



lda 

*65 


cl6e 

Bd 

lc 

cO 


sta 

sove *2 

1 lb 

c 171 

20 

b2 

bl 





cl74 

a5 

64 



lda 

*64 


C176 

Bd 

ld 

cO 


sta 

save*3 

( hb 

c 179 

a5 

65 



lda 

*65 


cl7b 

Bd 

lc 

cO 


sta 

save-»4 

1 lb 

c 17e 

ad 

16 

cO 

par 20 

lda 

fs 

(check freq-loc.frei 

clBl 

fO 

05 



brq 

par40 


c 183 

ad 

15 

cO 


lda 

h4 


c 186 

dO 

f 6 



bne 

par 20 

(warten wenn h4>0 

c 188 

a 2 

04 


par 40 

ldx 

• 4 


clBa 

bd 

la 

cO 

par6ö 

lda 

oave.x 

(param.uobertragon 

clBd 

9d 

15 

cO 


sta 

h4,x 

c 190 

ca 




dox 



cl91 

10 

47 



bpi 

par 60 


cl93 

20 

fd 

ac 


jsr 

chkcom 

(string holen 

c 196 

20 

9c 

ad 


jsr 

«rmevl 

c 199 

20 

a3 

b6 


Jsr 

frestr 


cl9c 

aa 




tax 



cl9d 

aO 

00 



ldy 

•O 


c 19f 

oB 




inx 



claO 

ca 



parBO 

dex 


(String uebertragen 

clal 

fO 

OB 



boq 

par 90 

(string zu ende 

cla3 

bl 

22 



lda 

(• 22 ),y 


cla5 

99 

c3 

c 2 


sta 

string,y 

claB 

cB 




iny 



cia9 

dO 

f 5 



bne 

parBO 


clab 

a9 

00 


par90 

lda 

•0 

(mit null abschllausen 

c lad 

99 

c3 

c 2 


sta 

string. 

y 

clbO 

60 




rts 







[naechsten ton im trend suchen 

clbl 

20 

3f 

c 2 

trend 

Jsr 

getint 

(hole bit-muster haXO 

clb4 

Bd 

24 

cO 

1 

sta 

ha 

(l.b. 

clb7 

Be 

25 

cO 


stx 

ha +1 

»h.b. 

c Iba 

20 

3f 

c 2 


Jsr 

getint 

(hole trond trX 

clbd 

Bd 

29 

cO 


sta 

tr 


clcO 

20 

3f 

c 2 


Jsr 

getint 

(hole ton-nr. taX 

clc3 

Bd 

2 a 

cO 

treOlO 

ota 

ta 


c lc6 

ad 

29 

cO 

tro 020 

lda 

tr 

1 ta*tr->ta 

c lc9 

20 

65 

c 2 


Jsr 

chkakk 

(check ob akkordeigen 

clcc 

10 

fB 



beq 

tre 020 

(nein ->loop 

c lco 

20 

59 

c 2 


Jsr 

putta 

;taX absp. 

cldl 

60 




rts 




Iuebergangston zu nae.harmonie suchen 
I 


cld 2 

20 

3f 

c 2 hnext 

Jsr 

getint 

(hole 

haX(h) 

cld5 

Bd 

24 

cO 

sta 

ha 



cldB 

Be 

25 

cO 

stx 

ha +1 



cldb 

20 

3f 

c 2 

Jsr 

getint 

(hole 

haX(hn) 


Listing 3. Das Quellcode-Listing zu »BASS/IRQ« 
(Fortsetzung) 


18 


SONDERHEFT 












C 64 


■ ts-V 


MUSIK 


clde 

Bd 

26 

cO 


sta 

hanx 


c25e 

ad 

2 a 

cO 


lda 

ta 


clel 

Be 

27 

cO 


BtX 

hanx»l 


C261 

cB 




iny 



cl«4 

20 

3f 

c 2 


jsr 

getint 

1 hole hg*/.<h> 

c262 

91 

49 



«ta 

<*49),y 

(l.b. 

clo7 

Bd 

28 

cO 


ata 

hg 


c264 

60 




rts 



ein« 

20 

3f 

c 2 


jsr 

getint 

(hole hgXihn) 





1 




cled 

Bd 

2 a 

cO 


ata 

ta 

|->wird ta 





icheck ob ton nr.<ta)*reg.a - akkordeigen 

clfO 

20 

3f 

c 2 


jsr 

getint 

1 holo trX 







cif 3 

Bd 

29 

cO 


sta 

tr 






1 




cl»4 

20 

3f 

c 2 


jar 

getint 

1 hole ta*/. 

c265 

1B 



chkakk 

cl c 



c lf 9 

Bd 

la 

cO 


ata 

■ave 

1 ta7. aaven 

C266 

6d 

2 a 

cO 


ade 

ta 

1 ta-»inkr/_dokr ->ta 





11 .var 

»ucho nachbar-ton v.nao.grundton, ... 

c269 

10 

03 



bpi 

cakOlO 

ichock ob ta im bereich 0...11 





1 ..der 

akkordeigon zu akt.harmoniu ist 

c26b 

18 




cl c 



cl»c 

«9 

ff 



1 da 

•255 

1 ta-l->ta <- 1/2 ton) 

c 26 c 

69 

Oc 



ade 

• 12 

1 ...sonnt korrektur 

elf« 

20 

65 

c 2 


J«r 

chkakk 

1 check ob akkordolgen 

c26o 

c9 

Oc 


cakOlO 

emp 

• 12 


c 201 

dO 

32 



bno 

hnexit 

|—>Ja, neuer ton gefunden 

c270 

90 

03 



bcc 

cakbit 


c203 

*9 

02 



lda 

•2 

1 ta-* 2 ->ta <* 1/2 ton) 

c272 

3B 




aec 



c205 

20 

65 

c 2 


jar 

chkakk 

1 check ob akkurcJeigen 

c273 

e9 

Oc 



obe 

• 12 


c20B 

dO 

2b 



bn* 

hnoxit 

|->Ja, neuer ton gefunden 





1 




c 20 a 

a9 

fd 



lda 

•253 

1ta-3->ta <-l ton) 

c273 

Bd 

2 a 

cO 

cakbit 

«ta 

ta 

|bit f.akt.ton holen 

c 20 c 

20 

65 

c 2 


Jsr 

chkakk 

1 check ob akkordeigon 

c27B 

aa 




tax 



c 20 f 

dO 

24 



bn« 

hnexit 

|->Ja, neuer ton gefunden 

c279 

bd 

2b 

cO 


lda 

maak,x 

(and-maake holen 

c 211 

*9 

04 



lda 

•4 

1 ta-*4->ta <*1 ton) 

c27c 

aO 

00 



ldy 

•0 


c213 

20 

63 

c 2 


jsr 

chkakk 

Icheck ob akkordeigon 

c27e 

oO 

OB 



cpx 

•B 

(check ob l.b. oder h.b 

c 216 

dO 

ld 



bno 

hnexit 

i->Ja, neuer ton gefunden 

c2B0 

90 

02 



bcc 

cak030 

|->l.b. 





12 .var 

auch« ton, der fuer beide harm. akkordeigun 

c 282 

aO 

01 



ldy 

*1 

(h.b. 

c21B 

ad 

24 

cO 


lda 

ha 


c284 

39 

24 

cO 

cak030 

and 

ha,y 

(btt au« akt.harm.extrahieren 

c 21 b 

2d 

26 

cO 


and 

hanx 


c2B7 

60 




rt« 



c 21 e 

Bd 

24 

cO 


ata 

ha 






1 




c 221 

ad 

23 

cO 


lda 

ha*l 






| /ufall «-'ton ermitteln 

c224 

2d 

27 

cO 


and 

hanx * 1 






1 




c227 

Bd 

23 

cO 


sta 

ha*l 


c2BB 

20 

3f 

c 2 

Zufall 

J®r 

getint 

Iholo haX(h) 

c 22 a 

Od 

24 

cO 


orn 

ha 

1 check ob gcmoins.toone 

c2Bb 

Bd 

24 

cO 


«ta 

ha 

u.b. 

c 22 d 

dO 

Oa 



bn« 

hn «020 

1 ->Ja 

c2Be 

Be 

25 

cO 


«tx 

ha*l 

(h.b. 

c22f 

ad 

2B 

cO 


lda 

hg 

«nein, qrundton nehmen 

C291 

20 

3f 

c 2 


J*r 

getint 

(hole taX 

c232 

Bd 

2 a 

cO 


ata 

ta 


c294 

20 

73 

c 2 


J«r 

cakbit 

jbit f.akt.ton holen 

c235 

20 

59 

c 2 

hnexit 

Jar 

putta 

»taX abap. 

c297 

49 

ff 



eor 

• *ff 

(...und 1 oeachen 

c23B 

60 




rta 



c299 

39 

24 

cO 


and 

»o.V 

(...damit nicht nochmal« 





1 




c29c 

99 

24 

cO 


«ta 

ha,y 

(...gleicher ton kommt. 

c239 

ad 

la 

cO 

hno 020 

lda 

«ave 

1taX holen und laut trend... 

c29f 

ad 

12 

dO 


lda 

random 

(zufall«-zahl ♦ ta ->ta 

c23c 

4c 

c3 

cl 


jmp 

tr «010 

j...gemein«.akkord-ton suchen 

c 2 a 2 

29 

07 



and 

• 7 






> 




c2a4 

dO 

02 



bne 

zuf030 






(hole intager au« ba«ic 

c 2 a 6 

a9 

01 


zuf 020 

lda 

• 1 






) 




c2aB 

20 

65 

c 2 

zuf030 

Jsr 

chkakk 

jcheck ob akk.eigen 

c23f 

20 

fd 

ae 

gatint 

jsr 

chkcom 

I koenma 

c 2 ab 

fO 

f 9 



beq 

zuf 020 

(—>n«in, weiter suchen 

c242 

20 

Bb 

bO 


jsr 

getvar 

;var.suchen 

c 2 ad 

4c 

39 

c 2 


jmp 

putta 

1 Ja, taX al* baoic-var.absp. 

c245 

83 

49 



ata 

*49 

ivar.adr. absp. 





1 




c247 

B4 

4a 



«*v 

*4a 






; tempo 

aus 

basic holen 

c249 

a5 

Ob 



lda 

*0o 

(check ob integer 





1 




c24b 

♦ 0 

09 



beq 

geterr 

|->n«in, error 

c 2 b 0 

20 

34 

c 2 

tempo 

Jar 

getint 

(hole t2X <1.vorschlag) 

c24d 

aO 

OO 



ldy 

•0 


c2b3 

Bd 

lf 

cO 


sta 

t2 


c24f 

bl 

49 



lda 

(*49),y 

;var.wort holen 

c 2 b 6 

20 

3f 

c 2 


J«r 

getint 

(hole t3X <2.Vorschlag) 

c251 

aa 




tax 


;h.b. ->reg.x 

c2b9 

Bd 

20 

cO 


sta 

t3 


c252 

cB 




iny 



c 2 bc 

20 

3f 

c 2 


j»r 

getint 

(hole t4X (1/4—hauptschlag) 

c253 

bl 

49 



lda 

(*49),y 

11 .b. ->reg.a 

c 2 bf 

Bd 

21 

cO 


«ta 

t4 


c2S5 

60 




rta 



c 2 c 2 

60 




rt« 



c256 

4c 

99 

ad 

g.terr 

Jmp 

typ«rr 

l.rror 

c2c3 




atring 

- 

* 






|taX al« bas 

c—integer—var. absp. 









c259 

a9 

00 


putta 

lda 

•0 
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c23c 

aS 

91 

49 



tay 

ata 

<*49>,y 

|h.b. 

(Schluß) 





















GRUNDLAGEN 


C 64/VC 20 


Alle Tasten-, 
Zeichen- und 
Steuercodes 

Die gute und übersichtliche Tastatur der 
Computer von Commodore bietet gerade 
dem Anfänger sehr leichte Einstiegsmög¬ 
lichkeiten. Wer aber tiefer in die Compu¬ 
terei eindringt, stößt beim VC 20 und Com¬ 
modore 64 schnell auf eine verwirrende 
Vielfalt von Codes und Steuerzeichen, 
deren Kenntnis und Beherrschung jedoch 
auch dem Anfänger ein weites Anwen¬ 
dungsfeld eröffnen kann. 

H aben Sie schon einmal einen Ball länger als ein paar 
Minuten auf derselben Stelle liegen sehen? Ich noch 
nicht, denn der nächste Vorbeikommer kickt ihn - 
irgendwohin. Sie doch auch, oder ? Dasselbe Phänomen 
können Sie überall dort beobachten, wo ein Heimcomputer 
steht. Eingeschaltet oder nicht - jeder der vorbeikommt, 
drückt auf eine Taste. Und wenn das Ding gar reagiert - mit 
einem Buchstaben auf dem Bildschirm - dann bleibt selbst 
die Oma stehen und tippt nochmal und nochmal. 

Die Tasten wirken auf die Menschen 
wie das Licht auf die Motten 


Wenn vom VC 20 oder Commodore 64 die Rede ist, kommt 
dieselbe sehr rasch auf die Tastatur. Ihre Schreibmaschinen- 
Qualität und die klaren Steuer- und Funktionstasten heben 
sie aus der Schar der Konkurrenten heraus. Sie ist sehr 
benutzerfreundlich, besonders für Anfänger, während der 
ersten Tast(en)versuche. 

Aber rasch wird offensichtlich, daß die Tasten auch ihre 
Geheimnisse haben, und zwar frühestens, wenn die vier 
Funktionstasten keine Reaktionen, zumindest keine sichtba¬ 
ren, hervorrufen, und spätestens bei dem Versuch, in einem 
Programmablauf bestimmte Tastenfunktionen ausführen zu 
lassen, wie zum Beispiel »Cursor Down« oder »Bildschirm 
löschen«. 

Ich will Ihnen deshalb in diesem Aufsatz die Grundlagen der 
Tastaturabfrage, das Geheimnis der Funktionstasten, die 
CHR$-Anhängsel von PRINT-Befehlen, die mysteriösen 
»negativen« Zeichen in Anführungsstrichen und gleichzeitig 
gedrückte Tasten erklären und mit Kochrezepten aus¬ 
schmücken. 

Übrigens: das hier Gesagte gilt sowohl für den VC 20 als 
auch für den Commodore 64. Nur die Programmbeispiele 
nicht, die sind auf den kleinen VC 20 zugeschnitten. Die 64er 
mögen mir das verzeihen. Ich scheue mich aber, Kochre¬ 
zepte abzugeben, die ich nicht selbst ausprobiert habe. Und 
ich habe leider (noch) keinen C 64. Falls Unterschiede bei 
den Adressen auftreten, gebe ich den Wert für den C 64 in 
Klammern an. Als erstes möchte ich folgende Behauptung 
aufstellen: 


Dem Computer sind alle Tasten gleich. 

Und er behandelt sie auch alle gleich. 60mal in jeder 
Sekunde unterbricht der Computer was er auch immer 
gerade ausführt, merkt sich, wobei und wo er gerade unter¬ 
brochen hat, und schaut nach, ob eine der Tasten gedrückt 
worden ist. 

Keine Regel ohne Ausnahme, auch beim Computern nicht: 
Die RESTORE-Taste und die SHIFT-LOCK-Taste fallen völlig 
aus dem Rahmen und haben mit den kommenden Erklärun¬ 
gen nichts zu tun. Ich werde sie deshalb auch nicht mehr 
erwähnen. Der Vollständigkeit halber sei hier nur kurz gesagt, 
daß die RESTORE-Taste den Computer bei jeglicher Arbeit 
unterbricht und ihn mit READY und blinkendem Cursor in den 
Anfangszustand zurücksetzt. Die SHIFT-LOCK-Taste ist (wie 
bei der Schreibmaschine) eine mechanische Arretierung der 
SHIFT-Taste. Es bleiben uns immerhin 64 Tasten, die vom 
Computer während seiner Verschnaufpause inspiziert wer¬ 
den. Die Funktionstasten sind immer dabei! Diese Inspektion 
- Tastaturabfrage genannt - wollen wir uns näher anschauen. 

Der Computer erhält nicht, wie es eigentlich logisch wäre, 
von jeder gedrückten Taste ein spezielles Code-Signal. Das 
wäre für einen Heimcomputer zu aufwendig und zu teuer. Das 
Betriebssystem des Computers veranstaltet vielmehr eine 
Befragung seines Tastenvolkes, nach dessen Stimmenab¬ 
gabe er dann entscheidet, welche Taste nun eigentlich 
gedrückt worden ist. Schauen Sie sich bitte das Bild 1 
genauer an. Es zeigt Ihnen die 64 Tasten in einer 8x8- 
Matrix. Diese Anordnung entspricht der elektrischen Verbin¬ 
dung der Tasten. Die Abfrage selbst ist sehr einfach. Der 
Computer ruft alle senkrechten Spalten einzeln auf, indem er 
die Zahl, die an der jeweiligen Spalte in Bild 1 steht, in eine 
spezielle Speicherzelle hineinschiebt. Beim VC 20 ist das 
37152, beim Commodore 64 die 56320. 

Falle die gedrückte Taste in dieser Spalte liegt, meldet sie 
sich und die Zahl der waagrechten Zeile wird in die Adresse 
37153 (56321) geschrieben. Wenn überhaupt keine Taste 
gedrückt war, erscheint in 37153 (56321) eine 255. 

10 IF Sie jetzt fragen, warum die Zahlen so willkürlich und 
außerdem paarweise gleich sind, THEN lesen Sie weiter: 
GOTO nächsten Absatz. 

20 REM ein bißchen Theorie würde nicht schaden: GOTO 
übernächsten Absatz. 

Die Zahlen sind natürlich nicht willkürlich gewählt. Es sind 
vielmehr die Dezimalwerte von Dualzahlen, die beim Anwäh¬ 
len einer Spalte beziehungsweise durch Drücken einer Taste 
in den schon genannten Speicherzellen 37152 (56320) und 
37153 (56321) entstehen. Bild 2 zeigt den Zusammenhang. 

Am Rande der Matrix sehen Sie jetzt nicht die Zahlen, son¬ 
dern die beiden Speicherzellen, im folgenden »Register« 
genannt, und ihre bitweise Verbindung mit Spalten und Zeilen 
der Tasten. Prinzipiell gilt, daß diejenige Spalte angewählt ist, 
an deren Stelle eine »Null« im Register 37152 (56320) steht. 

Theorie und Praxis: 
eine untrennbare Einheit 


Das ergibt im Register eine Dualzahl, die entsprechend der 
Bit-Numerierung zu lesen ist. Eine gedrückte Taste ihrerseits 
erzeugt eine Null im Register 37153 (56321) an der Stelle, 
wo ihre Zeile angeschlossen ist. Ich habe im Bild 2 ein Bei¬ 
spiel (Taste mit den Zeichen »/«) eingezeichnet, und wenn Sie 
die Dualzahlen kennen, werden Sie beim Vergleich mit den 
Zahlen in Bild 1 die Übereinstimmung erkennen. 

Wie bitte? Sie sagen, daß es aber doch möglich sein müßte, 
weit mehr als die im Bild 1 gezeigten acht Zahlen im Register 
37153 (56321) zu erzeugen, indem man mehr als eine Taste 
gleichzeitig drückt? Richtig gesehen, das geht in der Tat, und 
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das wollen wir uns auch gleich einmal ansehen. Dazu brau¬ 
chen wir ein Kochrezept. Ich schlage vor, das Rezept - und 
auch die noch folgenden - gleich auszuprobieren. Nehmen 
Sie diesen Artikel und verfolgen Sie die weiteren Zeilen mei¬ 
ner Beschreibung abwechselnd lesend und eintippend. 

Die Abfrage der Tastatur wird auf dem 
Bildschirm dargestellt 


Als erstes wollen wir, so wie der Computer es macht, eine 
Spalte anwählen, zum Beispiel wie im Bild 2, die vierte von 
rechts. Das ergibt die Dualzahl 11110111, in dezimal die Zahl 
247. 

100 POKE 37152,247 

200 PRINT PEEK(37152),PEEK(37153) 

300 GOTO 100 

Zeile 200 druckt uns sowohl den von uns gePOKEten 
Wert 247 als auch den in Register 37153 (56321) 
stehenden Wert aus, der dort erscheint, sobald wir eine 
Taste in der Spalte 247 drücken. Der Rücksprung in Zeile 
300 erzeugt auf dem Bildschirm zwei senkrechte, 
durchlaufende Zahlenstreifen. 

Nach RUN läuft rechts die Zahl 255 (dual = lauter 1 er, das 
heißt, keine Taste gedrückt). Drücken Sie nun die »/«-Taste 
und es erscheint die 191. Die X-Taste erzeugt 251, die links 
angeordnete SHIFT-Taste eine 253. Die rechte SHIFT-Taste 
dagegen zeigt keine Reaktion - ist auch klar, denn sie liegt 
ja in einer anderen Spalte. 

Aber es ist interessant, sich zu merken, daß bei einer 
Tastaturabfrage die beiden SHIFT-Tasten völlig eigenständig 
behandelt werden, im Gegensatz zu ihrer Funktion. Sie 
sehen, ich habe recht gehabt: Alle Tasten sind gleich. 

Sie können auch die RUN-STOP-Taste drücken, aber bitte 
nur ganz, ganz kurz antippen, denn das Programm bleibt 
natürlich entsprechend ihrer ungeSHIFTteten Funktion 
sofort stehen. Wenn das Betätigen der Taste aber kurz 
genug war, dann steht als letzte Zahl die 254 da. 

Gleichzeitige Abfrage von zwei Tasten 


Jetzt kommt das große Experiment. Nach neuem RUN 
drücken Sie »Cursor down« und »/« gleichzeitig - es erscheint 
63. Der Blick auf Bild 2 zeigt uns für beide Tasten das 
Bitmuster 00111111 und das ist 63. Es geht also. Probieren 
Sie ruhig alle Kombinationen aus. Wenn Sie Zeit und die 
Gelenkigkeit eines Konzertpianisten haben, können Sie alle 
Zahlen bis 254 erzeugen, auch die Null. Dazu sind alle acht 
Tasten gleichzeitig zu drücken. 

Erwähnenswert ist, daß jetzt das Programm nicht stehen¬ 
bleibt, obwohl die STOP-Taste gedrückt ist. Aber die SHIFT- 
Taste ist auch gedrückt, und das ist laut Handbuch die LOAD- 
RUN-Funktion, die jetzt nicht zum Tragen kommt. 

Sie wollen sicher endlich auch einmal die Funktionstasten 
zur Geltung bringen. Dazu müssen wir aber eine andere 
Spalte anwählen. Ändern Sie bitte die Zeile 100 ab: 

100 POKE 37152,239 

In der Spalte 239 liegt die Fl-Taste. Nach RUN passiert 
aber etwas Komisches: Trotz des POKEns von 239 läuft 
links wieder die 247, genauso wie vorhin. Und die Tasten der 
Spalte 239 reagieren nicht, nur die der Spalte 247. 

Was passiert da? Es liegt daran, daß nur beim Eintippen 
eines Programms die Tastaturabfrage genauso funktioniert 
wie beschrieben. Wenn aber ein Programm abläuft, dann ist 
der Computer nur an der STOP-Taste interessiert und 
schiebt deshalb immer wieder eine 247 in das Register 
37152 (56320). 


Eine Ausnahme gibt es auch hier: INPUT- und GET-Befehle 
fragen auch die anderen Tasten ab. 

Diese erzwungene Vorfahrt der Spalte 247 können wir 
durch unsere Zeile 100 nicht ändern, denn wir sind ja nach 
RUN in einem Programmablauf. Die einzige Möglichkeit, 
andere Spalten POKEn zu können, ergibt sich für uns durch 
Programmierung in Maschinensprache. Aber darauf will ich 
nicht jetzt schon, sondern erst am Schluß des Aufsatzes ein- 
gehen. 

Wir haben also bei unserem Versuch, das Ergebnis der 
Befragung schon bei der Stimmenabgabe - sozusagen im 
Wahllokal - auszukundschaften, Pech gehabt. Das macht 
aber nichts, denn irgendwann wird ja ein Wahlergebnis offi¬ 
ziell bekanntgegeben. Bei der Tastaturabfrage ist das auch 
so. Vorher aber wollen wir wenigstens aus dem Teilergebnis, 
das wir ausspioniert haben, Kapital schlagen und die mehrfa¬ 
che Tastenabfrage der Spalte 247 an einem klaren Beispiel 
demonstrieren. 

Programmsteuerung mit zwei 
unabhängigen Tasten 


Das Programm soll auf dem Bildschirm in den Spalten 6 und 
15 zwei senkrechte Bänder mit Sternen darstellen, deren 
Farbe mit der »X«- und der »/«-Taste unabhängig voneinander, 
auch gleichzeitig, verändert werden kann. 

100 PRINT CHR$(147) 

Diese Zeile löscht den Bildschirm. Die Methode (ASCII- 
CODE) kennen Sie sicher aus dem Programmier-Handbuch. 
Ich werde sie aber noch genau behandeln. 

110 BS=PEEK(648)*256 
120FS=4*(PEEK(36866) AND 128) + 37888 
Zeile 110 und 120 machen das Programm unabhängig von 
Speichererweiterungen. BS und FS sind Variable für die 
Anfangsadressen des Bildschirm- beziehungsweise des 
Farbspeichers. 

130 F=2:G=2 

Das ist die Anfangsfarbe »Rot« für beide Sternreihen. 

200 F0R Z=0 T0 22 

Mit Z werden die 23 Zeilen abgezählt. 

300 POKE BS+5+Z*22,42 
310 POKE FS+5+Z#22,F 

Keine Angst, ich mute Ihnen keine höhere Mathematik zu. 
Ab Zeile 300 wird der Bildschirm-Code (42) für den Stern 
(auch das behandle ich später noch) in Spalte 6 (BS+5) für 
jede Zeile (Z* 22) untereinander gePOKEt, dazu die Farbe F 
in den gleichen Platz des Farbspeichers. Dasselbe gilt in 
Zeile 400 und 410 für die Spalte 15. 

400 POKE BS+15+Z*22,42 
410 POKE FS+15+Z*22,G 
500 AA=PEEK(37153) 

510 IF AA=191 0R AA=187 THEN F=F+1 
520 IF AA=251 0R AA=187 THEN G=G+1 
Ab Zeile 500 werden die »X«-Taste (191) und die »/«-Taste 
(251) abgefragt. Wenn eine davon gedruckt ist, wird die 
Farbzahl F beziehungsweise G um 1 erhöht. Die OR- 
Funktion, mit welcher der Wert 187 abgefragt wird, erlaubt 
ein gleichzeitiges Drücken beider Tasten, es werden sowohl 
F als auch G erhöht. 

Um die Farben zwischen 2 (Rot) und 7 (Gelb) zu begren¬ 
zen, verwenden wir: 

600 IF F=8 THEN F=2 
610 IF G=8 THEN G=2 

Zum Schluß wird der Zeilenzähler Z weitergesetzt. Wenn 
er 22 (das heißt die 23. Zeile) erreicht hat, springt das 
Programm an den Anfang zurück. 

700 NEXT Z 
800 GOTO 200 
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127 191 223 239 247 251 253 254 

SPALTEN 


Bild 1. Die »elektrische« Anordnung der Tasten 



Bild 2. Die Tasten-Matrix mit ihren Registern 


Nun geben Sie RUN ein. Wenn Sie eine der Tasten zu lange, 
das heißt länger als einen Z-Zyklus, drücken, springt die 
Farbe weiter. Um das etwas zu erleichtern, können Sie noch 
eine Verzögerung einbauen: 

220 FOR T=1 TO 50: NEXT T 

Ich gebe ja zu, das ist kein gewaltiges Programm. Aber es 
zeigt Ihnen wenigstens, wie auch in Basic eine mehrfache 
Tastenabfrage möglich ist. 

100 PRINT CHR$(l47) 

110 BS=PEEK(648)*256 

120 FS=4*(PEEK(36866) AND 128) + 37888 

130 f=2:g=2 

200 FOR Z=0 TO 22 

220 FOR T=1 TO 50: NEXT T 

300 POKE BS+5+Z*22,42 

310 POKE FS+5+Z*22,F 

400 POKE BS+15+Z*22,42 

410 POKE FS+15+Z*22,G 

500 AA=PEEK(37153) 

510 IF AA=191 OR AA=187 THEN F=F+1 

520 IF AA=251 OR AA=187 THEN G=G+1 

600 IF F=8 THEN F=2 

610 IF G=8 THEN F=2 

700 NEXT Z 

800 GOTO 200 

Weiter geht’s, und zwar mit dem schon erwähnten 
Bekanntgeben des Wahlergebnisses. In anderen Worten: 
Wie wertet der Computer die Tastenabfrage über die 
Register 37152 (56320) und 37153 (56321) weiter aus? 

Sobald der Computer merkt, daß eine Taste gedrückt ist, 
nimmt er die beiden Zahlen, die in den Registern 37152 
(56320) und 37153 (56321) stehen, und wandelt sie in 
eine Code-Zahl um, die er in der Speicherzelle 203 ablegt. 
Die C de-Zahl steht auch in der Speicherzelle 197. Mit dem 
Grund für diese Verdoppelung muß ich mich aber erst noch 
beschäftigen. 

Wir bleiben bei Adresse 203. Wie bei der Abfrage der 
Tastatur-Matrix wollen wir uns den Inhalt dieser Speicher¬ 
zelle ansehen. Löschen Sie bitte das alte Programm und 
geben Sie ein: 

100 PRINT PEEK(203) 

200 GOTO 100 

Nach RUN sehen wir wieder die laufende Zahlenbank, jetzt 
aber mit 64. Das ist die Code-Zahl für »keine Taste 
gedrückt«. Die »/«-Taste ergibt jetzt 30, die X^Taste 26 und 
so weiter. Endlich ist es soweit! Die Funktionstasten reagie¬ 
ren und geben ihre Code-Zahl preis. 

Die Funktionstasten reagieren doch! 


Probieren Sie alle Tasten durch und schreiben Sie die Code- 
Zahlen auf die Tasten von Bild 1 oder Bild 2. Jetzt sehen Sie 
auch die Gesetzmäßigkeit, nach der der Computer die 
Spalten- und Zeilenzahl der Register ummodelt. Schreiben 
Sie sich am besten eine komplette Liste der Code-Zahlen für 
die weitere Verwendung. Die RUN-STOP-Taste läßt sich hier 
leichter als beim ersten Mal überlisten, natürlich nur mit 
gleichzeitigem SHIFT. 

Apropos »gleichzeitig«! Wiederholen Sie das Experiment 
von vorhin. Hier erleiden wir unseren zweiten Fehlschlag: 
Mehrfachtasten geben keinen Sinn, denn die Umcodierung 
verwehrt es uns. Wie gut, daß wir die Methode der Matrix- 
Abfrage haben, auch wenn sie in voller Eleganz nur in 
Maschinensprache möglich ist. Doch wie gesagt, davon 
später. 

Zurück zu den einzelnen Tasten. 

In der Liste der Code-Zahlen fehlen die Tasten RESTORE, 
SHIFT, C=, CTRL. Sie haben das nicht bemerkt? Dann haben 
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Sie auch noch nicht die von mir vorgeschlagene Liste 
gemacht! 

Um auch diese Zahlen auf den Bildschirm zu bringen, 
ergänzen Sie bitte die Zeile 100 in 
100 PRINT PEEK(203 > PEEK(653) 

200 GOTO 100 

Jetzt sehen Sie zwei Zahlenreihen laufen. Zu der 
bekannten Reihe ist auf der zweiten Hälfte des Bildschirms 
(bedingt durch das Komma zwischen den PEEKs) eine 
O-Reihe gekommen. Drücken Sie jetzt die SHIFT-Taste: 
Rechts läuft eine 1 - die Code-Zahl dieser Taste. 

Die Steuertasten haben ihre Code-Zahl 
in der Speicherzelle 653 


Die C=-Taste erzeugt eine 2, die CTRL-Taste eine 4 (und die 
natürlich ganz langsam). Drücken Sie mal SHIFT und C = 
gleichzeitig. Siehe da, bei der Speicherzelle 653 und ihren 
Steuertasten gibt das einen Sinn. Die Tabelle aller 
Kombinationen sieht so aus: 


keine Taste 0 

SHIFT 1 

C= 2 

SHIFT und C= 3 

CTRL 4 

SHIFT und CTRL 5 

CTRL und C= 6 

alle drei Tasten 7 


Während wir das ausprobiert haben, läuft links unbeirrt die 
64. Und in der Tat, durch das Aufspalten und Abspeichern 
der Code-Zahlen in zwei getrennte Speicherzellen können 
wir beide Tastenarten, Zeichentasten und Steuertasten, un¬ 
abhängig voneinander und/oder gleichzeitig abfragen. 

Das nutzen wir zum Beispiel bei den Funktionstasten aus. 
Jede von ihnen hat ihre eigene Code-Zahl in Adresse 203. 
Aber das gäbe uns nur vier Möglichkeiten, entsprechend der 
Aufschrift der ungeraden f-Zahlen. 

Um auch f-2 bis f-8 zu erhalten, kombinieren wir die vier 
Zahlen in 203 einfach mit SHIFT-Taste gedrückt oder nicht 
(1 oder 0 in 653). 

Aber Sie sehen schon, wie willkürlich das ist, denn wir 
könnten f-6 auch definieren als Kombination von der dritten 
Funktionstaste und CTRL (also 55 und 4). 

Überhaupt, wir sind gar nicht auf acht Funktionstasten 
bescnränkt, wie es uns durch den Ausdruck eingeredet wird. 
Die vier Funktionstasten ergeben zusammen mit den acht 
Kombinationen der Steuertasten 32 mögliche Funktionen. 
Natürlich gilt das für alle Tasten der Tastatur. Der Computer 
selbst nutzt allerdings nur wenige Kombinationen aus. SHIFT 
und C= (3) schaltet alle Buchstaben in Groß-/Kleinschrift um, 
die CTRL-Taste mit den Zahlentasten erzeugt die Vorder¬ 
grund-Farben. Sie haben also viel Raum für phantasievolle 
Abfragekombinationen. Die Abfrage selbst und ihre Verwen¬ 
dung in einem Programm will ich abschließend mit den Funk¬ 
tionstasten demonstrieren. 


Eine »Heimorgel« ganz besonderer Art 


Wie man mit dem VC 20 Töne erzeugt, wissen Sie. In Zeile 
10 definieren wir das Sopranregister und geben ihm den 
Namen Z, in Zeile 20 schalten wir die Lautstärke ein. 
Lautstärke des Fernsehers nicht vergessen! 

10 Z=36876 
20 P0KE 36878,10 

Ab Zeile 40 bis 110 wird jede einzelne Kombination der 


Code-Zahlen von Funktions- und Steuertasten abgefragt. 
Sobald sie auftritt, wird ein entsprechender Ton der Tonleiter 
gePOKEt. 

30 A=PEEK(203): B=PEEK(653) 

40 IF A=39 AND B=0 THEN P0KE Z,131 
50 IF A=47 AND B=0 THEN P0KE Z,l45 
60 IF A=55 AND B=0 THEN P0KE Z,157 
70 IF A=63 AND B=0 THEN P0KE Z,l62 
80 IF A=39 AND B=1 THEN P0KE Z,172 
90 IF A=47 AND B=2 THEN P0KE Z,181 
100 IF A=55 AND B=4 THEN P0KE Z,189 
110 IF A=63 AND B=7 THEN P0KE Z,193 
Ein Rücksprung in die Zeile 30 verleiht dem Ton auch die 
Dauer. 

120 GOTO 30 

Damit ein Ton aber nur so lange klingt, wie eine 
Tastenkombination gedrückt ist, schieben wir noch Zeile 35 
ein, die das Sopranregister auf 0 (Stille) setzt, sobald »keine 
Taste« gedrückt ist. 

35 IF A=64 AND B=0 THEN P0KE Z,0 
Jetzt will ich Ihnen natürlich noch die von mir gewählten 
Tastenkombinationen verraten, damit Sie gezielt »Alle meine 
Entchen« spielen können. Es gilt der Reihe nach: 

Zeile 40 f-1 

Zeile 50 f-3 

Zeile 60 f-5 

Zeile 70 f-7 

Zeile 80 f-1 und SHIFT 

Zeile 90 f-3 und C= 

Zeile 100 f-5 und CTRL 
Zeile 110 f-7 und CTRL und C= und SHIFT 
Ich gebe zu, daß diese Tastenauswahl nicht gerade eine 
bequeme Klaviatur ergibt. 

Ihrem Ehrgeiz ist es überlassen, eine Orgel zu 
programmieren, die zwar immer noch einstimmig ist, aber 
eine »normale« Klaviatur hat und auch den vollen Tonumfang 
■ les VC 20 ausnutzt. Stellen Sie einfach die Code-Zahlen der 
Zeichentasten so zusammen, daß eine Tastenreihe die 
»weißen« Tasten und die darüberliegende Reihe die 
»schwarzen« Tasten darstellt. 


Tastenabfrage und kein Ende: 
was es sonst noch alles gibt 


Mit den Steuertasten können Sie die Oktaven umschalten, 
mit den Funktionstasten verschiedene Lautstärken. Die 
Zahlen für die Abfrage entnehmen Sie der Liste. 

Statt Töne zu POKEn, können Sie natürlich mit dieser 
Abfragetechnik der Funktionstasten (und auch der anderen 
Tasten) alles mögliche per Programm steuern: Raumschiffe 
abschießen, Textseiten weiterschalten, den Hund rauslassen 
oder Toast rösten. 

Ich habe Ihnen bisher gezeigt, wie alle Tasten des VC 20 
beziehungsweise des C 64 in einer Matrix angeordnet sind. 
Sobald eine Taste gedrückt wird, steht eine spezielle, nur 
dieser einen Taste zugeteilte Code-Zahl im Register 37152 
des VC20. Das entsprechende Register des C64 ist 56320. 

Auch habe ich erklärt, wie die Code-Zahlen zustande 
kommen. In einem kleinen Demonstrationsprogramm haben 
wir dann durch Abfragen dieses Registers mit PEEK 
bestimmte Programmschritte mit Tastendruck gesteuert. 

Wir haben herausgefunden, daß das Betriebssystem des 
Computers bei Verwendung von Basic eine Abfrage von nur 
acht Tasten zuläßt. Die Abfrage aller Tasten, auch mehrerer 
Tasten gleichzeitig, mit einem Programm in Maschinencode 
habe ich Ihnen für den Schluß versprochen. 
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C 64/VC 20 


LIST 


10 

20 

30 

99 


PRINT 

PRINT 

PRINT 

END 


CHR*(65) 

CHR*(156> 

CHR*(66)CHR*(13)CHR#(67) 


READY. 

RUN 

A 

B 

C 

READY. 


Bild 3. Auf dem Bildschirm haben »B« 
und »C« eine andere Farbe wie »A« 


LIST 

10 PRINT CHR*(65) 

20 PRINT CHR*(156) 

30 PRINT CHR$(66)CHR$(17)CHR$(67) 

99 END 

READY. 

RUN 

A 


B 

C 

READY. 


Bild 4. Resultat der Steuerfunktion 17, 
«CURSOR DOWN« 


LIST 

5 POKE 198,5 
10 POKE 631,65 
20 POKE 632,156 

30 POKE 633,66:POKE 634,17:POKE 635,67 
99 END 
READY. 

RUN 


READY. 

AB 

C 


Bild 5. Die ASCII-WERTE wurden in den 
Tastaturpuffer gePOKEt 


LIST 

5 POKE 198,10 

10 POKE 631,65:POKE 632,13 

20 POKE 633,156 

30 POKE 634,66:POKE 635,17:POKE 636,67 

99 END 

READY. 

RUN 

READY. 

A 


7SYNTAX 

READY. 

B 

C 


ERROR 

Bild 6. Das Beispielprogramm mit dem 
Codewert für RETURN 


Wir sind aber noch einen Schritt weitergegangen und 
haben herausgefunden, daß diese Code-Zahlen der 64 
Tasten umgerechnet und für Zeichen- und Steuertasten 
getrennt in die Speicherzellen 203 und 653 gebracht 
werden. 

Mit dem folgenden kleinen Programm haben wir dann diese 
beiden Speicherzellen abgefragt und eine Tabelle (Tabelle 1) 
angefertigt. 


Tippen Sie ein: 

100 PRINT PEEK(203), PEEK(653) 

200 GOTO 100 

Der Grund, daß die Zahlen für die beiden Computer, trotz 
gleicher Tastatur, verschieden sind, liegt darin, daß die elek¬ 
trische Anordnung der Tasten in einer 8 x 8-Matrix (die ich für 
den VC 20 gezeigt habe) beim C 64 anders sind. 

Nun lesen Sie, wie man eine vollständige Tabelle der ASCII- 
Codes vom VC 20 und Commodore 64 erstellt. Außerdem 
werden Sie erfahren, daß die beiden Systeme wesentlich 
mehr Funktionstasten bieten, als Sie bisher vielleicht ange¬ 
nommen haben. 

Die Wiederholung ist die Mutter 
der Weisheit 


Im Gedenken an diesen Spruch meines Latein-Lehrers zeige 
ich noch einmal die Anwendung dieser Code-Zahlen im 
Listing 1. Zeilen in (), wie gesagt, sind für den C 64, aber nur 
dort, wo er sich vom VC 20 unterscheidet. 

Natürlich wähle ich wieder die Funktionstasten und am 
besten auch noch eine andere Tastenkombination. Zweck 
der kleinen Demonstration soll das Umschalten auf verschie¬ 
dene Bildschirmrahmen- und Hintergrundfarben sein. Ich 
schlage vor, Sie nehmen wie üblich die Zeitschrift zum Com¬ 
puter und lesen tippend weiter. Es folgt nun das Programm 
1 zur Tastaturabfrage. 

10 PRINT CHR$(l47) 

Diese Befehlsfolge löscht den Bildschirm. Die Code- 
Zahlen der Funktion CHR$ werde ich noch erklären. 

Die Zeilen 20 und 30 erleichtern die Tipperei und machen 
übiiu . ns das Programm ein bißchen schneller. Sie ordnen 
den Variablen A und B den Inhalt der Speicherzellen 203 und 
653 - die wir ja abfragen wollen - zu. 

20 A=PEEK(203) 

30 B=PEEK(653) 

Jetzt geht's los mit der Fragerei. Die Taste fl, mit der wir die 
Farbkombination Blau/Gelb schalten wollen, hat folgende 
Code-Zahlen: 

40 IF A=39 AND B=0 THEN POKE 36879,126 
(40 IF A=4 AND B=0 THEN POKE 53280,6:POKE 53281,7 ) 
f2 ist dieselbe Taste, aber geSHIFTet (B=1). Die Farben sol¬ 
len jetzt Rot/Grün sein: 

50 IF A=39 AND B=1 THEN POKE 36879,45 

(50 IF A=4 AND B=1 THEN POKE 53280,5: POKE 53281,2) 

60 IF A=47 AND B=4 THEN POKE 36879,25 

(60 IF A=5 AND B=4 THEN POKE 53280,1: POKE 53281,1) 

Zeile 60 bestimmt ebenfalls eine Funktionstaste und zwar 
f3. Allerdings habe ich sie willkürlich mit der CTRL-Taste kom¬ 
biniert, nicht, um Sie zu verwirren, sondern um zu zeigen, daß 
wir mit den f-Tasten mehr als acht Funktionen festlegen kön¬ 
nen, nämlich 32! (Vier f-Tasten mal acht Steuertasten-Kombi- 
nationen). 

Mit dem Klammeraffen »@« schalten wir die Farben in den 
Normalzustand zurück. 

70 IF A=53 AND B=0 THEN POKE 36879,27 

(70 IF A=46 AND B=0 THEN POKE 53280,3: POKE 53281,1) 

Zeile 80 läßt das Programm im Kreis laufen, so daß die 
Funktionstasten beliebig oft ausprobiert werden können. 

80 GOTO 020 

Funktionstasten im Überfluß 


So, jetzt kommt der absolute Hit dieser Methode! 

Ich habe gerade vorher gesagt, daß wir nicht acht, sondern 
32 mögliche Funktionstasten haben, nämlich durch Verwen- 
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düng der vier f-Tasten mit den acht Steuertasten-Codes in 
Speicherzellen 653. 

Dasselbe gilt für jede andere Taste natürlich auch! 

Der Computer benützt allerdings einige davon, zum Bei¬ 
spiel die 1 (SHIFT) für die Zeichen über den Zahlen bezie¬ 
hungweise rechts unten auf den Tasten, die 2 (C=) für die 
Zeichen links unten auf den Tasten und die 4 (CTRL) für die 
Farben. 

Wir können daher mit den vom Computer benutzten Zahlen 
3,5,6 und 7 aus Zelle 653 in Kombination mit allen 55 Tasten 
eine riesige Anzahl verschiedener »Funktionstasten« erfin¬ 
den und sie in unseren Programmen einsetzen. 


Der Computer geht bei der Abfrage 
noch einen Schritt weiter 


Aber auch die 4 der CTRL-Taste, die ja nur die obere Reihe der 
Tasten beeinflußt, hat einen praktischen Wert, meiner Mei¬ 
nung nach sogar einen sehr großen, da sie ja nur einen einzi¬ 
gen Tastendruck erfordert und nicht eine Kombination. 

Die CTRL-Taste kombiniert mit den 35 Tasten der unteren 
drei Reihen der Tastatur gibt uns mehr »Funktionstasten« als 
wir wahrscheinlich jemals brauchen werden. 

Mehrere handelsübliche Zusatzmodule und -Programme 
verwenden diese Methode, zum Beispiel auch die »Program¬ 
mierhilfe« von Commodore. Verwenden Sie’s doch auch! Das 
Kochrezept dazu steht oben in den Zeilen 50 bis 80. 

Um das Ergebnis eines Tastendrucks weiter zu verarbei¬ 
ten, wäre dem Computer die Abfrage zweier Speicherzellen 
zu langsam. Außerdem entsprechen diese Tastencodes kei¬ 
ner internationalen Norm, was in Verbindung mit anderen 
Geräten sehr lästig wäre. 

Es gibt den international anerkannten ASCII-Code (Ame¬ 
rican Standard Code for Information Interchange), der ur¬ 
sprünglich für die Zeichenübertragung von Fernschreibern 
erfunden wurde. Er besteht aus Dualzahlen mit einer Länge 
von 8 Bit oder falls Sie Dualzahlen nicht kennen (eine erste 
Einführung ins Dualsystem steht im Grafikkurs) aus Zahlen 
von 0 bis 255. 

In diesen ASCII-Code wandelt der Computer nun die oben 
verwendeten Codezahlen der Tasten um. Die Umwandlung 
ist denkbar einfach. 


Umrechnung des Tastatur-Codes 
in den ASCII-Code 


Im nicht löschbaren Speicher (ROM) des Betriebssystems 
stehen vier Tabellen mit Zahlen. 

Wenn man nun die Code-Zahl einer Taste zur Anfangs¬ 
adresse der Tabellen addiert, erhält man eine Adresse, in der 
die ASCII-Codezahl gespeichert ist. Einfach, nicht wahr? 

Probieren geht über studieren. Die Tabelle mit den unge- 
SHIFTeten Zeichen, also der Zahlen und Großbuchstaben, 
beginnt beim VC 20 ab Speicherzelle 60510, beim C64 ab 
60289. 

Nehmen wir das »G«, sein Tatencode aus der Tabelle ist 19 
(26). 

Zu 60510 (60289) dazugezählt ergibt das 60529 
(60315). Nun wollen wir mal nachschauen, was in dieser 
Zelle steht. 

Geben Sie »direkt«, (das heißt ohne Zeilenzahl) ein: 
für VC 20: PRINT PEEK (60529) 
für C 64: PRINT PEEK (60315) 

Das Resultat ist 71. Ein Blick auf die ASCII-Liste des Hand¬ 
buches (oder in jede andere ASCII-Tabelle) zeigt uns die Rich¬ 


LIST 

5 POKE 198,10 

10 POKE 631,65:POKE 632,141 
20 POKE 633,156 

30 POKE 634,66:POKE 635,17:POKE 636,67 

99 END 

READY. 

RUN 


READY. 

A 


B 

C 


Bild 7. ▲ 

Die Wirkung der 
ASCII-Zahl 141 
(SHIFT RETURN) 
im Beispiel¬ 
programm 


Bild 8. 

Programm zur 
Abfr-.t. mit 
Gänsefüßchen 


410 PRINT "SHIFT und CLR/HOME 

ii 

420 GET A$ 

430IF A$= "" THEN 420 
440 IF A$= " f-1 " THEN POKE 
36879,126 

450 IF A$= " f-2 " THEN POKE 
36879,45 

460 IF A$= " f-3 " THEN POKE 
36879,25 

470 IF A$= " I® " THEN POKE 

36879,27 

480 GOTO 420 

Für den C 64 gelten in den Zeilen 
440 bis 470 andere POKE-Adressen: 

440 .POKE 53280,6:POKE 53281,7 

450 .POKE 53280,5:POKE 53281,2 

460 POKE 53280,l:POKE 53281,1 

470 POKE 53280,3:POKE 53281,1 


tigkeit dieser Aktion. Der ASCII-Code des Zeichens »G« ist 
71. 

Um alle ASCII-Codes abfragen zu können, schreiben wir 
wieder ein kleines Programm. 

110 A=PEEK (203) 

120 Z=60510 
(120 Z=60289) 

170 C=PEEK(Z+A) 

Bitte verwenden Sie meine Zeilennummern, ich möchte 
nämlich später noch andere Zeilen einschieben. 

Diese drei Zeilen sollten Ihnen klar sein. Zur Erinnerung: 
60510 ist die Anfangsadresse der Code-Tabelle beim VC20. 
Die 64er müssen also ihre eigene Adresse (60289) nehmen. 

Als Ergebnis wollen wir noch den Tastaturcode (Zeile 110) 
und den ASCII-Code (Zeile 170) nebeneinander ausdrucken: 
200 PRINT A;C 
220 GOTO 110 


Bild 9. ASCII-Codes 
mit entsprechenden 
Bildschirm-Codes 


ASCII-CODE 

BILDSCHIRM-CODE 

0- 31 

entspricht 
keinem Zeichen 

32- 64 

32- 64 

64- 96 

0- 31 

96 - 127 

192 - 223 

64- 95 

128 - 159 

entspricht 
keinem Zeichen 

160 - 191 

224 - 255 

96 - 127 

entspricht 

keinem 

ASCII-Code 

128 - 255 
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Damit die beiden Zahlenbänder nicht zu schnell laufen, 
fügen wir noch eine Verzögerungsschleife ein. 

210 FOR T=1 TO 200: NEXT 

Dieser Programmablauf, der mit RUN 110 gestartet wird, 
reagiert jetzt auf jeden Tastendruck, links mit dem Tasten¬ 
code, rechts mit ASCII. Worauf er aber nicht reagiert, sind 
geSHIFTete Zeichen, solche mit der Commodore-Taste »C« 
und die Farben (mit CTRL). 

Sie wissen warum? Natürlich, denn wir fragen ja nur die 
Speicherzellen 203 ab und nicht zusätzlich auch 653. 

Jetzt muß ich noch schnell erwähnen, daß auch der Com¬ 
puter diese Zellen abfragt. 


Wo steht was? 


Erinnern Sie sich, ich habe oben gesagt, daß im ROM Tabel¬ 
len stehen: 

(1) ab 60510 (60289) für normale Zeichen 

(2) ab 60575 (60354) für Zeichen mit SHIFT 

(3) ab 60640 (60419) für Zeichen mit C= 

(4) ab 60835 (64632) für Zeichen (Farben) mit CTRL 
Das bauen wir jetzt in das Programm ein: 

Zeile 120 ändern wir ab. Sie fragt jetzt die Speicherzelle 653 
nach den Steuertasten ab. In den Zeilen 130 bis 160 sprin¬ 
gen wir auf die vier Tabellenanfänge. Der Ausdruck in Zeile 
200 schließlich wird mit der Codezahl aus 653 erweitert, 
nämlich B. 


120 B=PEEK(653) 

130 IF B=0 THEN Z=60510 (60289) 
140 IF B=1 THEN Z=60757 (60354) 
150 IF B=2 THEN Z=60640 (60419) 
160 IF B=4 THEN Z=60835 (64632) 
200 PRINT A;B;C 


r on 


Die Reihenfolge der Zahlenbänder auf dem Bildschirm - 
entsprechend der Zeile 200 - ist jetzt von links Zeichentaste, 


Steuertaste, ASCII-Code. 


Der ASCII-Code wird im Tastatur-Puffer 
abgelegt 


Ehrlich gesagt, das Verfahren der Tastaturabfrage in dem vor¬ 
herigen Programm ist immer noch recht kompliziert. Eine 
direkte Abfrage des ASCII-Codes einer Taste wäre viel 
besser. 

Und in der Tat, der Computer bietet sie uns. Er bringt näm¬ 
lich jeden ASCII-Wert in einen Speicher zur Zwischenlage¬ 
rung, bis er von einem Programmschritt gebraucht wird. 

Dieser Speicher heißt »Tastatur-Puffer« und liegt von Spei¬ 
cherzelle 631 bis einschließlich 640. 

Es können also maximal zehn Werte gespeichert werden. 
Das erste Zeichen steht immer in 631, alle anderen werden 
der Reihe nach in die folgenden Zellen gebracht. 

Als erstes wird das Zeichen aus 631 ausgelesen und alle 
anderen rücken nach. 

Wenn das Programm die ASCII-Werte aus dem Tastaturpuf¬ 
fer auslesen kann, dann können wir das natürlich auch. Das 
folgende kleine Programm soll es beweisen. 

310 PRINT CHR$(l47) 

330 A=PEEK(631) 

Sie sehen, wir wollen ganz einfach in Zelle 631 des Tasta¬ 
turpuffers nachschauen, welcher ASCII-Wert nach Drücken 
einer Taste dort steht (Zeile 330). In Zeile 340 drucken wir 
den Wert aus und springen dann zum PEEK-Befehl zurück. 
340 PRINT A 
350 GOTO 330 


Wenn Sie dieses Programm mit RUN 310 laufenlassen, 
werden Sie merken, daß es nicht geht, ich will sagen: noch 
nicht geht. Den Grund dafür habe ich kurz vorher schon 
angedeutet. 

Wo sind die Computer-Detektive? Haben Sie's gemerkt? 

Nun, ich habe erklärt, daß die ASCII-Werte der gedrückten 
Tasten der Reihe nach im Tastaturpuffer gespeichert werden 
und dann, wenn ein Wert aus 631 ausgelesen wird, nach¬ 
rücken. Das ist der springende Punkt: durch PEEKen lesen 
wir nicht aus, wir schauen nur nach! 

Es gibt zwei Lösungen für dieses Problem: 

1) Wir verwenden einen Befehl, der den Wert herausholt; das 
ist GET oder INPUT. 

2) Wir gaukeln dem Computer vor, daß der Tastaturpuffer nur 
aus einer einzigen Speicherzelle besteht. 

Die zweite Methode ist exotischer, deshalb zeige ich Sie 
Ihnen zuerst. Es gibt eine Speicherzelle 198. In dieser Zelle 
steht eine Zahl, die angibt, wieviele Zeichen im Tastaturpuffer 
Platz haben. Normalerweise steht da eine 10 (schauen Sie 
nach). 

Diese Zelle kann mit kleineren Zahlen gePOKEt werden, 
auch mit einer 0. Die 0 löscht sozusagen den Puffer. Das 
machen wir jetzt in unserem Programm vor dem PEEKen: 
320 POKE 198,0 
350 GOTO 320 

Jetzt läuft's. 

Die Zeile 340 gibt uns also den ASCII-Code der gerade 
gedrückten Taste auf dem Bildschirm aus, zum Beispiel die 
Zahl 84 für das »T«, 163 für das »-«(T mit C=) und so weiter. 

Unter Verwendung von GET würde unser Programm so 
aussehen: 

310 PRINT CHR$(l47) 

.320 GET A$ 

330 Tr A$= " " THEN 320 
340 PRINT ASC(A$) 

350 GOTO 320 

Neu ist die Verwendung der Funktion ASC. Sie bildet den 
ASCII-Wert des Zeichens A$. 

Für diejenigen, die es noch nicht kennen: Zeile 330 nach 
dem GET ist erforderlich, da der GET-Befehl nicht auf das 
Drücken einer Taste wartet, sondern gleich weiterläuft. 
Solange aber keine Taste gedrückt ist, geht die Schleife nach 
320 zurück. 

Mit INPUT geht’s noch kürzer, nur ist die Bedienung etwas 
umständlicher. 

310 PRINT CHR$(l47) 

320 INPUT A$ 

340 PRINT ASC(A$) 

350 GOTO 320 

Der Umstand liegt daran, daß INPUT im Gegensatz zu GET 
auf einen Tastendruck wartet, der zusätzlich mit RETURN 
abgeschlossen werden muß. 

Nach diesen Erklärungen und Versuchen müßten Sie 
eigentlich in der Lage sein, Listing 1 so umzuschreiben, daß 
statt der Abfrage der Speicherzellen 203 und 653 der Tasta¬ 
turpuffer abgefragt wird. Ich schlage Ihnen vor, daß Sie das 
jetzt selbst ausprobieren, sozusagen als Hausaufgabe. Die 
Lösung zeigt Listing 4. 

Das einzige, was ich Ihnen verraten will, wissen Sie eigent¬ 
lich schon, nämlich, daß Sie sich die ASCII-Werte für die 
f-Tasten und den Klammeraffen »@« besorgen müssen. Aber 
wozu haben Sie Programm 3 gleich in drei Versionen? 

Ich hoffe, daß Sie nach dieser Übung einsehen, daß Sie 
eine vollständige Liste aller ASCII-Codezahlen und ihrer 
Bedeutung unbedingt brauchen. Halt, werden Sie jetzt 
sagen, die Liste steht ja in jedem Handbuch - sogar in dem 
von Commodore. 

Das stimmt, nur sind die meisten Listen nicht komplett. 

Erinnern Sie sich? Ich habe vorher mal gesagt, daß der 
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ASCII-Code die Werte von 0 bis 255 hat. Diese werden von 
den Commodore-Computern in nicht immer ganz der Norm 
entsprechender Weise für alle möglichen Zeichen und Son¬ 
derfunktionen verwendet, wie zum Beispiel die Farben, die 
Sonderzeichen auf den Tasten, Zeichenumschaltung und so 
weiter. 

Auch die Funktion »Bildschirm löschen und Cursor auf 
HOME-Position« (das heißt die CLR/HOME-Taste) ist dabei - 
mit dem Codewert 147. Merken Sie was? Schauen Sie mal 
die jeweiligen lOer-Zeilen der Programme bisher an! 

Es lohnt sich also schon, alle Code-Werte und die dazuge¬ 
hörigen Zeichen und Funktionen anzusehen. 

Ihnen die Liste einfach abzudrucken wäre zu simpel. Sie 
sollen ja durch Experimentieren Ihren Computer besser ken¬ 
nenlernen. Ich liefere Ihnen dazu die Versuchsanordnung. 

Vorher aber brauchen wir noch ein Hilfsmittel, welches uns 
erlaubt, aus einem ASCII-Wert das Zeichen beziehungsweise 
die Funktion zu ermitteln. Es ist die Umkehrung der in Pro¬ 
gramm 3 verwendeten ASC-Funktion. Sie kommt ebenfalls 
aus Basic und heißt CHR$(x). 

Dieser Befehl liefert uns das Zeichen oder die Funktion des 
ASCII-Codes x. 

Der Befehl PRINT CHR$(x) bringt Zeichen auf den Bild¬ 
schirm. (Mit dem Befehl PRINT # a,CHR$ wird das Zeichen 
an ein beliebiges, mit der Nummer a bezeichnetes Peripherie¬ 
gerät gebracht. Doch das will ich hier nicht weiter verfolgen.) 
Jetzt aber zurück zu dem Hilfsmittel. 

Ergänzen Sie bitte in Programm 3 die Zeile 340 auf: 

340 PRINT A, CHR$(A) 

Jetzt druckt das Programm nach Start mit RUN 310 neben 
dem ASCII-Code auch das Zeichen, welches natürlich mit der 
gedrückten Taste identisch ist, auf den Bildschirm. Funk¬ 
tionen kann man allerdings nicht ausdrucken, sondern nur 
ihre Auswirkungen feststellen. 

Doch nun zum Kochrezept. Der entscheidende Teil steht in 
Zeile 570 (Listing 5). 

570 PRINT I;" [" CHR$(I)" ]" ;.. AAA" 

I ist die ASCII-Codezahl, die in einer FOR-NEXT-Schleife 
von 0 bis 255 hochgezählt wird. Die beiden Klammern 
[ und ] stehen in Anführungszeichen, damit sie ausgedruckt 
werden. Zwischen ihnen soll das zum Wert I gehörige Zei¬ 
chen stehen. 

In den Fällen, wo der ASCII-Code nicht ein Zeichen, son¬ 
dern eine Funktion bedeutet, bleibt die Klammer leer. Aber 
der Code wirkt sich durch die Form PRINT CHR$(I) auf die 
3 A aus (die Punkte ... stellen drei Leertasten dar). Zum Bei¬ 
spiel erscheinen sie nach 1 = 28 in roter Farbe, bei 1=17 (Cur¬ 
sor Down) eine Zeile tiefer. 

Das Hochzählen von I in Zeile 520 wollen wir aber ein biß¬ 
chen beeinflussen, und das natürlich mit Drücken von Funk¬ 
tionstasten und solchen, die wir dazu verdonnern. 

In Zeile 600 werden daher solche Tasten abgefragt, mit der 
»alten« Methode in Zelle 203. Das ist reine Willkür bezie¬ 
hungsweise Sentimentalität von mir, die »neue« Methode 
über Zelle 631 geht genauso gut. 

Wenn in 203 eine 64 steht (keine Taste gedrückt), dann 
wartet das Programm durch Rücksprung auf die Zeile 600. 

Falls wir die fl-Taste drücken, schaltet Zeile 620 den Hin¬ 
tergrund auf Schwarz und geht wieder in Wartestellung. 
Diese und die beiden anderen Farbumschaltungen mit f3 
(Zeile 630) auf Weiß und mit f5 auf Hellorange (Zeile 640) 
sind dann sehr nützlich, wenn die Farbe der drei A gegen den 
Hintergrund nur schlecht oder überhaupt nicht lesbar ist. 

Zeile 650 gibt uns die Möglichkeit, mit der Minus-Taste in 
der Liste um 1 zurückzuschalten. Zeile 530 erlaubt ein 
Zurückschalten über die 0 nach 25. Erst wenn irgendeine 
beliebige Taste gedrückt wird, springt das Programm auf 
Zeile 660, wo nach kurzer Zeitverzögerung der Bildschirm 
gelöscht (70) und I weitergezählt wird (680 und 690). 



Bild iC Die Tastenanordnung des VC 20 
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Bild 11. Die Tastenanordnung des C 64 
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C 64/VC 20 


5 REM******C 64PR0GRAMM 1********** 


<090> 

10 

PRINT CHR*<147) 


<039> 

20 

A=PEEK(203) 


<008> 

30 

B=PEEK<653> 


<153> 

40 

IF A=4 AND B=0 THEN POKE 53280,6: 
53281,2 

POKE 

<250> 

50 

IF A=4 AND B=1 THEN POKE 53280,5: 
53281,2 

POKE 

<002> 

60 

IF A=5 AND B=4 THEN POKE 53280,1: 
53281,1 

POKE 

<026> 

70 

IF A=46 AND B=0 THEN POKE 53280,3 
53281,1 

POKE 

< 113> 

B0 

GOTO 20 


<010> 


Listing 1. Tastenabfrage in 203 und 653 


105 

REM ****C 64 PROGRAMM 2********** 

<042> 

110 

A=PEEK<203) 

< 098 > 

120 

B=PEEK(653) 

<243> 

130 

IF B=0 THEN Z=60289 

<034> 

140 

IF B=1 THEN Z—60354 

<131> 

150 

IF B=2 THEN Z=60419 

<022> 

160 

IF B=4 THEN Z=64632 

< 191 > 

170 

C=PEEK(Z+A) 

<251 > 

200 

PRINT A;B;C 

< 162> 

210 

FOR T=1 TO 200:NEXT 

<153> 

220 

GOTO 110 

< 164> 


Listing 2. Umrechnung des Tastencodes in ASCII-Code 


So können Sie sich bequem alle 256 Werte des ASCII- 
Codes und ihre Wirkung anschauen. 

Ich möchte Sie hier noch auf folgende Codewerte aufmerk¬ 
sam machen, deren Funktion Sie in diesem Programm entwe¬ 
der nicht sehen können oder deren Funktion den Ablauf 
stören: 

Code Funktionen 

3 entspricht der ungeSHIFTeten STOP/RUN-Taste 

8 setzt die Umschaltung (mit SHIFT und C=) aut den 
2. Zeichensatz außer Betrieb (ausprobieren!) 

9 hebt die Sperre wieder auf 

13 entspricht der RETURN-Taste 

14 schaltet den 2. Zeichensatz per Programm ein 
(ich empfehle, danach wieder auf den »normalen« 
Zeichensatz zurückzuschalten) 

131 entspricht LOAD/RUN (geSHIFTete STOP/RUN-Taste) 

133-140 Funktionstasten fl bis f8 

141 geSHIFTete RETURN-Taste 

142 schaltet den 1. Zeichensatz ein (Umkehrung von 14) 

146 REVERSE-OPF (Taste 0 mit CTRL) 

160 geSHIFTete SPACE-Taste (ja, ja, das gibt es auch!) 

Ich empfehle Ihnen, mit dem Listing 5 zu experimentieren. 
Versuchen Sie, besonders die Funktionen zu identifizieren, 
es ist nicht schwer. Zusätzlich sollten Sie alle sinnvollen 
ASCII-Werte mit den Ihnen zur Verfügung stehenden ASCII- 
Listen vergleichen. Verbessern und vervollständigen Sie 
diese Listen. Sie. gehören zu Ihrem wichtigsten Hand¬ 
werkszeug. 

Ich (habe bisher versucht, Sie zum Experimentieren mit den 
ASCII-Codes anzuregen. In diesem Abschnitt habe ich für Sie 
die vollständige!liste aller 255 Codewerte vorbereitet. Zuvor 
aber möchte idl». Sie erst mit einem Kochrezept einstimmen, 
welches uns ermöglicht, auch diejenigen ASCII-Werte einzu¬ 
setzen, welche durch den Befehl PRINT CHR$(.) nicht oder 
nur schwer darstellbar sind, wie zum Beispiel 8,8,131 und so 
weiter. 

Dynamische Tastenabfrage 


Dieses Kochrezept heißt »Dynamische Tastenabfrage« und 
ist mehrfach beschrieben (siehe Literaturangabe), wird aber, 
wie ich meine, nicht oft verwendet. 

Nun bitte ich Sie, wie gewohnt am Rechner Platz zu neh¬ 
men und mir zu folgen. 


Erinnern Sie sich? Der Codewert einer gedrückten Taste 
wird vom Betriebssystem des Rechners über eine fest einge¬ 
speicherte Tabelle in den ASCII-Codewert umgerechnet, die¬ 
ser wiederum wird im »Tastaturpuffer« (Speicherplätze 631 
bis 640) abgelegt. Aus diesem Puffer haben wir dann die Zahl 
herausgePEEKt. 

Der Rechner macht genau dasselbe. Sooft wir auf eine 
Taste drücken, und wenn gerade kein Programm läuft, druckt 
er das Zeichen auf den Bildschirm oder führt die Funktion der 
Taste aus. Das ist der oft zitierte »Direkt-Modus«. 

Wenn aber ein Programm läuft, dann bleiben die Codezah¬ 
len im Puffer so lange stehen, bis der Rechner fertig ist. Dann 
erst werden sie herausgeholt und verarbeitet. Das will ich 
Ihnen beweisen. 

Tippen Sie im Direkt-Modus ein: 

FOR K=1 TO 15000:NEXT K (RETURN) 

Während diese an sich sinnlose Zeitschleife fünfzehntau¬ 
sendmal im Kreise rumrennt, haben Sie genügend Zeit, 
mehrere Tasten zu drücken, zum Beispiel die erste 
Buchstabenreihe (QWERTYUIOP@ * t). Natürlich sehen Sie 
am Bildschirm gar nichts, denn das Programm der Schleife 
läuft ja noch. Sobald aber die Schleife zu Ende ist, erschei¬ 
nen zehn der getippten Buchstaben. Quod erat demonstran¬ 
dum! Warum nur zehn Buchstaben? Nun, der Tastaturpuffer 
hat halt nur zehn Plätze, logisch? 

Jetzt ist eine gute Gelegenheit da, nochmal die Funktion 
der Speicherzelle 198 auszuprobieren. In 198 kann man 
nämlich eine Zahl hineinPOKEn, welche die Anzahl der Zei¬ 
chen im Tastaturpuffer begrenzt. 

Wiederholen Sie bitte das Experiment von oben, nur soll 
die direkt eingegebene Zeile erweitert werden: 

FOR K=1 T0 15000:NEXT K:P0KE 198,6 (RETURN) 

Und siehe da, jetzt werden nur die sechs Buchstaben Q bis 
Y ausgedruckt. Diese Anwendung des Tastaturpuffers nüt¬ 
zen wir für das Kochrezept »Dynamische Tastenabfrage« 
aus. 

Löschen Sie bitte den Bildschirm und geben Sie ein 
(identisch für VC 20 und C 64): 

10 PRINT CHR$(65) 

20 PRINT CHR$(165) 

30 PRINT CHR$(66)CHR$(13)CHR$(67) 


305 

REM****C 64 PROGRAMM 3 ********** 

<24B> 

310 

PRINT CHR*(147) 


<085> 

320 

POKE 198,0 


<230> 

330 

A=PEEK(631) 


< 192> 

340 

PRINT A 


< 198> 

350 

GOTO 320 


<072> 

405 

REM****C 64 PROGRAMM 4********** 

<096> 

410 

PRINT CHR*(147) 


< 185> 

420 

POKE 198,0 


<074> 

430 

A=PEEK<631) 


<036> 

440 

IF A=133 THEN POKE 53280,6: 
,7 

POKE 53281 

< 161 > 

450 

IF A=137 THEN POKE 53380,5: 
.2 

POKE 53281 

<17B> 


Listing 3. Abfrage des ASCII-Codes aus dem 
Tastaturpuffer 


405 

410 

420 

430 

REM****C 64 PROGRAMM 4********** 
PRINT CHR*(147) 

POKE 19B,0 

A=PEEK(631) 


<096> 

< 185> 
<074> 
<036> 

440 

IF A=133 THEN POKE 53280,6: 
,7 

POKE 

53281 

< 161 > 

450 

IF A—137 THEN POKE 53380,5: 
,2 

POKE 

53281 

< 178> 

460 

IF A=134 THEN POKE 53280,1: 
,1 

POKE 

53281 

<037> 

470 

480 

IF A=64 THEN POKE 53280,3: 

1 

GOTO 420 

POKE 53281, 

<255> 

<210> 


Listing 4. Tastenabfrage aus Tastaturpuffer 
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65 ist der Code für A, 165 für die Farbe »purple«, 66 für 
B, 13 für »RETURN« und 67 für C. 

Bild 3 zeigt den Ausdruck auf dem Bildschirm, wenn Sie 
diese Zahlen LISTen und RUNen. 

Zur Erklärung: Die Leerzeile zwischen A und B ist bedingt 
durch die PRINT-Anweisung in Zeile 20, welche nur die 
Farbe umschaltet. Obwohl die Codes für B und C zusammen 
in einer Zeile stehen, werden sie doch durch das »RETURN« 
(13) untereinander gesetzt. Anstelle der 13 können Sie alle 
möglichen anderen Steuerfunktionen setzen. Bild 4 zeigt das 
Resultat von 17, nämlich »CURSOR DOWN«. 

Wenn Sie die 8 nehmen, können Sie den Zeichensatz nicht 
mehr ändern. Der Einsatz der gleichzeitig gedrückten SHIFT- 
und C=-Tasten funktioniert erst nach CHR$(9) wieder. Das 
Resultat von Bild 4 wollen wir jetzt durch POKEn der ASCII- 
Werte in den Tastaturpuffer versuchen. 

5 POKE 198,5 
10 POKE 631,65 
20 POKE 632,156 

30 POKE 633,66: POKE 634,17. POKE 635,67 
99 END 

Prinzipiell macht dieses Programm das gleiche wie das 
Programm in Bild 4. Trotzdem erhalten wir nach LIST und 
RUN ein anderes Ergebnis, nämlich das von Bild 5. 

Ist das ein Fehler? Natürlich nicht. Schauen Sie her: Nach 
RUN laufen zuerst mal alle POKE-Befehle ab. Zeile 5 gibt an, 
wieviele Zeichen im Puffer stehen sollen. In Zeile 99 findet 
das Programm das ENDe und meldet sich mit READY. Jetzt 
erst wird im Tastaturpuffer nachgeschaut. Dort findet der 
Rechner zuerst das A, dann »purpur«, dann das B, welches 
sofort neben das A gesetzt wird. Das ist auch logisch, denn 
es fehlt ja jede Angabe, eine Zeile tiefer zu gehen. Um das 
zu erreichen, müssen wir in der Zeile 10 den Codewert für 
RETURN einschieben: 

10 POKE 631,65: POKE 632,13 

Vorsicht!! Sie müssen in den Zeilen 20 und 30 alle POKE- 
Adressen um 1 erhöhen und auch die Zahl in Zeile 5. 
Nehmen Sie 10, dann haben Sie Platz für Erweiterungen. So, 
jetzt LIST und RUN und es erscheint Bild 6 - und wir haben 
schon wieder ein Problem! 

Aber alles im Rechner ist logisch! Nach dem A findet er den 
Wert für »RETURN«, also führt er den Befehl aus, auf dem der 
Cursor gerade steht. Der steht auf dem A. Da das kein 
gültiger Basic-Befehl ist, druckt der Rechner die Fehler- 
Meldung und zeigt READY an. Danach allerdings macht er 
weiter wie oben. 

Und jetzt kommt die ASCII-Zahl 141 (SHIFT RETURN) voll 
zur Geltung. Diese Kombination nämlich setzt den Cursor an 
den Anfang der nächsten Zeile, ohne die Befehlsausfüh¬ 
rungsfunktion von RETURN. Ersetzen Sie also die 13 in Zeile 
10 durch 141, dann läuft's (Bild 7). 

Es gibt übrigens noch eine interessante ASCII-Codezahl, 
die in keiner Tabelle steht, nämlich 131. Sie bedeutet 
dasselbe wie die geSHIFTete STOP-Taste, also die Funktion 
»LOAD+RUN«. Wenn Sie diesen Code mit PRINT 
CHR$(131) ausprobieren, funktioniert er allerdings nicht. 
Deshalb steht er wohl auch nicht in den Tabellen. In den 
Tastaturpuffer gePOKEt bringt er aber seine Wirkung. 
Setzen Sie bitte in Zeile 30 an die Stelle von 67 die Zahl 131 
und anstelle des C erscheint 
LOAD 

PRESS PLAY ON TAPE 

So, jetzt haben wir alle Zutaten für unser Kochrezept 
zusammen. Löschen Sie bitte alles bisherige und tippen Sie 
ein: 

10 PRINT CHR$(l47) 

20 FOR 1=1 TO 5: PRINT I 
30 FOR T=1 TO 500: NEXT T 
40 NEXT T 


Nach Löschen des Bildschirms (Zeile 10) drucken wir zum 
Ausschmücken die Zahlen 1 bis 5 untereinander (Zeile 20 
und 40) und damit es nicht zu schnell geht, bremsen wir mit 
der Zeile 30. 

50 PRINT "LIST" 

Das ist natürlich sehr einfach, aber jetzt kommt’s! 

60 POKE 198,5 

70 POKE 631,l45:P0KE 632,l45:POKE 633,145 
80 POKE 634,13 
90 END 

Nach RUN erscheinen erst die fünf Zahlen, dann wird in 
einer neuen Zeile das Wort LIST geschrieben. Nach END 
wird erst (wie immer) eine Zeile ausgelassen, dann READY 
gedruckt und schließlich springt der Cursor an den Anfang 
der Zeile darunter. Während der Cursor anfangen will, somit 
drei Zeilen unter dem Wort LIST zu blinken, findet der Rech¬ 
ner im Puffer dreimal den ASCII-Code für »CURSOR UP«. 
Also geht dieser auch drei Zeilen hoch und will jetzt auf dem 
Wort LIST blinken. 

Damit wird es aber wieder nichts, dann im Puffer steht ja 
noch der Code für RETURN (13). Das wird ausgeführt und 
zwar für das LIST. Es hat dieselbe Wirkung, als ob Sie direkt 
LIST tippen und danach die RETURN-Taste drücken, nämlich 
das Programm wird ausgeLISTet. 

Alle sinnvollen Basic-Befehle, die Sie in der Zeile 50 
PRINTen, werden durch diese dynamische Manipulation des 
Cursors ausgeführt. Versuchen Sie es mit 
50 PRINT "PRINT 16 * 35" 

50 PRINT "LOAD" 

50 PRINT "GOTO 10" 

50 PRINT "RUN" 

50 PRINT "RUN 50" 

und fel'c Sie dieses kleine Programm geSAVEt haben 
50 PRirjT "SYS 64824" 

(50 PRINT "SYS 64763") 

Die Kunst ist also, mit entsprechenden Codezahlen den 
Cursor an diejenige Stelle des Bildschirms zu bringen, wo 
innerhalb eines Programms eine geeignete Anweisung 
gedruckt worden ist. Man kann damit getrennte 
Programmteile nach laden (LOAD), mit SYS-Befehlen Ma¬ 
schinenprogramme aufrufen, oder gar Programme durch 
sich selbst ändern lassen. 

Die Weiterführung dieses Themas ist einen eigenen Bei¬ 
trag wert, deshalb will ich hier abbrechen, denn ich bin Ihnen 
zum Thema »Tastenabfrage« noch einiges schuldig. 

Kehren wir also wieder zur Liste der ASCII-Codes zurück. 

Ich habe für Sie die vollständige Liste aller 255 Codewerte 
vorbereitet und zwar in einer Art, die sicher einiger 
Erklärungen bedarf. 

ASCII-Codes, die von Commodore 
verschwiegen werden 


Ich habe nämlich noch ein paar zusätzliche Überraschungen 
parat, auf die man nur durch Zufall kommt oder durch Studium 
des Betriebssystems oder aber, wenn man den Aufsatz von 
G. Urbanczyk in Computer persönlich vom 19.10.1983, Seite 
76, gelesen hat. 

Tippen Sie bitte Listing 3 ein, nämlich eine der drei 
Versionen zur Tastaturpuffer-Abfrage. (Ich verwende unten 
die GET-Version). 

310 PRINT CHR$(l47) 

320 GET A$ 

330 IF A$= " " THEN 320 
340 PRINT ASC(A$) 

350 GOTO 320 

Auf beiden, VC 20 und C 64 erhalten Sie nach RUN 310 
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C 64/VC 20 


505 REM *** Programm 5 *** ** ** ***^r***** 

506 REM DER VOLLSTÄNDIGE ASCII-CODE * 

507 REM *****^***^rt^ 

S10 PRINT CHR$(I47) 

S20 FOR 1=0 TO 25S 

530 IFI<0THEN 1 = 255 

540 PRINT:PRINT:PRINT:PRINT:PRINT 

550 PRINT"-” 

560 PRINT 

570 PRINT I;”[" CHR$(D;"]”;”... AAA" 

580 PRINT 

590 PRINT ”-” 

600 Z=PEEK(203) 

610 IF Z=64 THEN 600 

620 IF Z=4 THEN POKE 53280,3: POKE 53281,0: GOTO 600 
630 IF Z=5 THEN POKE 53280,3: POKE 53281,l:GOTO 600 
640 IF Z=6 THEN POKE 53280,3: POKE 53281,10: GOTO 600 
650 IFZ=43 THEN 1=1-2 


660 FOR T= 1 TO 100:NEXT T 
670 PRINT CHR$(147) 

680 NEXTI 
690 GOTO 520 


Listing 5. Der vollständige ASCII-Code 

und Drücken der RETURN-Taste (natürlich) den ASCII-Code 
82. Wenn Sie zuerst die CTRL-Taste drücken und halten und 
dann erst das R drücken, dürfte eigentlich nichts passieren, 
denn die CTRL-Taste gilt ja angeblich nur für die Farben. Ja, 
denkste! Wir erhalten nämlich die Zahl 18. Ein Blick in die 
ASCII-Tabelle zeigt uns für 18 die Funktion »REVERSE-ON«. 

Versuchen Sie dasselbe mit CTRL und der —-Taste. Wir 
erhalten die 6, und nicht 95, wie es eigentlich sein sollte. 

Für den VC 20 ist das alles. Aber immerhin, wir haben sozu¬ 
sagen noch zwei zusätzliche Funktionstasten gefunden. 

Beim C 64 aber geht es erst richtig los: 

Der Versuch wird Ihnen zeigen, daß alle Buchstaben, von 
A bis Z, zusammen mit CTRL gedrückt, einen anderen ASCII- 
Wert, nämlich 1 bis 26, ergeben, als allein gedrückt. 

Des weiteren biete ich Ihnen noch: 

CTRL - t = 30 
CTRL - = = 31 
CTRL - $ = 28 
CTRL - : = 27 
CTRL - ; = 29 

Das heißt aber, daß einige ASCII-Codezahlen zwei Bedeu¬ 
tungen haben. Oder umgekehrt, zwei verschiedene Tasten 
(kombiniert) haben denselben ASCII-Code. 

Schwierigkeiten dadurch, daß einige ASCII-Werte zwei 
Bedeutungen haben, gibt es deswegen nicht, weil die Kombi¬ 
nation mit CTRL nicht PRINT-bar ist (PRINT CHR$(19) schickt 
immer den Cursor »home«, mit dem »S« passiert gar nichts). 

Andersherum kann es allerdings Vorkommen, daß eine 
Tastenabfrage, zum Beispiel 

GET A$:IF A$ = CHR$(19) THEN . 

sowohl auf die Taste »HOME« als auch auf »CTRL-S« reagiert. 
Da ist sicher etwas Vorsicht angebracht. Aber ein Blick in 
meine ASCII-Tabelle zeigt Ihnen ja die Doppeldeutigkeiten. 

An dieser Stelle erwarte ich eigentlich einige Einsprüche, 
wie: »Wozu das alles, die acht Funktionstasten, oder gar 
erweitert auf 32, reichen doch völlig aus!« Für den Haus¬ 
beziehungsweise Spielgebrauch ist das sicher richtig. Aber 
bei professioneller Software, welche benutzerfreundlich auf¬ 
gebaut ist, kann es oft gar nicht genügend Funktionstasten 
- besonders solche, die eine optische Buchstabenbezie¬ 
hung zu der Abfrage haben sollen - geben. Wenn in einem 


Programm gefragt wird, ob Sie »LOADen« oder »SAVEn« 
wollen, ist CTRL-L oder CTRL-S halt klarer als f-1 oder f-3. 

Ich finde es schade, daß diese großartige Möglichkeit nur 
auf dem C 64 gegeben ist, der doch professioneller ist als der 
VC 20. 


Die vollständige ASCII-Tabelle 


So, jetzt können Sie meine ASCII-Tabelle erst richtig interpre¬ 
tieren (Tabelle 2). 

Leere Kästchen haben keine Bedeutung für die betref¬ 
fende Codezahl. 

Jeweils zwei Zeichen nebeneinander mit derselben Code¬ 
zahl stellen die beiden Zeichensätze dar, in die mit C=SHIFT 
(Commodore-Taste) umgeschaltet werden kann. Wo nur ein 
Zeichen steht, ist es in beiden Zeichensätzen identisch. 

Die Funktionen der Codezahlen 129 und 149 bis 155 gel¬ 
ten nur für den C 64. Interessant ist übrigens, daß die 4. und 
7. Spalte identisch ist, ebenso die 6. und 8. Spalte (außer 
dem Zeichen für 255). 

Ich möchte jetzt gern die Szene wechseln, ohne aber den 
ASCII-Code aus den Augen zu verlieren. Wir haben den 
ASCII-Code bisher verwendet, um Tasten abzufragen oder 
Funktionen auszuführen. PRINT CHR$(66) druckt zum Bei¬ 
spiel den Buchstaben B auf den Bildschirm. 

Welche Methoden kennen Sie noch, mit denen das gleiche 
erzielt werden kann? 

Die erste, die jeder aus dem Handbuch lernt, ist 
PRINT " B" . 

Die komplizierteste ist: 

7680,2: POKE 38400,7 
1024,2: POKE 55296,7) 

Diese beiden Vorgehensweisen wollen wir uns näher 
anschauen und prüfen, ob wir sie in Analogie zu dem ASCII- 
Code für Tastenabfragen einsetzen können. 


Der Gänsefüßchen-Modus 


Es ist sicher viel bequemer, längere Buchstabenreihen oder 
gar Texte zwischen Gänsefüßchen gestellt einzutippen als 
eine Serie von CHR$-Werten, ganz abgesehen vom erforder¬ 
lichen Speicherplatz. 

Nicht ganz so bequem ist der Gänsefüßchen-Modus bei 
Steuerzeichen, wie zum Beispiel Cursor-Bewegungen, 
besonders, wenn man diese herbeiführen will, aber statt des¬ 
sen die reversen Darstellungen auf dem Bildschirm erzeugt. 

Geben Sie es zu. Sie haben deswegen auch schon herz¬ 
haft geflucht. Auch jeder Redakteur bittet um Listings mit 
CHR$-Darstellung anstelle der reversen Zeichen, die bei der 
Druckwiedergabe oft zu Schwierigkeiten führen. 

Jetzt wissen Sie, warum ich bei meinen Progrämmchen 
immer PRINT CHR$(147) statt PRINT" * verwende. 

Genauso austauschbar wie bei PRINT ist der ASCII-Code 
mit dem Gänsefüßchen-Modus bei der Tastenabfrage. 

Statt: 

10 GET A$ 

20 IF A$OCHR$(65) THEN 10 
30 PRINT CHR$(88) 
können wir schreiben: 

10 GET A$ 

20 IF A$< > " A" THEN 10 
30 PRINT " X" 

Beide Programme sind gleichwertig. Nach RUN rührt sich 
gar nichts. Erst, wenn die A-Taste gedrückt wird (Zeile 20), 
druckt Zeile 30 den Buchstaben X. 
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In Zeile 20 können wir natürlich statt des A jeden beliebi¬ 
gen Buchstaben, Zahl oder Zeichen nehmen. 

LISTen Sie einfach die 2. Version der drei Zeilen, fahren mit 
dem Cursor auf das A und verändern Sie es Ihren Wünschen 
entsprechend. Wie ich Sie einschätze, machen Sie das 
sicher auch mit den Funktionstasten. 

Nein? Dann machen Sie es mal. Sie haben nämlich Pech, 
so geht es nicht. Aber es geht, wenn Sie sich mit Absicht in 
die Lage begeben, die wie vorhin beschrieben, Flüche aus¬ 
löst. Fahren Sie mit dem Cursor auf das 1. Gänsefüßchen, tip¬ 
pen Sie es noch einmal ein und drücken Sie dann eine Funk¬ 
tionstaste. Siehe da, es erscheint ein reverses Zeichen. Mit 
RETURN wird es »fixiert«, nach RUN wird das X erst mit der 
verwendeten Funktionstaste ausgelöst. 

Der Trick besteht also darin, durch eine ungerade Anzahl 
von Gänsefüßchen-Eingaben diesen Modus herbeizuführen. 
Es geht ebenso durch Drücken der INSERT(INST)-Taste, 
allerdings nur für soviele Zeichen, wie oft sie gedrückt wor¬ 
den ist. 

Im Gänsefüßchen-Modus erscheinen 
alle Steuer- und Funktionstasten 
in reverser Darstellung 


Sie haben oben ein reverses Zeichen für die Funktionstasten 
erhalten. Die Zeichen für die Farben und Cursorbewegungen, 
also alle »gängigen« Funktionen, kennen Sie inzwischen 
sicher schon. Aber alle Steuer- und Funktionstasten? 

Es gibt zwei Möglichkeiten, diese Zeichen zu finden: 

Die erste Methode verwendet entweder ganz primitiv im 
Direkt-Modus den Befehl: PRINT " mit nachfolgendem 
Drücken der Steuer- oder Funktionstaste oder sehr elegant 
den Dreizeiler 

10 GET A$: IF A$=" * THEN 10 

20 PRINT CHR$(34) A$ CHR$(34) ASC(A$) 

30 GOTO 10 

Auch hier ist ein kleiner Pfiff drin. In Zeile 20 wird zuerst ein 
Gänsefüßchen (34) gedrückt, wodurch wir in dem danach 
benannten Modus sind. Das nachfolgende A$ erscheint im 
Fall einer Steuertaste als reverses Zeichen, nach dem 
abschließenden 2. Gänsefüßchen gibt uns die ASC-Funktion 
noch den ASCII-Code der gedrückten Taste. 

Mit Gänsefüßchen statt CHR$ hätten wir lediglich die bei¬ 
den Zeichen A und $ auf den Bildschirm gedruckt. Mit dieser 
Methode erhalten Sie zum Beispiel für: 

ASCII-Code 17 = 1» 

Cursor Down. 

ASCII-Code 147 = Ci 

CLR. 

Die zweite Methode ist viel einfacher. Schauen Sie in meine 
ASCII-Tabelle (Tabelle 2). Sie ist in Spalten zu je 32 Zeichen 
angeordnet. Die Steuerzeichen und die Farben stehen alle in 
Spalte 1 und 5. 

Da finden Sie zum Beispiel über der Codezahl 17 die Funk¬ 
tion »Cursor-Down«. Wenn Sie jetzt in die 3. Spalte waagrecht 
rübergehen - also den Wert um 64 erhöhen - steht da das 
IS. Oder: In Spalte 5 ist der Taste CLR die Codezahl 147 
zugeordnet. Zwei Spalten weiter (64 höher) steht das i. 

Wenn Sie die Ergebnisse der ersten Methode oben mit den 
durch Spaltenhüpfen gefundenen Zeichen vergleichen, 
sehen Sie, daß es dieselben Zeichen sind, halt nur reversiert. 
Machen wir die Probe: 

Mit Methode 1 erhalten wir für »Rot« das reverse Pfund- 
Zeichen 0. In der ASCII-Tabelle finden wir »Rot« unter 28. 
Zwei Spalten weiter, unter 28 + 64 = 92, steht dasselbe Zei¬ 
chen. Das gilt auch für alle CTRL-Kombinationen, nichtnurfür 
die der Farben. 


5 rem************»*********#**#.*.#.#*.##.** 

6 REM**#** SPIEL MIT FINKELN ********** 

7 REM********************************** 
10 F'RINT CHR*-<147) 

20 F=0 
30 R=65 

40 FÜR T=1 TO 600: NEX T T 
50 A=IN1CRND(O)*7)+65 
60 IF R>71 THEN 400 
70 PRINT CHR4(A); 

80 FOR T=1 TO 1000:NEXT T 
100 GET A$ 

110 IF A*<>"Hr THEN 300 
120 PRINT"K"; 

200 IF A=R IHEN F=F+1 

210 GOTO 50 

300 IF AOR THEN F=F-*-l 

310 R=R+1 

320 GOTO 50 

400 PRINT"SUSKSSDAS SPIEL IST ZU ENDE" ; "SSiS 
"F"FEHLER" 


Listing 6. Programmtext zum »Spiel mit Finkein« 
für C64 

Bei beiden Computern entspricht dem CTRL-E das 9, 
beim C 64 erzeugt CTRL-E ein fl. Alle Kombinationen der 
Buchstaben mit CTRL erzeugen diese Buchstaben in rever¬ 
ser Darstellung. 

Um das in einer kleinen praktischen Anwendung zu ver¬ 
deutlichen, schlage ich vor, dieselbe Aufgabenstellung, die 
mit Tastencode-Abfrage und mit Tastaturpuffer-Abfrage 
gelöst wurde, noch einmal zu verwenden, jetzt aber die 
Gänscf ißchen-Methode einzusetzen. 

Um beim Eintippen des Programms in Bild 8 sicherzustel¬ 
len, daß alles klappt, habe ich statt der reversen Zeichen die 
Tasten angegeben beziehungsweise umrahmt, die nach dem 
ersten Gänsefüßchen gedrückt werden müssen. 

Das Programm schaltet, wie die beiden anderen Versionen 
auch, die Bildschirm-Farben mit f-1, f-2, f-3 und @ um. 

Ein letztes Problem bleibt uns noch. Wie schaffen wir es, 
daß wir im Gänsefüßchen-Modus auch Funktionen einsetzen 
können, die entweder keine eigene Taste haben (zum Bei¬ 
spiel 14 = Text, 8 = Lock) oder die beim Eintippen sofort die 
Funktion auslösen (zum Beispiel 13 = RETURN, 20 = 
DELete)? 

Hier müssen wir eine Methode anwenden, die meine Kin¬ 
der und ich »finkein« getauft haben und zwar deswegen, weil 
wir sie zum ersten und einzigen Mal vom Commodore- 
Software-Spezialisten Andy Finkei im amerikanischen Hand¬ 
buch gefunden haben. 

Sein Trick besteht darin, daß er in einer ASCII-Tabelle das 
entsprechende Zeichen für die Funktion heraussucht und es 
in mehreren Schritten an seinen vorgesehenen Platz bringt. 

Ich will Ihnen zeigen, was ich damit meine: 


3 REM**************** 

4 REM*»CODE-HÄNDLER** 

5 REM**************** 

10 PRINT CHRSC147) 

£0 INPUT "M4SCI I -CODE")AC II 
30 IP AC11=0 THEN END 

40 IF ACII AND 1£8 THEN B1LD=ACII AND 127 OR 64160T0 80 
50 IF NOT ACII AND 64 THEN BILD=ACII:GOTO 80 
60 IF ACII AND 32 THEN BILD=ACII AND 95:G0T0 80 
70 BILD =ACII AND 63 

80 PRINT TAB <5) “BILOSCH.CODE:"BILD 
80 GOTO 20 


Listing 7. Ein ASCII-Code Wandler 
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C 64/VC 20 


4 REM ********************** 

5 REM VIELFACHTASTEN 

i> REM ABFRASE 

7 REM **»***■»*■»*■»***■»**■»**■»* 
10 PRINT CHR*(147) 

20 PQKE 51,235 
30 POKE 52,29 
40 POKE 55,235 
50 POKE 56,29 

100 DATA 169,254,141,0 

101 DATA 220,173,1,220 

102 DATA 141,255,29,96 


105 REM-VC20- 

106 REM 100 DATA169,254,141,32 

107 REM 101 DATA145,173,33, 145 

108 REM 102 DATA141,255,29,96 

109 REM-VC20-ENDE- 


110 FOR K=1 TO 12 

120 READ X 

130 POKE 7660+K,X 

140 NEXT K 

200 POKE 7662,127 

210 SYS 7661 

220 PRINT » 63" PEEK(7679); 
300 POKE 7662,191 
310 SYS 7661 
320 PRINT PEEK(7679); 

400 POKE 7662,223 

410 SYS 7661 

420 PRINT PEEK(7679); 

500 POKE 7662,239 
510 SYS 7661 


511 REM -VC20- 

512 REM 520 PRINT PEEK(7679) 

513 REM 550 GET A* 

514 REM 560 IF AS<>"S"THEN200 

515 REM -VC20—ENDE- 


520 PRINT PEEK(7679); 

600 POKE 7662,247 

610 SYS 7661 

620 PRINT PEEK(7679); 

700 POKE 7662,251 

710 SYS 7661 

720 PRINT PEEK(7679); 

800 POKE 7662,253 

810 SYS 7661 

820 PRINT PEEK(7679); 

900 POKE 7662,254 

910 SYS 7661 

920 PRINT PEEK(7679) 


940 REM-VC20- 

950 REM GET AJ- 

960 REM IF A*<>"«r THEN 600 

970 REM-VC20-ENDE- 


1000 GOTO 200 
READY. 


Listing 8. 

Programm zum 
Abfragen und Anzeigen 
aller Tasten 


0 REM**************** 

1 REM** SPIEL FUER ** 

H REM** 4 PERSONEN ** 

3 REM**************** 

4 REM 

5 REM 

6 REM**************** 

7 REM*** EINGABE **** 

8 REM*»MASCHINENCODE* 

3 REM**************** 

10 PRINT CHR*<147> 

20 POKE 51,235 
30 POKE 52,23 
40 POKE 55,235 
50 POKE 56,29 

VO 20; 100 Dfl ' m !S9'0rl41 ,32,145,173,33,145,141 ,255,23,96 

O 64; 100 DftTfl 169 ,0,141,0, 220 ,173,1 ,220 ,14 1 ,255,29,96 


110 FOR K = 1 TO 12 
120 READ X 
130 POKE 7660+K,X 
140 NEXT K 

139 REM************** 

200 REM*ANLIE 1SUNGEN* * 

205 REM************** 

210 PRINT CHRS(147> 

215 POKE830,0 

1 ! CUDTASTE 
2: <Z>TASTE 
3!(DEL)TASTE 
4! (CRSR+-) TASTE 


220 PR1NT-MW3PIELER 
IELER 
IELER 

250 PR INT "SßlSP IELER 


VC ?f)' 230 print "j®s spie 

V'-' 240 PR INT "HSSP IE 


C 64: 


220 PR INT"MS5P IELER 1 DRUECKT 
230 PR INT"MSPIELER 2 DRUECKT 'COMMODORE 
240 PR INT"SEPIELER 3 DRUECKT 'INST/DEL' 
250 PR INT"3§5P IELER 4 DRUECKT ' CRSR+*' 


260 PRINT TAB (125)" «EPflCEW 
270 GET AS:IF AS=“”THEN 270 
280 PRINT CHRS<147> 

300 POKE 36873,8 

310 PR INT "SEHER S U ALS ERSTER 
320 PR INT"SJ3EN BUCHSTABEN 
330 BU = INT<RND(0>*10> + 1 
340 POKE 7808,BU 

VO 20’ 350 P0KE 33528 ' 7 

360 PR1NT"BBJND DRUECKT SEINE HTASTE ? 

340 POKE 1224+17,BU 
Q g4; 350 POKE 55496 + 17,7 

360 PRINT-1CTJM3 DRUECKT SEINE TASTE 7 


370 PRINT TAB < 165 ) "3B3PACEIÖ" 
380 GET AS:IF AS="" THEN 380 
390 PRINT CHRS<147) 

400 FOR T=1 TO 800:NEXT T 
490 REM*»»***«******* 

435 REM* BUCHSTABEN * 

500 REM** WUERFELN ** 

510 REM************** 

520 V8=INT(RND <0>*10>+1 
530 IF VB=BU THEN POKE 830,250 
540 C=INTIRNO <0 > *505) 

VO 20 : 530 P0KE 7680+c ' VB 

560 POKE 33400+C,1 


Bitte, versuchen Sie mit 
der Gänsefüßchen-Methode 
die DELete-Taste in eine 
PRINT-Anweisung zu bringen 
10 PRINT ' INST/DEL ' 
Sie werden es nicht 
schaffen, da die DEL-Taste, 
statt ein reverses Zeichen zu 
drucken, ihrer Funktion 
nachgeht und das vorherige 
Zeichen löscht. 

Jetzt »finkein« wir: 

1. Schritt: 

10 PRINT " * 

(mit RETURN abschließen) 


C 64: 


540 C= INT(RND(1)*501 > #2 
550 POKE 1024+C,VB 
560 POKE 55296+C,1 
590 REM************** 

595 REM** ABFRAGE *** 

600 REM* DER TASTEN * 

605 REM************** 

610 FOR Z=1 TO 15 


VC 20: 


Listing 9. 

Ein Tastenspiel 
für vier Personen 


620 

630 

POKE 7662,253 

SYS 7661 





640 

650 

660 

IF PEEK(7679>=253 

POKE 7662,239 

SYS 7661 

AND 

PEEK(830>=250 

THEN 

810 

670 

680 

690 

IF PEEK(7679>=253 
POKE 7662,254 

SYS 7661 

AND 

PEEK(830>=250 

THEN 

820 

700 

710 

720 

IF PEEK (7679 > = 127 

POKE 7662,251 

SYS 766J 

AND 

PEEK(830>=250 

THEN 

830 

730 

740 

IF PEEK(7679>=127 

NEXT Z 

AND 

PEEK<830>=250 

THEN 

840 
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C 64/VC 20 


GRUNDLAGEN 


2. Schritt: 

Mit dem Cursor auf die Leerstelle zwischen den Gänsefüßen 
fahren. 

3. Schritt: 

Aus der ASCII-Tabelle das Zeichen der DEL-Taste holen (T). 

4. Schritt: 

Die reverse Darstellung mit CTRL-REV.ON einschalten (der 
Cursor bleibt auf seiner Stelle) und das T drücken, mit 
RETURN abschließen. Jetzt steht das Zeichen drin und das 
Programm läuft. 

Um Ihnen den Schritt 3 für alle widerborstigen Funktionen 
zu erleichtern, habe ich sie alle in der Tabelle 3 zusam¬ 
mengefaßt. 

Da ich hoffe, daß Sie in Zukunft fleißig finkein werden, muß 
ich Sie noch über einen lästigen Nebeneffekt aufklären, der 
bei ein paar Finkeleien auftritt. Einige der Funktionen, näm¬ 
lich RETURN, DELete (schon wieder) und das SHIFT- 
RETURN wirken nicht nur im Programmablauf wie vorgese¬ 
hen, sondern auch beim LISTen, was lästig sein kann. Aller¬ 
dings ergeben sich dadurch auch ungeahnte Möglichkeiten 
- siehe Artikel »Synthetische Steuerzeichen«. Das geSHIF- 
Tete RETURN (ASCII-Code 14) ist sehr nützlich bei Platz- und 
Speichermangel. Sie können nämlich mit ” ■ ” in einer lan¬ 
gen Programmzeile den Cursor mit nur drei Zeichen auf den 
Anfang der nächsten Zeile bringen, mit CHR$(141) brauch¬ 
ten Sie schon neun Zeichen, mit SPC(...) müssen Sie sehr 
genau die Cursorposition berechnen, mit einer entsprechen¬ 
den Anzahl von »Cursor-Rechts«-Zeichen geht es auch nur 
mühsam. 

Also, nützlich ist SHIFT-RETURN durchaus! 

Nur: Beim LISTen wird es auch ausgeführt und die Zeile, in 
der es steht, sieht recht blöd aus. Zusätzlich kann eine derart 
geLISTete Zeile nicht mehr geändert werden, sondern muß 
bei Verbesserungen völlig neu geschrieben und gefinkelt 
werden. Alles Gute hat seinen Preis! 

Soviel sei zur Methode gesagt. Jetzt wollen wir zur Erho¬ 
lung und zur Übung ein kleines Spiel programmieren, in dem 
wir (fast) alles Gelernte auch anwenden. 

Eine kleine Seltenheit ist bemerkenswert: Das Programm 
ist für VC 20 und C 64 identisch! 

Die Spielaufgabe soll darin bestehen, die ersten sieben 
Buchstaben des Alphabets möglichst in der richtigen Rei¬ 
henfolge auf den Bildschirm zu bringen. 

Klingt einfach, aber die Buchstaben sollen in zufälliger Rei¬ 
henfolge auftauchen. Zusätzlich hat der Spieler, falls der 
Buchstabe nicht der Reihenfolge entspricht, lediglich die 
Möglichkeit, ihn mit der DEL-Taste zurückzuweisen, wenn er 


schnell genug ist. Das Programm zählt die Felder und zeigt am 
Schluß das Ergebnis an. 

Wir brauchen dazu: 

- Einen Zufalls-Buchstaben-Erzeuger von A bis G (ASCII- 
Code 65 bis 71) 

- einen Buchstaben-Drucker 

- einen Buchstaben-Reihenfolgezähler 

- eine Möglichkeit, die DEL-Taste zu drücken und damit den 
gedruckten Buchstaben rückgängig zu machen 

- einen Fehlerzähler 

- eine Prüfung, ob der letzte Buchstabe (71) erreicht ist. 
Normalerweise müßte ich jetzt ein Flußdiagramm zeichnen 

und »strukturiert« vorgehen, so wie die ausgezeichnete Serie 
in diesem Heft lehrt. Man möge mir aber verzeihen, daß ich 
aus Erklärungsgründen in einzelnen Schritten vorgehe, wel¬ 
che uns erlauben, jederzeit Zwischenresultate mit Probeläu¬ 
fen zu überprüfen (Listing 6). 

Auf geht's! 

Den Buchstaben-Erzeuger und -drucker erhalten wir durch 
Zeile 50, welche für eine Variable A zufällige ASCII-Codes 
zwischen 65 und 71 erzeugt, sowie durch Zeile 70, die das 
Zeichen für den ASCII-Code ausdruckt. 

50 A=Itrr(RND(0)*7)+65 
70 PRINT CHR$(A); 

Für weniger Versierte sei gesagt, daß RND(O) eine Zufalls¬ 
zahl zwischen 0 und 0,99 erzeugt, mit 7 multipliziert gibt das 
eine Zahl zwischen 0 bis 6,93. Die Funktion INT macht dar¬ 
aus eine ganze Zahl zwischen 0 und 6, mit 65 addiert letztlich 
eine Zahl zwischen 65 und 71 = ASCII-Werte der Buchsta¬ 
ben A bis G. 

Den Ausdruck der Buchstaben nebeneinander erreichen 
wir durch das Semikolon in Zeile 70, die laufende Wiederho¬ 
lung durch einen Rücksprung in Zeile 320. 

320 GC " 50 

Damit es nicht zu schnell geht, verzögern wir das Ganze mit 
einer Warteschleife in Zeile 80. 

80 FOR T=1 TO 1000:NEXT T 
Probieren Sie es mit RUN aus. Zeile 80 übrigens erlaubt 
Ihnen später den Schwierigkeitsgrad zu verändern. 

Die geforderte richtige Reihenfolge der Buchstaben A, ich 
nenne sie hier R, setzen wir am Anfang auf 65 und erhöhen 
sie schrittweise um 1. 

30 R = 65 
310 R = R+l 

In Zeile 60 prüfen wir, ob die Endzahl 71 für das G über¬ 
schritten ist. Wenn ja, springen wir auf Zeile 400, mit der wir 
das Spielende anzeigen. 


C64 


620 

POKE 7662,127 





630 

SYS 7661 





640 

IF 

PEEK(7679)=253 

ANO 

PEEK<830>=250 

THEN 

810 

650 

IF 

PEEK<7679>=223 

ANO 

PEEK<830>=250 

THEN 

820 

660 

IF 

PEEK<7679>=221 

ANO 

PEEK<830>=250 

THEN 

850 

670 

POKE 7662,254 





630 

IF 

PEEK<7679>=254 

AND 

PEEK<830>=250 

THEN 

830 

700 

IF 

PEEK<7679>=251 

ANO 

PEEK<830>=250 

THEN 

840 

710 

IF 

PEEK<7679>=250 

AND 

PEEK<830>=250 

THEN 

850 

720 

NEXT Z 






750 GOTO 500! REM <NEUER BUCHSTABE > 

799 REM************** 

800 REM** ERGEBNIS ** 

805 REM************** 

810 PR INT"»J5HHJ5P IELER 1 
320 PR INT" JSBWSP IELER 2 
830 PR INT " .JWHE P IELER 3 
340 PRINT"LBBBJ3PIEL£R 4 


IST SIEGER"!GOTO 860 
IST SIEGER"!GOTO 880 
IST SIEGER":GOTO860 
IST SIEGER“!GOTO 860 


850 PR INT"LASSE WE I SPIELER WAREN GLEICHZEITIG... 
860 PRINT"SHW40CH EINMAL ? <J/N> 

370 GET AS!IP THEN 200 

830 IF AS=”N" THEN END 
390 GOTO 870 
READY. 


Listing 9. 

Ein Tastenspiel 

für vier Personen (Schluß) 
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C 64/VC 20 


TASTE 

VC- 

20 

C- 

64 


203 

653 

203 

6h'3 

nichts 

64 

0 

64 

0 

f-1 

39 

0 

4 

0 

f-3 

47 

0 

5 

0 

f-5 

55 

0 

6 

0 

i-7 

63 

0 

3 

0 

A 

17 

0 

10 

0 

B 

35 

0 

28 

0 

C 

34 

0 

20 

0 

D 

18 

0 

18 

0 

E 

49 

0 

14 

0 

F 

42 

0 

21 

0 

G 

19 

0 

26 

0 

H 

43 

e 

29 

0 

I 

12 

0 

33 

0 

J 

20 

0 

34 

0 

K 

44 

0 

37 

o 

L 

21 

0 

42 

0 

M 

36 

0 

36 

0 

N 

23 

0 

39 

0 

0 

52 

0 

38 

0 

p 

13 

0 

4 1 

0 

0 

48 

0 

62 

0 

R 

10 

0 

17 

0 

S 

4 1 

0 

13 

0 

T 

50 

0 

22 

0 

u 

51 

B 

30 

o 

V 

27 

0 

31 

0 

Ui 

9 

0 

9 

0 

X 

26 

0 

23 

0 

Y 

n 

0 

25 

0 

z 

33 

0 

12 

0 

1 

0 

0 

56 

0 

2 

56 

0 

59 

0 

3 

i 

O 

8 

0 

4 

57 

0 

1 1 

0 

5 

2 

0 

16 

0 

6 

58 

0 

19 

0 

7 

3 

0 

24 

0 

8 

59 

0 

27 

0 

9 

4 

0 

32 

0 

0 

60 

0 

35 

0 

+ 

5 

0 

40 

0 

- 

61 

0 

43 

0 

* 

14 

0 

43 

0 

/ 

30 

0 

55 

0 

= 

46 

0 

53 

0 

t 

54 

0 

54 

0 

4- 

8 

0 

57 

0 


37 

0 

44 

0 

: 

45 

0 

45 

0 

, 

29 

0 

47 

0 

; 

22 

0 

50 

0 

£ 

6 

0 

48 

0 

e 

53 

0 

46 

0 

CRSR*- 

23 

0 

2 

0 

CRSRt 

31 

0 

7 

0 

DEL 

7 

0 

0 

0 

HOME 

62 

0 

51 

0 

STOP 

24 

O 

63 

0 

RETURN 

15 

0 

1 

0 

SPACE 

32 

O 

60 

0 

SHIFT 

64 

1 

64 

1 

C = 

64 

2 

64 

2 

CTRL 

64 

4 

64 

4 

SHIFT 

U . C- 

64 

3 

64 

3 

SHIFT 

u.CTRL 

64 

5 

64 

5 

C» u. 

CTRL 

64 

6 

64 

6 

SHIFT 

u. C- 
| u.CTRL 

64 

7 

64 

7 


Tabelle 1. Tabelle des 
Tastencodes in den 
Registern 203 und 653. 
Eine komplette Tabelle, 
in der auch die Codes 
für Grafikzeichen ent¬ 
halten sind, finden Sie 
im Sonderheft 8/85 
(Assembler) 


60 IF R > 71 THEN 400 
400 PRINT "BHH 
SPIELENDE" 

Bitte RUNnen Sie das Fragment wieder zur Probe. 

Jetzt kommt die Beeinflussung der Reihenfolge mit der 
DEL-Taste. Wie gelernt fragen wir diese Taste mit einer GET- 
Schleife ab (Zeilen 100,110), ihre Lösch-Wirkung erreichen 
wir in Zeile 120 durch einen PRINT-Befehl (mit Semikolon!). 
Nach Drücken der DEL-Taste darf der Reihenfolge-Zähler der 
Zeile 310 natürlich nicht wirken, deshalb springen wir schon 
vorher aus der Zeile 210 zurück. 

100 GET A$ 

110 IF A$< > " II ", THEN 300 
120 PRINT " U " ; 

210 GOTO 50 

Sie sehen oben, daß ich für die Abfrage der DEL-Taste die 
Finkel-Methode vorschlage. Die anderen Methoden gehen 
natürlich auch. 

Nach RUN springt das Programm auf die noch nicht existie¬ 
rende Zeile 300 (was prompt zur Fehlermeldung führt), es sei 
denn, Sie drücken rechtzeitig die DEL-Taste. 

In der Zeile 300 wollen wir prüfen, ob ein Fehler gemacht 
wurde, das heißt, ob A mit der Reihenfolge R übereinstimmt. 
Im Fehlerfall wird die Fehlerzahl F um 1 erhöht. Vorher aber 
muß F auf 0 gesetzt werden. 

20 F=0 

300 IF AOR THEN F=F+1 

Sie können jetzt schon das Spiel üben. Aber es fehlen noch 
ein paar Feinheiten. 

10 PRINT CHR$(l47) 

410 PRINT F " Fehler" 

Zeile 10 ist klar, Zeile 410 druckt am Spielende die Fehler¬ 
zahl F aus. 

Aber es gibt noch einen Fehler de^ Soielers, nämlich wenn 
er aus Versehen einen richtigen Buchstaben zurückweist. 
Deshalb fragen wir nach erfolgtem Drücken der DEL-Taste in 
den Zeilen 100 bis 120 nach, ob der Buchstabe tatsächlich 
falsch war. Wenn nicht, wird die Fehlerzahl F um 1 erhöht. 
200 IF A=R THEN F=F+1 

Damit uns nach RUN der erste Buchstabe nicht überrascht, 
verzögern wir sein Erscheinen mit 
40 F0R T=1 T0 600: NEXT T 
Zum Finkeln-Üben arrangieren wir die Anzeige des Spiel¬ 
endes und der Fehler etwas um. Alle Anweisungen sollen in 
nur einer Zeile stehen. Löschen Sie bitte die Zeile 410. In 
Zeile 400 wird gefinkelt und zwar mit dem Zeichen für SHIFT 
RETURN, welches laut Tabelle 2 mit SHIFT M erzeugt wird. 
400 PRINT " SSOSeSflB DAS SPIEL IST ZU' $%E" 

F " FEHLER" . 

Bei LIST und bei Ausdruck mit einem. Drucker sehen die 
gefinkelten Zeilen 110, 120 und 1 400 natürlich kurios aus 
und wie gesagt, sie lassen sich bei einem Tippfehler nicht 
korrigieren, sondern müssen neu geschrieben werden. 


Der Bildschirm-Code 


Der Vollständigkeit halber will ich noch die letzte der vorher 
genannten drei Methoden erwähnen, mit denen man ein Zei¬ 
chen auf den Bildschirm bringt, insbesondere, weil der dabei 
verwendete Bildschirm-Code (auch Video-Code genannt) oft 
zu Verwechslungen mit dem ASCII-Code führt. 

Auf Anhieb ist es auch nicht einzusehen, warum Commo- 
dore einen anderen Code verwendet, wenn ein Zeichen 
direkt auf den Bildschirm - oder genauer gesagt, in den Bild¬ 
schirm-Speicher - gePOKEt werden soll. 

Der Grund dafür liegt darin, daß dem ASCII-Code nicht nur 
Zeichen zugeordnet sind, sondern auch Farben und Funktio- 


1 

KOMBINATIONEN 

□ 

VC 20 

C 64 


CTRL - A 

□ 

Ml 


CTRL - B 

□ 

M? 


CTRL - C 

0 

M) 


CTRL - D 

□ 

H* 

CTRL- 

CTRL - E 

CTRL - F1 
CTRL - -I 

0 

m 

□ 

m 


CTRL - G 

□ 

MT 


CTRL - H 

0 

Ml 


CTRL -1 

nsn 

|uca| 

•M 


CTRL - ] 

□ 

•II 


CTRL - K 

□ 

III 


CTRL - L 

□ 

•12 


CTRL - M 

•13 


CTRL - N 

0 

•14 


CTRL - O 

□ 

•13 


CTRL - P 

□ 

•1» 


CTRL - Q 

|cas»| 

lw| 

•i» 

CTRL - R 

CTRL - R 

0 

in 


CTRL - S 

^ «J 


CTRL - T 

0 

•21 


CTRL - U 

□ 

•21 


CTRL - V 

□ 

•22 


CTRL - W 

□ 

m 


CTRL - X 

□ 

•24 


CTRL - Y 

□ 

•23 


CTRL - Z 

□ 

•2t 


CTRL- 

□ 

•22 


CTRL - £ 

0 

»2» 


CTRL - ] 

[Cfttl 

In | 

•23 


CTRL - 1 

0 

IM 


CTRL - = 

0 

•11 
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GRUNDLAGEN 


C 64IVC 20 


2 

3 

4 

5 

6 

7 

8 

5 

•» 


0 

Mt 

□ 

12« 


B 

% 

0 

ui 

iS 

MS MS 

SB 

0 

12t 

E 

in 

li 

l»I ItS 

E 

72S 

□ 

•M 

®ü 

Mt Mt 

0® 
M Ml 

□ 

IS« 

a 

M2 

CD® 

iw im 

a 

72t 

1 

US 

m 

M7 tt? 

BO 

Mt Mt 

ES» 

ISI 

□ 

ItS 

BO 

ItS Its 

□ 

727 

a 

•St 

m 

Ml Ml 

0® 
IN |M 

□ 

IS2 

Q 

m 

□ 

72« 

•17 

El® 

Mt Mt 

DE 

>•1 III 

0 

ISS 

□ 

TO 

□ 

221 

Hü 

tu 

El® 

•7t Mt 

BE 

i« lii 

0 

IS« 

1 

BE 

IN IN 

1 

2 St 

□ 

tu 

O® 

•71 «71 

m 

IM IIS 

0 

ISS 

g 

m 

IN IN 

□ 

0 

»4 

010 

•72 »77 

□ 0 
IM ||t 

0 

IS« 

& 

IN 

□0 

2N 2M 

712 

0 

Mt 

00 

•7S »7S 

Ö0 

IW IW 

0 

137 

m 

it« i»t 

am 

211 2*1 

m 

213 sss 

® 

M2 

•7t «7« 

m 

IM IM 

0 

isa 

□ 

171 

m 

212 212 

□ 

23« 

0 

MS 

TBE 

•78 »TS 

00 

1*7 117 

0 

ist 

0 

171 

m 

SIS SIS 

a 

23S 

□ 

Mt 

00 
•7t *7t 

□ 0 

IN IN 

0 

IN 

0 

177 

□0 

SM SM 

Q 

73t 

a 

MS 

0® 

•77 «77 

SB 

IM IM 

l«l 

0 

173 

SB 

2W 2W 

□ 

237 

□ 

Mt 

•71 »71 

00 

11« III 

0 

112 

a 

17« 

00 

SM 2M 

5 

0 

M7 

0® 

•71 «7t 

□ 0 

m ui 

□ 

US 

□ 

173 

□0 

217 217 

□ 

SSt 

1 

M« 

0® 

m m 

□ 0 

112 US 

0 

Itt 

0 

17» 

DE 

2N SN 

□ 

74 

0 

Mt 

IS® 

Mt NI 

IS 

IIS US 

für*! 

ItS 

a 

177 

10 

2M SM 

B 

Stl 

^rsi 

00 

M7 N2 

QE 

in nt 

0 

14 

a 

171 

QE 

M 21* 

a 

so 

ü 

Mt 

^•H ^NS 

ffl® 

IIS IIS 

|Ö7| 

147 

a 

171 

HS 

211 211 

a 

241 

a 

W2 

0® 

Mt Nt 

00 

IM II! 

0 

IN 

0 

IM 

00 

SIS SIS 

0 

24 

E 

ISS 

00 

NS NS 

00 

117 ||7 

0 

Itt 

E 

tu 

□0 

211 SIS 

E 

2«3 

E 

IM 

00 

Nt Nt 

111 III 

IS« 

□ 

in 

21« 21« 

□ 

74 

0 

•SS 

0® 

N7 N7 

III III 


□ 

IIS 

00 

SIS SIS 

0 

247 

u 

00 

m m 

08 0 

Ui 12« 

füll 

\mr\ 

IS2 

n 

IM 

28® 

21t 71t 

q 

B 

•37 

00 

NI Nt 

□ 0 

121 121 

0 

ISS 

Q 

IW 

□ 0 

217 217 

a 

0 

nt 

m w 

m 

122 172 

0 

IS« 

□0 

IM IM 

1® 

211 211 

□0 

0 

•st 

ID 

Ml 

ffl 

ISS 

m 

ISS 

b 

117 

a 

21t 

B 

0 

•M 

M2 

E 

ist 

0 

IS» 

□ 

IN 

E 

72* 

□ 

§ 

Ml 

□ 

MS 

0 

ISS 


a 

IM 

a 

231 

a 

sss 

0 

M2 

Mt 

m 

12* Ui 

0 

IM 

0 

IN 

M 

J3J 222 

0 

0 

0 

ISS 

0 

s 

11 SS 

s ss 

MS 

MS 

127 J77 

ist 

111 

22S 27S 

735 2SS 


Tabelle 2. ASCII-Code 


nen. Außerdem sind im ASCII-Code die reversen Zeichen 
nicht enthalten, sondern müssen - wie Sie ja inzwischen wis¬ 
sen - jeweils umgeschaltet werden. Das alles ist für ein 
Betriebssystem viel zu kompliziert. 

Es ist viel einfacher, im Festspeicher (ROM) alle Zeichen 
der zwei Zeichensätze fest zu verankern, von wo sie das 
Betriebssystem herausholen und auf den Bildschirm bringen 
kann. 

Die Reihenfolge der Zeichen und ihr Code sehen Sie in der 
Tabelle 4. Sie ähnelt in mehreren Bereichen der ASCII- 
Reihenfolge, einige Spalten sind sogar identisch. Das macht 
eine Umrechnung - auch für das Betriebssystem - sehr 
einfach. 

Folgende Blöcke der beiden Codearten entsprechen 
einander: 

Ein Programm zur Umrechnung von ASCII-Code in 
Bildschirm-Code zeigt Listing 7. 

Dabei habe ich als Variable gewählt: 

- ACM = ASCII-Code 

- Bild = Bildschirm-Code 

In Bild 9 sind Bildschirm-Codes und entsprechende 
Funktionen nochmal aufgeführt: 

Eine Zusammenfassung der Methoden, 
wie man in Basic Tasten abfragen kann. 


Wir haben insgesamt vier Methoden kennengelernt und ver¬ 
wendet, um das Drücken einer Taste im Programm 
abzufragen: 

1. Tastencode in Speicherzellen 203/653 

10 A=PEEK(203) 

20 B-~ j;K(653) 

30 IF k=ZEICHENCODE AND 
B =STEUERCODE THEN 
AKTION 

2. ASCII-Code im Tastaturpuffer 

100 P0KE 198,0 
110 A=PEEK(631) 

120 IF k=ASCII-CODE THEN AKTION 

3. Abfrage des ASCII-Codes mit GET/INPUT 

200 GET A$ 

210 IF A$< >CHR$( ASCII-CODE) THEN AKTION 1 
220 AKTION 2 

4. Abfrage des Gänsefüßchen-Modus mit GET/INPUT 

300 GET A$ ' 

310 IF A$ » ZEICHEN « THEN AKTION 1 
320 AKTION 2 

Diese vier Methoden haben alle eins gemeinsam: 

Sie können immer nur eine einzelne Taste abfragen. Zwei 
oder gar mehrere Tasten gleichzeitig oder kurz hintereinan¬ 
der gedrückt ergeben keine sinnvollen Resultate. 

Jetzt möchte ich Sie an meine allererste Darstellung (Bild 
1 und 2) erinnern, nämlich wie die Tasten elektrisch angeord¬ 
net sind und wie das Betriebssystem sie abfragt. Ich möchte 
das hier noch einmal darstellen, erstens weil es eine gute 
Überleitung bildet zu meiner Methode der Vielfach- 
Tastenabfrage, zweitens weil diese Darstellung nicht vollstän¬ 
dig war. 

In Bild 10 ist noch einmal die VC 20-Tastenanordnung dar¬ 
gestellt, in Bild 11 diejenige des C 64. Trotz des Unterschie¬ 
des der elektrischen Anordnung ist bei beiden Computern 
die Abfragemethode identisch, nur die dafür benötigten 
Register haben unterschiedliche Adressen. 

Zur Erinnerung: 

Das Betriebssystem wählt der Reihe nach die senkrechten 
Spalten dadurch an, daß es die Zahl, die am Fuß jeder Spalte 
steht, in das Spalten-Register 37152 (beziehungsweise 
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C 64/VC 20 


BEDEUTUNG 

ASCII-CODE 

REVERSE 

DARSTELLUNG 

F1NKELN 

LOCK 

(Sperre der Zeichen- 
satz-Umschaltung 

8 

SB 

H 

UNLOCK 

(Sperre 

aulheben) 

9 

11 

I 

RETURN 

13 

ü 

M 

TEXT 
(2. Zeichen¬ 
salz) 

14 

ÜJ 

N 

DEL 

(Zeichen 

iöschen) 

| 

20 

D 

T 

SHIFT RETURN 
(Cursor auf 

Anfang der 
nächsten Zeile) 

141 

a 

SHIFT M 

GRAF 
(1. Zeichen¬ 
salz) 

142 

s 

SHIFT N 


Tabelle 3. Funktionen, die im Gänsefüßchen-Modus nur 
durch »Finkein« eingetippt werden können 


56320) schreibt. Diese Zahl ergibt in dualer Darstellung eine 
0 an dieser Stelle. 

Für jede Taste, die in der angewählten Spalte gedrückt ist, 
wirdeine 0 in das andere Register 37153 (56321) geschrie¬ 
ben. Diese Dualzahl ergibt einen Dezimalwert, welcher aus 
dem Register herausPEEKbar ist. 

Das, was das Betriebssystem macht, machen wir ihm nach, 
zuerst für den VC 20: 

10 POKE 37152,247 

20 PRINT PEEK (37152);PEEK(37153) 

30 GOTO 10 
und für den C 64: 

10 POKE 56320,127 

20 PRINT PEEK(56320);PEEK(56321) 

30 GOTO 10 

In Zeile 10 ist noch ein weiterer Unterschied zwischen den 
beiden Computern zu sehen. Beim VC 20 habe ich die Spal¬ 
tenzahl 247 gewählt, weil in dieser Spalte die STOP-Taste 
liegt. Diese Spalte ist nämlich, wie wir ganz am Anfang ja 
schon festgestellt haben, die einzige Spalte, die wir mit Basic 
abfragen können. Bei POKEn der anderen sieben Spalten¬ 
zahlen in Zeile 10 wirft uns die 60mal in der Sekunde stattfin¬ 
dende Überprüfung der STOP-Taste aus dem Programm. 

Beim C 64 ist das die Spalte 127, wie es uns ein Blick auf 
das Bild 11 zeigt. 

Ich freue mich übrigens, daß ein aufmerksamer Leser aus 
Wien diesen Unterschied sofort bemerkt und mich darauf 
aufmerksam gemacht hat. Aber ich hatte damals nur einen VC 
20 zur Verfügung, und mangels eigener Erprobung ist es mir 
nicht aufgefallen. Das hat sich übrigens jetzt geändert. 

Diese Tastenabfrage hat den großen Vorteil, daß mehrere 
Tasten gleichzeitig drück- und abfragbar sind. Jede 
gedrückte Taste erzeugt eine 0 im »Reihen-Register«. Mit 
dem kleinen Programm oben können Sie es ausprobieren. 
Drücken Sie alle Tasten der Spalte 247 (127), die STOP-Taste 
bitte als letzte! Der rechte Zahlenstreifen auf dem Bildschirm 
zeigt die 0. 

Lassen Sie die STOP-Taste (die 1-Taste) los, und es 
erscheint die 1, bei Loslassen der linken SHIFT-Taste (der -— 
Taste) zusätzlich erhalten wir die 3. Das ist die Dezimalzahl für 
00000011, die beiden 1er entstehen durch die losgelas¬ 
senen Tasten. 

Jede mögliche Tastenkombination in einer Spalte hat ihre 


spezielle und abfragbare (!) Codezahl im Register 37153 
(56321), insgesamt 256 Kombinationen. Ist das nichts? 

Diese Methode der Mehrfach-Tastenabfrage haben wir 
bereits erfolgreich eingesetzt. 

Nun möchte ich diese Methode auf alle acht Spalten, also 
auf alle Tasten erweitern. Dazu müssen wir das oben 
erwähnte Hindernis, nämlich den Rausschmiß durch das 
Betriebssystem, überwinden. Dazu gibt es zwei Methoden. 
Methode 1 will ich nur kurz erwähnen - sie ist einen eigenen 
Aufsatz wert. 

Man kann durch Beeinflussung der Speicherzellen 788 
und 789 die Pause (Interrupt) zur Tastenabfrage des 
Betriebssystems künstlich verlängern und sie zur eigenen 
Abfrage benutzen. 

Die zweite Methode ist einfacher (Listing 8). Wir schreiben 
das Programm oben (Zeilen 10 und 20) in Maschinenspra¬ 
che. Das läuft dann so schnell ab, daß es innerhalb zweier 
Unterbrechungen ausgeführt und somit vom Betriebssystem 
nicht gestört wird. 

Da ich nicht annehme, daß alle Leser dieses Kurses in 
Maschinencode programmieren können, zeige ich es Ihnen 
einfach als Kochrezept. Es besteht aus einer Reihe von Zah¬ 
len, die über READ ... DATA in vorbestimmte Speicherplätze 
gePOKEt und von dort dann mit SYS gestartet werden. 

Für den VC 20 gilt: 

100 DATA 169, 254 ,l4l,32,145,173,33,145,141,255, 
29,96 

Für den C 64 gilt: 

100 DATA 169, 254 ,141,0,220,173,1,220,141,255, 
29,96 

Ich habe einige Zahlen gekennzeichnet: 

- Die zweite Zahl der DATA-Reihe in den Kästchen ist die Zahl 
der Spalte, die angewählt wird (ich habe 254 gewählt). 

- C 32 und 145 (0,220 beim C 64) ergeben die Register¬ 
adresse 37152 (56320), die DATA-Werte 33 und 145 (1,220) 
die Registeradresse 37153 (56321), die Werte 255,29 
ergeben eine Speicherzelle 7679, auf die ich noch 
zurückkomme. 

Die Registeradressen sind, wie immer bei Commodores 
8-Bit-Computern, mit zwei Zahlen, das heißt mit 2 Byte dar¬ 
gestellt. 

REGEL: 

LSB + 256 * MSB = Adresse 
32 +256* 145=37152 

1 +256* 220=56321 

LSB = niederwertiges Byte 
MSB = höherwertiges Byte 

Diese 12 DATA-Zahlen, ich nenne sie X, werden eingelesen 
mit: 

110 F0R K=1 TO 12 
120 READ X 
140 NEXT K 

Damit diese Zahlen vom Basic-Programm nicht überschrie¬ 
ben oder gelöscht werden (was dasselbe ist), POKEn wir sie 
an das Ende des VC 20-Speichers ohne Erweiterung, näm¬ 
lich ab Speicherzelle 7661.FürdenC64gehtesmit densel¬ 
ben Adressen natürlich allemal. 

130 POKE 7660+K,X 

Um ganz sicher zu gehen, daß mit dem Maschinenpro¬ 
gramm nichts passiert, schützen wir es, indem wir dem Com¬ 
puter vorgaukeln, daß sein für Basic zur Verfügung stehender 
Speicher bei Adresse 7659 auf hört. Diese Speichergrenze 
steht in den Speicherzellen 51/52 und 55/56, und sie kann 
natürlich durch POKEn anderer Zahlen willkürlich verändert 
werden. 

Die entsprechenden Werte für die Grenze 7659 sind 235 
und 29. Machen wir die Probe: 
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PRINT 235+256+29 (RETURN) 
ergibt 7659. 

20 POKE 51,235 
30 POKE 52,29 
40 POKE 55,235 
50 POKE 56,29 

Falls Sie diese Speicherzellen und ihre Anwendung nicht 
kennen, bitte ich um Zuschrift, da ich es hier aus Platzgrün¬ 
den nicht näher erläutern kann. 

So, nun ist das Maschinenprogramm gespeichert und ge¬ 
sichert. Wir starten das Programm mit SYS-Aufruf der 1. 
Adresse und PEEKen danach das Register 37153 (56321), 
genau wie vorher. 

150 SYS 7661 

160 PRINT PEEK( 37153): REM VC 20 
160 PRINT PEEK(56321): REM C 64 
170 GOTO 150 

Nach RUN erzeugt der Rücksprung den schon obligatori¬ 
schen Zahlenstreifen mit 255 für »keine Taste gedrückt«. 
Wenn wir die Taste 3 (RETURN beim C 64) drücken, dann 
muß entsprechend Bild 10 und 11 (Spalte 254) die Zahl 253 
erscheinen. Das tut sie auch, aber immer wieder unterbro¬ 
chen durch 255. Das kommt daher, daß das Auslesen des 
Registers 37153 (56321) in Basic doch schon zu langsam 
ist. Wir müssen daher die Funktion der Zeile 160 ebenfalls in 
das Maschinenprogramm einbauen, was ich in weiser Vor¬ 
aussicht in Zeile 100 schon vorbereitet habe. Der Trick ist 
nämlich dabei, daß der Inhalt des Registers vom Maschinen¬ 
programm in eine vor dem bösen Basic geschützte Speiche¬ 
radresse gebracht wird. Da wir ja einen gesicherten Bereich 
bereits haben, habe ich die Zelle 7679 ausgewählt. 

Bitte ändern Sie die Zeile 160 ab: 

160 PRINT PEEK(7679) 

Jetzt haben wir’s geschafft. 

Natürlich können wir mit diesem Programm alle acht Spal¬ 
ten abfragen. Wir brauchen bloß in Zeile 100 die Zahl, die hier 
im Kästchen steht, abändern, zum Beispiel in 253, und schon 
reagiert das Programm auf alle Tasten dieser Spalte. 

Ich habe mir den Luxus erlaubt und unser Programm von 
oben erweitert, indem ich der Reihe nach alle acht Spalten 
aufrufe (siehe Listing 1). Dazu habe ich in Zeile 100 die Spal¬ 
tennummer auf 0 gesetzt, was eigentlich unnötig aber ein¬ 
leuchtend ist, POKE aber dann jeweils die Spaltenzahl (in den 
Zeilen 200, 300, 400 etc.) auf diesen Platz, der die Adresse 
7662 hat. Das Programm ist immer noch schnell genug, um 
innerhalb der zur Verfügung stehenden Zeit von 1/60 
Sekunde alle Abfragen durchzuführen. 

_ Ein Appell an alle 64er: Wenn Sie die Semikolons in den 
Zeilen 220, 320, 420 etc. (außer 920!!!) richtig plaziert 
haben, erscheinen die Zahlen für alle acht Spalten brav 
nebeneinander. 

Beim VC 20 haben wir ein kleines Problem, hervorgerufen 
durch die kleinere Zeilenlänge, die uns eine Darstellung aller 
acht Zahlen nebeneinander nicht erlaubt. 

Ich schlage deshalb vor, nach vier Zahlen ab Zeile 520 die 
Reihenfolge zu unterbrechen (Semikolon weglassen) und an 
den Anfang (Zeile 200) zurückzuspringen, es sei denn, die 
f-1-Taste wurde gedrückt (Zeile 560). Dann nämlich kommen 
die nächsten vier Zahlen dran - sogar in einer anderen Farbe. 
Eine weitere Tastenabfrage in Zeile 960, diesmal der.-Taste 

- schauen Sie in der ASCII-Tabelle nach, welche Taste dieses 
Zeichen hat (Methode des waagrechten Sprunges zwei Spal¬ 
ten weiter) - entscheidet zwischen Wiederholung der zwei¬ 
ten Gruppe oder Rücksprung auf die ersten vier Zahlen. Wie 
gesagt, die Verwendung der Semikolons an der richtigen 
Stelle ist wichtig. 

Jetzt ist die Gelegenheit da zum Experimentieren: 

- mehrere Tasten aus verschiedenen Spalten 

- mehrere Tasten aus derselben Spalte. 
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C 64/VC 20 


Ja, und irgendwann bleibt Ihnen das Programm mit BREAK 
IN .... stehen!! 

Leider ist das schon wieder der STOP-Tasten-Effekt, den 
wir nicht ganz loswerden. Wenn nämlich Tasten der waag¬ 
rechten Reihe 254 (beziehungsweise 127) gedrückt wer¬ 
den, interpretiert dies das Betriebssystem als STOP-Taste, die 
ja in dieser Reihe liegt, und stoppt das Programm. 

Uns soll das aber nicht bedrücken, denn wir können in 
unserem Programm den Gebrauch dieser Tastenreihe ein¬ 
fach vermeiden. Für unsere Zwecke reichen alle anderen 
Tasten allemal aus. Man muß diese Einschränkung nur 
berücksichtigen. 

Zusammenfassend sei gesagt, daß Sie in einem Programm 
jetzt alle Kombinationen aller Tasten abfragen können mit 
IF PEEK(7679)= .THEN . 

Sie müssen sich lediglich die entstehenden Dualzahlen im 
Register 37153 (56321) in Dezimalzahlen umrechnen oder 
sie vorher ausprobieren. 

Ich will auch am Schluß meiner Darstellung der Gewohnheit 
treu bleiben und das Kochrezept in einem kleinen Gericht 
anwenden (Listing 9). 

Ein Spiel für vier Personen 


Um mir und Ihnen die Sache leichter zu machen, verwende 
ich möglichst viele Teile aus den vorherigen Programmen. 

Spielidee: 

- Jeder Spieler wählt eine von vier bestimmten Tasten. 

- Auf dem Bildschirm wird ein beliebiger Buchstabe 
»angesagt« 

- Der Bildschirm füllt sich langsam mit Zufalls-Buchstaben 

- Sobald der »angesagte« Buchstabe erscheint, sollen die 
Spieler ihre Taste drücken 

- Wer zuerst drückt, hat gewonnen! 

Programmbeschreibung: 

Zeile 10 bis 50 

schützt das Maschinenprogramm (wie vorher) 

Zeile 100 bis 140 

liest das Kochrezept »Maschinenprogramm« ein 
Zeile 215 und Zeile 530 

stellen einen besonderen Trick dar. Man nennt das eine 
»Flagge setzen« (set a flag). Die Abfrage der Tasten soll näm¬ 
lich nur dann funktionieren, wenn ein Buchstabe (später VB 
genannt) mit dem anfangs »angesagten« Buchstaben BU 
übereinstimmt. Wenn VB=BU, dann wird in eine »sichere« 
Speicherzelle (ich habe 830 gewählt) eine Zahl (hier 250) 
hineingePOKEt. Diese Zahl in 830 wird bei der Abfrage 
ebenfalls abgefragt. Bei Beginn des Spieles muß diese 
Flagge natürlich eingeholt, das heißt auf 0 gesetzt werden 
(Zeile 215). 

Zeile 220 bis 270 

gibt Anweisungen und teilt den Spielern ihre Taste zu (von mir 
willkürlich ausgewählt) 

Zeile 280/300 

löscht den Bildschirm und färbt alles schwarz 
Zeile 310/320 
gibt Anweisungen 
Zeile 330 

wählt per Zufallsgenerator (wie vorher) einen Buchstaben BU 
aus; zwischen 1 und 10 (A bis J in Bildschirm-Code!) 

Zeile 340/350 

druckt diesen Buchstaben BU genau an das Ende des Textes 
der Zeile 320 (Bildschirmspeicher-Platz und Farbspeicher- 
Platz ausrechnen!) 

Zeile 260/270 und 370/380 

schalten den Text weiter mit irgendeiner Taste 

Zeile 400 

verzögert das Erscheinen des 1. Buchstabens 


Zeile 520 

wählt wieder per Zufallsgenerator einen Buchstaben, dies¬ 
mal VB, aus (zwischen A und J) 

Zeile 540 

wählt per Zufallsgenerator einen Platz C auf dem Bildschirm 
aus, auf den der Buchstabe VB gePOKEt wird 
Beim VC 20 fülle ich den ganzen Bildschirm von Platz 0 bis 
505i Beim C 64 wäre das der Bereich von 0 bis 1000. Damit 
aber den Spielern wegen der viel kleineren Buchstaben des 
C 64 diS' Augen nicht übergehen, habe ich die eigentliche 
Formel C = 1NT(RND(0)* 1000) in Zeile 540 so abgeändert, 
daß die Buchstaben nur auf jeden 2. Platz gePOKEt werden 
können. 

Zeile 550/560 

die Buchstaben VB werden in Weiß gePOKEt 
Zeile 610 

leiert die Tastenabfrage 15mal hintereinander durch. Diese 
Zahl bestimmt auch die Geschwindigkeit, mit der die Buch¬ 
staben auf dem Bildschirm erscheinen. Ihre Verkleinerung 
erhöht die Schwierigkeit des Spieles. 

Zeile 620 bis 740 

fragt die in Zeile 220 bis 250 definierten Tasten und die 
Flagge in 830 ab. Beim VC 20 ist jede der gewählten Tasten 
in einer anderen Spalte, daher sind vier POKEs in 7662 not¬ 
wendig. Beim C 64 liegen je zwei Tasten in einer Spalte, daher 
nur zwei POKEs in 7662. Da aber gleichzeitige Tastendrücke 
Vorkommen können (in einer Spalte natürlich), fragen Zeile 
660 und 710 diesen speziellen Fall ab. 

810 bis 840 beziehungsweise 850 

meldet den Sieger (Aussprung aus der Abfrage) 


Diese »gleichzeitige« Mehrfach-Tastenabfrage ist genau 
genommen nicht ganz gleichzeitig. 

Nichts in einem einzelnen Computer ist gleichzeitig! Alles 
erfolgt in einer Sequenz. 

in dem Spielprogramm für vier Personen erfolgt die Tasten¬ 
abfrage natürlich auch hintereinander, wodurch die zuerst 
abgefragten Tasten ihren Besitzern einen kleinen Vorteil 
gewähren, aber halt nur einen ganz winzigen! 

Dieser Effekt wird durch das 15fache Durchlaufen der 
Abfrage und durch die Schnelligkeit des Maschinenprogram¬ 
mes gemildert. Das ganze Programm in Maschinensprache 
geschrieben, würde natürlich durch die Geschwindigkeit 
auch die letzte Ungerechtigkeit ausmerzen. 

So, liebe VC 20er und C 64er. Das war's. 

Ich hoffe, Sie kennen jetzt die verschiedenen Codes und 
fühlen sich wohl bei der Tasten-Abfrage. Methoden und 
Kochrezepte haben Sie dazu ja jetzt genug. 

Ich habe mich bemüht, Sie zum Experimentieren anzure¬ 
gen, denn gerade diese spielhafte Auswirkung der Neugier 
unterscheidet den Amateur vom Profi und fördert das Ver¬ 
ständnis der Zusammenhänge. 

Ich habe mir am Anfang das Ziel gesetzt, allgemeinver¬ 
ständlich und ohne Fachchinesisch zu schreiben. 

Ob das gelungen ist, können nur Sie mir sagen. Falls etwas 
unklar geblieben ist und Sie Fragen haben, schicken Sie sie 
mir, ich werde Ihnen antworten. Und wenn es sogenannte 
»gute Fragen« sind, schreibe ich vielleicht darüber den näch¬ 
sten Kurs. 

(Dr. Helmuth Hauck/cg) 

Literatur: 

1 . VIC REVEALED von N. Hampshire, Computablts Ltd.. 1981 
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6 . 64-INTERN von Angerhausen et al„ Data Becker. 1983 

6 . DAS VC-20-Buch von M. Hegenbarth, M. Schaler, Markt S Technik Verlag, 1983 
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Synthetische 

Steuerzeichen 

Mit den »synthetischen Steuerzeichen« 
stehen Ihnen Möglichkeiten offen, die Sie 
bisher nicht für möglich gehalten haben: 
beispielsweise ein neuartiger Listschutz, 
Grafik und Breitschrift-Schmalschrift- 
Wechsel im Listing. 

N ach dem Einschalten des VC 20 oder des C64 und 
der »READY«-Meldung des Computers kann man sich 
nach Herzenslust auf dem Bildschirm austoben - 
zunächst ohne Programm. Sie können vorab Texte gestalten, 
Grafiken entwerfen, dabei die Farben wechseln, hier Zeichen 
ergänzen und da Stellen abändern. Komfortabel wird dieses 
Austesten der Möglichkeiten auf der »elektronischen Tafel« 
jedoch erst durch die Cursor-Steuertasten CLR/HOME, 
INST/DEL, RVS ON/OFF sowie durch die Farbwahltasten. 
Man erreicht damit ein hohes Maß an Flexibilität im Ansteuern 
jeder beliebigen Bildschirmstelle. 

Schreibt man nun unversehens ein Anführungszeichen 
(engl.: quote) auf den Schirm, so verhält sich der Computer 
plötzlich anders: die Cursor-Tasten wirken nicht mehr - man 
kommt mit ihnen nicht mehr aus der Zeile heraus. Auch die 
Farbumschaltung mißlingt, das Bildschirmlöschen mit 
CLR/HOME versagt, lediglich DEL funktioniert noch. Und 
dies alles in voller Absicht! Warum? Statt der Ausführung der 
Steuerbefehle zieht es der Computer vor, sich die Anweisun¬ 
gen in Form reverser Steuerzeichen zu »merken«. Wozu? 
Nun, um Steuerbefehle dieser Art programmierbar zu 
machen. (Man stelle sich nur einmal vor, der Cursor sei nicht 
per Software steuerbar.) Nach dem ersten Anführungszei¬ 
chen befindet sich der Computer offenbar in einem anderen 
Verarbeitungsmodus, genannt Quote-Modus, in dem er (mit 
Ausnahme von DEL) alle Steuerbefehle als Reverszeichen 
»speichert« und damit zur späteren Ausführung bereitstellt. 
Der Quote-Modus wird verlassen, sobald das zweite Anfüh¬ 
rungszeichen eingetippt oder die RETURN-Taste betätigt 
wird. Da die Steuerzeichen - eingeschachtelt in Gänsefüß¬ 
chen - vom Computer wie Texte behandelt werden, können 
sie in Programmen auch als solche verarbeitet werden. Dazu 
stehen alle Stringoperationen zur Verfügung, die auch bei 
»normalen« Texten verwendet werden. Wirkung zeigen Steu¬ 
erzeichen jedoch erst dann, wenn man sie mittels PRINT akti¬ 
viert. Fazit: Ein Basic-Listing kann normalerweise keine rever- 
sen Zeichen enthalten - es sei denn, es handelt sich um 
Steuerzeichen in Strings. 

Steuerbefehle ohne »Gänsefüßchen« 


Wir haben uns als Commodore-Anwender sicherlich schon 
längst an das reverse Q für CURSOR UP oder an das Herz¬ 
chen für CLR/HOME gewöhnt. Doch es geht auch anders. 
Das muß es auch, wenn der Drucker zum Beispiel keine Steu¬ 
erzeichen ausgeben kann. In diesem Fall bedient man sich 
der CHR$-Funktion, die durch die Befehlsfolge 
PRINT CHR$(X) 

aktiviert wird. Mit X = 147 wird beispielsweise ebenfalls der 
Bildschirm gelöscht. Wie kommt das? Tippen Sie bitte ein: 
PRINT ASC(" (CLR/HOME)”) 

Bitte tippen Sie die Ausdrücke, die in den geschweiften Klam¬ 


mern stehen, nicht als Buchstabenfolge ein, sondern zum Bei¬ 
spiel für PRINT ASC (”(CLR/HOMES”) nach dem ersten Gänse¬ 
füßchen die Control-Taste und dann gleichzeitig die CLR-/ 
HOME-Taste. Verfahren Sie bei den folgenden Beispielen 
dementsprechend. 

Nach erfolgtem RETURN lesen Sie: 147. Das reverse 
Herzchen wird vom Computer also als Zeichen interpretiert, 
das den ASCII- beziehungsweise CHR$-Code 147 trägt. Ein 
weiteres Beispiel: Die Zeilen 

PRINT " { CTRL-RVS ON) TEST" 

und 

PRINT CHR$(18)"TEST" 
bewirken dasselbe, weil 
PRINT ASC("{ CTRL-RVS ON) ") 

zeigt, daß der CHR$-Code des reversen R eben 18 ist. 

Ausgehend von der Tatsache, daß jedem Steuerzeichen 
ein bestimmter Code in der CHR$-Liste (siehe Handbuch) 
zugeordnet ist, wurde die Idee geboren, daß diese Zuord¬ 
nung - um es mathematisch auszudrücken - umkehrbar ein¬ 
deutig sein müsse. Das heißt, zu jedem Steuerbefehl müßte 
auch ein entsprechendes reverses Steuerzeichen gehören, 
das denselben Zweck erfüllt. 

Nun gibt es zum Beispiel die Möglichkeit, über 
PRINT CHR$(l4) 

auf Kleinbuchstaben umzuschalten. Gibt es dafür auch ein 
Steuerzeichen? Auf konventionellem Weg hieße die Antwort 
klipp und klar: nein. Aber... 

Zu Beginn war alles nur Spielerei, bis sich die erstaunlichen 
Möglichkeiten und Anwendungen häuften. Deshalb: spielen 
Sie nun bitte mit bei den folgenden Tricks. 

Steuerzeichen auf illegalem Weg 


Bevor wir das große Geheimnis lüften, wollen wir erst einmal 
an ganz und gar legalen Steuerzeichen üben, wie man sie ille¬ 
gal eingibt. Halten Sie sich bitte zunächst streng an das ange¬ 
gebene Rezept, auch wenn es noch andere Eingabeformen 
gibt. Das gilt auch für die späteren Beispiele. Unsere erste 
Übung soll darin bestehen, den Bildschirm ohne CHR$(147) 
und ohne die Taste CLR/HOME zu löschen - im Direktmodus, 
versteht sich. Dazu geben Sie bitte hintereinander in einer 
Zeile ein: 

1. Schritt: 

PRINT 

2. Schritt: 

Erstes Anführungszeichen setzen. Jetzt befinden wir uns 
im Quote-Modus, den wir sofort wieder verlassen wollen. 
Daher: 

3. Schritt: 

Zweites Anführungszeichen setzen. 

4. Schritt: 

Mit DEL eine Stelle zurückgehen. Dabei wird das zweite 
Anführungszeichen gelöscht. Da wir uns nicht mehr im 
Quote-Modus befinden, reagiert der Computer auf Steu¬ 
erbefehle. 

5. Schritt: 

Mit CTRL-RVS ON auf Revers-Modus schalten. Das ist not¬ 
wendig, da wir ja ein reverses Steuerzeichen quasi künst¬ 
lich erzeugen wollen! 

6. Schritt: 

SHIFT S eingeben. Beim geSHIFTeten S bekommen wir 
eines der S-Taste zugeordneten Grafikzeichen, in diesem 
Fall das gewünschte Herzchen. Nun verlassen wir den 
Revers-Modus: 

7. Schritt: 

CTRL-RVS OFF. Wenn Sie wollen, können Sie noch ein 
Anführungszeichen zur optischen Abrundung anhängen. 
Was jetzt auf dem Bildschirm steht, sieht so aus, als hätten 
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wir nie den legalen Pfad verlassen, als hätten wir immer mit 
der CLR/HOME-Taste gearbeitet. Dieses Steuerzeichen ist 
jedoch künstlich entstanden - wird es auch wirken wie ein 
»echtes«? Das Drücken der RETURN-Taste überzeugt uns 
schnell davon, daß der Computer uns diese umständliche 
Manipulation nicht übelgenommen hat: es funktioniert tat¬ 
sächlich! 

Bedenken Sie bei der Eingabe, daß nur zwei Anführungs¬ 
zeichen auf dem Schirm erscheinen, obwohl insgesamt drei 
eingegeben wurden. Der Computer befindet sich also nach 
dem dritten Gänsefüßchen wieder im Quote-Modus. 

An der Stelle, an der soeben mit SHIFT S das Steuerzei¬ 
chen für CLR/HOME generiert wurde, kann nun jedes belie¬ 
bige reverse Zeichen erzeugt werden. Diejenigen davon, die 
auch eine Steuerfunktion ausüben, aber nicht auf normalem 
Wege über direkte Tastendrücke erzeugt werden können, 
wollen wir »synthetische Steuerzeichen« nennen. Und nun 
folgen nützliche Beispiele mit diesen Steuerzeichen. 

Die Synthetischen kommen 


Wenn es - und das war die Frage, die alles ins Rollen 
brachte - anstelle der Umschaltung auf Kleinbuchstaben mit 
CHR$(14) ein äquivalentes Steuerzeichen gibt, dann muß es 
zwischem dem reversen E für WHT (Code 5) und dem rever- 
senQ für CURSOR DOWN (Code 17) zu suchen sein. Nume¬ 
riert man das Alphabet entsprechend durch, so findet man 
den Buchstaben N unter der Codezahl 14. Das reverse N 
müßte demnach das Steuerzeichen für die Umschaltung auf 
Kleinbuchstaben sein. Probieren wir es aus: 

? ""[DEL RVS ONj N " [RVS OFF) —RETURN 

Es klappt! Der Computer schluckt diesen ungewöhnlichen 
Befehl und führt ihn aus. 

Dieser Erfolg motivierte eine Suche nach allen verfügbaren 
synthetischen Steuerzeichen; die Ausbeute fiel jedoch 
zunächst recht mager aus. Die nachfolgende Tabelle 1 zeigt 
Ihnen die synthetischen Zeichen und ihre Wirkungen bei Bild¬ 
schirmausgaben (beim Drucker sieht’s etwas anders aus - 
dazu aber später mehr). 


haben und auf ihre Vorteile nicht mehr verzichten wollen - 
nicht nur, weil sie gegenüber der CHR$-Funktion Speicher¬ 
platz sparen. 

So unscheinbar und unwichtig das SHIFT RETURN ist, so 
gewaltig sind die Möglichkeiten, die uns das zugehörige syn¬ 
thetische Steuerzeichen eröffnet. Es handelt sich um das 
reverse, geshiftete M (Code 141). 

Das Super-Steuerzeichen 


Gibt man»? " " (DEL)( TEST [CTRL-RVS ON) [SHIFT M) 
(CTRL-RVS OFF) LAUF"« ein, so zeigt sich nach dem Drücken 
der RETURN-Taste, daß der Computer nach dem Teilstring 
»TEST« einen Wagenrücklauf (carriage return) mit Zeilenvor¬ 
schub (line feed) durchführt und »LAUF« direkt darunter aus¬ 
gibt. Genau dieses Verhalten erwartet man von SHIFT 
RETURN. [SHIFT M) kann jedoch mehr-viel mehr! Das näch¬ 
ste Beispiel soll es beweisen: 

10 ? ""[DEL) TEST [CRTL-RVS ON ) [SHIFT M) R [CRTL- 
RVSOFF) LAUF" 

Geben Sie bitte dieses einzeilige Programm ein und starten 
Sie es. Wie erwartet erscheint »TEST« und darunter revers 
»LAUF«. Nun listen Sie bitte dieses Programm. Erstaunt? Das 
ist tatsächlich neu! Das Steuerzeichen für die Umschaltung 
in den Revers-Modus erscheint nicht im Listing, sondern wird 
entgegen aller bisherigen Kenntnisse ausgeführt. »LAUF« 
wird im Listing revers ausgegeben. Durch das SHIFT- 
RETURN-Zeichen wird der Basic-Interpreter offenbar veran¬ 
laßt, nachgestellte Steuerzeichen auch im Listing wirksam 
werden zu lassen. Es zeigt sich, daß diese Schlüsselfunktion 
alle Steuerbefehle, seien es Farbumschaltungen oder Cur- 
sor-E Q wegungen, aktiviert. Ungeahnte Möglichkeiten eröff¬ 
nen sich nun zur optischen Aufbereitung, das heißt Struktu¬ 
rierung und Gestaltung von Listings auf dem Bildschirm. 
Beispiel 1: 

Reverse REM-Zeile ohne sichtbares REM-Statement und 
ohne Zeilennummer 

10 REM ""[DEL) [CRTL-RVS ON) [SHIFT M) [SHIFT Q) R 
[CRTL-RVS OFF) TESTLAUF 
20 FOR 1=1 TO 10 
30 PRINT"TESTLAUF":NEXT 


Steuerzeichen 

CHR$-Code 

Wirkung 

H 

8 

Die manuelle Umschaltung zwi¬ 
schen Groß- und Kleinbuchsta¬ 
ben mit Hilfe der COMMODO- 
RE- und SHIFT-Tasten wird 
gesperrt. 

1 

9 

Die obige Sperre wird wieder 
gelöst. 

M 

13 

RETURN. Alles, was nach dem 
reversen M in der Zeile steht, 
wird nicht mehr gedruckt. Leider 
ist eine echte Simulation der 
RETURN-Taste zum Ändern von 
Basic-Zeilen unter Programm¬ 
kontrolle nicht möglich. 

N 

14 

Umschalten auf Klein¬ 
buchstaben. 


20 


DEL Hiermit können Sie Teile 
oder komplette Programmzeilen 


Steuerzeichen 

CHR$-Code 

Wirkung 



optisch verschwinden lassen. 

Dieses Steuerzeichen wirkt 
auch beim Listen eines Pro¬ 
gramms auf dem Schirm. 

Anwendung: partieller 

Listschutz. 

SHIFT M 

141 

SHIFT RETURN. Das Super- 
Zeichen! Mehr dazu im Text. 

SHIFT N 

142 

Umschalten auf Groß¬ 
buchstaben. 

SHIFT T 

148 

INS. Kann zum Ändern von Text 


Tabelle 1. Steuerzeichen 
und ihre Wirkung 


an bereits gedruckten Text 
benutzt werden. Beispiel: ? 
"[SHIFT TJX" liefert ein X auf 
dem Schirm. Bei mehrfacher 
Abarbeitung wird stets ein wei¬ 
teres X an die bereits vorhande¬ 
nen angehängt. 


Die Zeichen dieser Tabelle müssen als reverse Zeichen wie 
oben erzeugt werden (Ausnahmen: T für DEL und SHIFT T für 
INS). 

Auch wenn die Eingabe der synthetischen Steuerzeichen 
umständlich erscheint, man wird sich schnell daran gewöhnt 


Die Zeilen 20 und 30 sind Beiwerk, damit die REM-Zeile nicht 
so allein dasteht. Listen Sie das Programm bitte. Sie sehen 
die reverse Überschrift »TESTLAUF« ohne REM und ohne 
Zeilennummer und darunter wie gewohnt die Programmzei¬ 
len 20 und 30. Wie funktioniert dieser Trick? Das reverse 
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(SHIFT M] bewirkt einen Sprung zum Anfang der nächsten 
Zeile und gibt die nachfolgenden Steuerzeichen zur Ausfüh¬ 
rung frei. Mit dem reversen (SHIFT Qj geht der Cursor eine 
Zeile nach oben, also auf »1« der Zeilennummer 10. Rever¬ 
ses R schaltet auf reverse Zeichen um, in denen dann der 
REM-Text »TESTLAUF« ausgegeben wird. Dabei über¬ 
schreibt der Computer die Zeilennummer sowie das REM- 
Statement. Das alles vollzieht sich so schnell, daß es sich der 
Beobachtung entzieht. Der Anwender sieht nur noch die 
reverse Überschrift und kann demzufolge an dieser Zeile 
auch nichts mehr ändern. 

Sollten Sie die Original-REM-Zeile noch auf dem Bild¬ 
schirm haben, so hängen Sie an das »F« von »TESTLAUF« 
noch das Steuerzeichen für CURSOR DOWN an. Sie werden 
sehen, daß beim Listen sogar eine Leerzeile zwischen Über¬ 
schrift und Programm entsteht. Selbstverständlich können 
derartige REM-Zeilen beliebig im Programm verstreut sein. 
Wirkung: Im Programmlauf werden unter der reversen Über¬ 
schrift »Quadratzahlen« die Ergebnisse ausgegeben, wäh¬ 
rend beim Listen des Programms der PRINT-Befehl ver¬ 
schwiegen wird und man eine REM-Zeile wie in Beispiel 1 
vermutet. Damit trägt eine PRINT-Zeile zur optischen Struk¬ 
turierung eines Listings bei - ein Effekt, der bislang in dieser 
Form unmöglich schien. Nun einige Erläuterungen zu den 
Beispielsprogrammen 2 bis 4: 

Beispiel 2. Farbige REM-Zeile (ändern Sie nur Zeile 10). 
Beispiel 3. Wirkung: Grüne Überschrift ohne Zeilennum¬ 
mer und ohne REM, gelbes Listing. 

Beispiel 4. Wirkung: Die bekannten Herzchen sorgen nach 
dem Listen jeder Zeile für ein Löschen des Bildschirms, so 
daß die beiden Programmzeilen weder einzeln noch insge¬ 
samt sichtbar bleiben und die Codezahlen A und B dem 
Anwender vorenthalten werden. 

Beispiel 2: 

Farbige REM-Zeile (ändern Sie nur Zeile 10) 

10 REM ""(DEL) (CRTL-RVSON) (SHIFT M) (SHIFT Q) [ t) 

(CRTL-RVS OFF) TESTLAUF (CRTL-RVS ON (SHIFT *) 

(CRTL-RVS OFF) 

Beispiel 3: 

Listschutz 

10 A=4711 : REMDEL) (CRTL-RVS ON) (SHIFT M) 

(SHIFT S) 

20 B=0815 : REM""(DEL) ( CRTL-RVS ON) (SHIFT M) 

(SHIFT S) 

reverses SHIFT M für SHIFT RETURN 
reverses SHIFT S für CLR/HOME 
Beispiel 4: 

REM-Ersatz 

10 PRINT ""(DEL) (CRTL-RVS ON) (SHIFT M) (SHIFT S) R 
(CRTL-RVS OFF) QUADRATZAHLEN 

reverses SHIFT M für SHIFT RETURN 
reverses SHIFT S für CLR/HOME 
reverses R für RVS ON 
20 FOR 1=1 TO 10 
30 PRINT 1,1*1 : NEXT 

Wirkung: Im Programmlauf werden unter der reversen 
Überschrift »Quadratzahlen« die Ergebnisse ausgegeben, 
während beim Listen des Programms der PRINT-Befehl ver¬ 
schwiegen wird und man eine REM-Zeile wie in Beispiel 1 
vermutet. Damit trägt eine PRINT-Zeile zur optischen Struktu¬ 
rierung eines Listings bei - ein Effekt, der bislang in dieser 
Form unmöglich schien. 

Sie werden sicherlich Spaß an der Vielseitigkeit dieser 
neuen Methode gewinnen und eine Vielzahl von Anwendun¬ 
gen austüfteln. 

Bisher wurde die Erzeugung synthetischer Steuerzeichen 
und ihre Wirkung bei Bildschirmbetrieb dargestellt. Jetzt soll 
von neuen Möglichkeiten für Druckeranwender die Rede 


sein. Dabei wird auf den Drucker VC 1515 Bezug genommen, 
mit dem die Steuerzeichen ausgetestet wurden. Es ist nicht 
auszuschließen, daß der eine oder andere Druckertyp unter¬ 
schiedlich reagieren wird. Die wichtigsten Steuerfunktionen 
dürften jedoch auf allen Geräten die gleichen Reaktionen 
hervorrufen. 

Benutzen Sie die synthetischen 
Steuerzeichen, um Ihre Druckerlistings 
übersichtlicher zu machen. 


Bevor es nun zur Sache geht, ein kurzer Abriß des vorange¬ 
gangenen Abschnitts: 

Zur Cursor-Steuerung für RVS ON/OFF oder zum Beispiel 
für Farbumschaltungen stehen dem VC 20- beziehungs¬ 
weise C 64-Anwender zwei Möglichkeiten zur Verfügung. 
Erstens kann die CHR$-Funktion genutzt werden (Beispiel 
?CHR$(19) bewirkt HOME) und zweitens erlauben reverse 
Steuerzeichen eine direkte und kurze Eingabe der Steuerbe¬ 
fehle (Beispiel: das reverse S veranlaßt ebenfalls HOME). 
Nun existieren jedoch einige CHR$-Codes, für die äquiva¬ 
lente Steuerzeichen nicht über zugehörige Tasten abgerufen 
werden können. So schaltet CHR$(14) beispielsweise auf 
Kleinbuchstaben um. Mit Hilfe der ASC-Funktion zeigt sich, 
daß das reverse N den CHR$-Code 14 trägt. Damit kann die¬ 
ses Zeichen ebenfalls zur Steuerung herangezogen werden. 
Da außer den konventionellen Steuerzeichen keinerlei 
reverse Symbole in Strings Vorkommen können, muß das 
reverse N quasi künstlich erzeugt werden (daher der Name 
»Synthetische Steuerzeichen«). Aber das ist kein Probleml 
Wir haben bereits ein Eingabeverfahren kennengelernt, das 
iche 1 jetzt nicht wiederholen möchte. Statt dessen möchte 
ich Ihnen ein anderes Verfahren zeigen, das vielleicht ein 
wenig übersichtlicher ist als das bereits beschriebene. 

Geben Sie die Programmzeile, die ein im String stehendes 
Steuerzeichen erhalten soll, wie gewohnt ein. Reservieren 
Sie dabei jedoch mittels Space die Stelle im Textstring, wo 
später das synthetische Steuerzeichen stehen wird. Schlie¬ 
ßen Sie die Eingabe der Zeile mit Betätigung der Return-Taste 
ab. Nun können sie ohne Schwierigkeiten den Cursor auf die 
bewußte Stelle bewegen, durch gleichzeitiges Drücken von 
CTRL und RVS ON in den Revers-Mode schalten (es 
erscheint kein reverses R!) und schließlich den freigehalte¬ 
nen Platz mit dem entsprechenden Reversezeichen belegen 
(in unserem Beispiel also mit dem reversen N). Die so 
ergänzte Programmzeile wird jetzt durch erneutes Drücken 
der Return-Taste verlassen. Fertig. Auf diese Weise lassen 
sich sowohl die altbekannten als auch die neuen Steuerzei¬ 
chen leicht erzeugen und entsprechend ins Programm einfü- 
gen. In den weiteren Ausführungen werde ich die syntheti¬ 
schen Steuerzeichen vereinfachend in geschweiften Klam¬ 
mern darstellen (zum Beispiel reverses N = (Nj). 

Die Drucker-»Synthies« 


Nun zum eigentlichen Thema: Man könnte fast wetten, daß 
einige Druckerbesitzer unter unseren Lesern inzwischen 
beim Experimentieren mit synthetischen Steuerzeichen 
nicht schlecht gestaunt haben. Denn auch hier eröffnen sich 
neue Möglichkeiten, an die bislang nicht zu denken war. So 
sind zwar keine spektakulären Effekte in laufenden Program¬ 
men zu erzielen, dafür jedoch hat man erstmals die Möglich¬ 
keit, Druckerlistings zu manipulieren. Zuvor möchte ich Ihnen 
jedoch eine Liste der Steuerzeichen (Tabelle 2) geben. Es ist 
zu beachten, daß die mit *) gekennzeichneten Steuerzei¬ 
chen nicht zu den synthetischen zählen, da sich diese direkt 
über Tasten eingeben lassen. Sie wurden nur der Vollständig¬ 
keit halber mit in die Tabelle aufgenommen. 
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Steuerzeichen 

CHR$-Code 

Wirkung 

[H] 

8 

Umschaltung auf Grafik-Modus 

(JJ 

10 

Zeilenvorschub 

(Ml 

13 

RETURN. Nachfolgende Zeichen 
werden nicht mehr gedruckt. 

[N] 

14 

Umschaltung auf Breitschrift 

(0) 

15 

Umschaltung auf normale 

Schriftbreite 

(P) 

16 

Festlegung der Druckstartposition 

*)(Q1 

17 

Umschaltung auf Kleinbuchstaben 

*)(R) 

18 

RVSON 

(Z) 

26 

Zeichenwiederholung (Grafik) 

11! 

27 

Punktadresse für Druckstart 

(SHIFT M] 

141 

SHIFT RETURN. Nachfolgende 
Zeichen werden in einer neuen Zeile 
gedruckt. 

•)(SHIFT Qj 

145 

Umschaltung auf Großbuchstaben 

*)(SHIFT R] 

146 

RVS OFF 

Tabelle 2. Liste der Steuerzeichen 


Nun zu den Erläuterungen derjenigen Zeichen, die sinn¬ 
volle Anwendungen erlauben. 


Grafik im Listing 


Das reverse H gestattet die Umschaltung des Druckers in 
den Grafik-Modus. Alle nachfolgenden Zeichen im String 
werden - sofern ihr jeweiliger CHR$-Code größer als 127 ist 
- als Grafikinformationen interpretiert. In diesem Modus 
bleibt der Drucker so lange, bis er mit (Nj oder (Oj auf Schrift¬ 
betrieb zurückgeschaltet wird. Betrachten Sie bitte Beispiel 1. 

Zwischen »TEST« und »LAUF« befindet sich in Bild 2 ein 
selbstdefiniertes Grafikzeichen, das sowohl im Programm¬ 
lauf als auch im Listing ausgegeben wird. Auch wenn Sie es 
zunächst nicht glauben - Sie sehen ein Original-Listing und 
nicht etwa gePRINTete Textzeilen. Ich will Ihnen den Trick ver¬ 
raten. In einer Vergrößerung sieht das Grafiksymbol aus wie 
im Bild 3 gezeigt. 

Die Umrechnung des dualen Bitmusters in Dezimalzahlen 
liefert diejenigen CHR$-Codes, durch die das Zeichen spal¬ 
tenweise beim Drucken entsteht. Man muß also nur wie¬ 
derum synthetische Zeichen finden, die die gesuchten 
CHR$-Codes tragen. (Tabelle 3). 


'TEST (H) (SHIFT H| (SHIFT MINUS] 

(SHIFT T] 

(SHIFT) 

(SHIFT) 


8 136 158 

148 

148 

148 


(SHIFT Tj [SHIFT T| (SHIFT MINUS) 

(SHIFT H] 

(SHIFT •) 

(SHIF ’) 

[0)LAUF' 

148 148 156 

136 

128 

128 

15 

Tabelle 3. Aus dem Beispiel in Bild 3 ergeben sich 

diese Charakterstring-Codes. 





Mit dieser Folge von reversen Zeichen erzielen Sie also 
den Ausdruck, der im Bild 2 abgebildet ist. 

Folgt dem (H) keine Grafikinformation, das heißt ist der 
CHR$-Code kleiner als 128, so kommt es zum Abbruch des 
Listings. Diese Tatsache kann man sich bewußt zunutze 
machen, wenn man ohne größeren Programmieraufwand 
einen Drucker-Listschutz in sein Programm einbauen will. 
Der Bildschirmbetrieb leidet darunter nicht, da (HJ dort nur 
eine Verriegelung der Umschaltung zwischen Groß- und 
Kleinschrift bewirkt. 

Zeilenvorschub 


Die Beispiele in Bild 4 und 5 zeigen, daß [J] einen Zeilenvor¬ 
schub mit Rückwagenlauf verursacht. In Bild 4 befindet sich 


das reverse J zwischen »TEST« und »LAUF«, bei Bild 5 am 
Schluß des Strings. Da man das zweite Anführungszeichen 
eines Strings weglassen kann, sofern keine weiteren Basic- 
Befehle mehr in dieser Zeile folgen sollen, ergibt sich so die 
Möglichkeit, echte Leerzeilen mit [J] im Listing (Bild 4) zu 
erzeugen. 

Breitschrift - Schmalschrift 


Während [Nj beim Bildschirmbetrieb auf Kleinbuchstaben 
umschaltet, zeigt der Drucker eine andere Wirkung. Er wird 
veranlaßt, alle nachfolgenden Zeichen in doppelt breiter 
Schrift auszugeben. Es ist also bei der Anwendung von [N] 
Vorsicht geboten, da ein für den Bildschirm konzipiertes Pro¬ 
gramm beim Druckerlisting unerwünschte Steuerungen zur 
Folge haben kann. In diesen Fällen sollte man (Nj wieder 
durch den konventionellen Befehl CHR$ ersetzen. 

Wollen Sie jedoch die Breitschrift zur übersichtlichen 
Gestaltung eines Listings nutzen, so können Sie ruhig das (Nj 
hier und da im Programm verstecken. Es bleibt demjenigen, 
der das Programm lesen soll, sowieso verborgen. Wenn nur 
eine Hervorhebung einzelner Worte, Befehle oder Zeilen 
gewünscht wird, muß die Breitschriftphase entsprechend mit 
[Oj beendet werden. Im Beispielprogramm in Bild 6 sehen Sie 
dieses Vorhaben realisiert. Hier bewirkt das (Nj vor dem Wort 
»Test« die Umschaltung auf Breitschrift, während ein (OJ vor 
»Lauf« diesen Modus beendet. 

Die Druckerstartpositionierung - vergleichbar mit TAB - 
wird normalerweise mit CHR$(16) und nachgestellter Start¬ 
adresse vorgenommen. Also etwa: 

PRINT # 4, CHR$ (16) "10 TEST " 

U !o «e Zeile druckt beginnend in Spalte 10 nur das Wort 
»Test« aus. Die im String vorangestellte Zahl dient dabei als 
Startadresse. Das kürzere Äquivalent sieht nun wie folgt aus: 
PRINT#4, "(Pj 10 TEST" 

Doch Vorsicht! Obwohl diese Anweisung während des Pro¬ 
grammlaufs korrekt ausgeführt wird, verschluckt sie der 
Drucker im Listing vollständig. Das Beispiel in Bild 7 zeigt, daß 
von (P]10 zwischen »TEST« und »LAUF« nicht mehr zu bemer¬ 
ken ist. 

Damit verbietet sich die Anwendung des synthetischen (Pj 
bei Programmen, die zum Beispiel zur Veröffentlichung vom 
Drucker dokumentiert werden sollen. 

Für die Zeichen (Zj Zeichenwiederholung und ((] (Punkt¬ 
adresse für Druckerstart) haben sich bislang noch keine sinn¬ 
vollen Einsatzmöglichkeiten ergeben. Sie sollen daher jetzt 
nicht weiter diskutiert werden. Auch auf die Beschreibung 
von (Qj, (Rj, (SHIFT Qj und (SHIFT Rj möchte ich verzichten, 
da sie keine synthetischen Zeichen sind und sich damit »ganz 
normal« verhalten. 

Ich persönlich benutze die synthetischen Steuerzeichen 
gern zur Gestaltung von Listings. Wie so etwas aussehen 
kann, habe ich Ihnen im abschließenden Beispiel (Bild 8) 
zusammengestellt. 

Vielleicht versuchen Sie einmal, die versteckten und 
unsichtbaren Steuerzeichen herauszufinden. 

Die Suche nach den Synthetischen 

Das folgende Programm ermöglicht die systematische 
Suche nach allen vom Betriebssystem unterstützten Steuer¬ 
zeichen (Listing 1). Man ist nun nicht mehr angewiesen auf 
zuih Teil lückenhafte Tabellen synthetischer Steuerzeichen, 
sondern kann sich statt dessen selbst auf die Suche 
begeben. 

Das Programm-Listing zur Steuerzeichensuche (Listing 1) 
gibt nach Eingabe des gewünschten ASCII-Wertes alle 
Tastenkombinationen aus, deren Betätigung die Tastaturde¬ 
codierroutine dazu veranlaßt, den entsprechenden ASCII- 
Wert in den Tastaturpuffer zu schreiben. 
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Bild 2. Beispiel zum 
Grafik-Modus 


Bild 4. Beispiel-Programm 
zum Zeilenvorschub 
im Wort 


TESTLAUF 

10 REM ZEILENVORSCHUB 
20 REM IM LISTING 
38 0PEN4..4 
40 PRINT#4,"TESTLAUF 

50 PRINT#4 : CL0SE4 
READY. 


TESTLW 

IO REI1 BREITSCHRIFT 
20 REM IM LISTINO 
30 0PEN4,4 

40 PRINT#4. "TESTLflUF” 
56 PRINT#4 : CL0SE4 

READV. 


Bild 5. Beispiel-Programm: 
Zeilenvorschub am 
Wortende 


Bild 6. Beispiel zum 
Umschalten von Schmal- 
auf Breitschrift 


10 REM DRUCKSTARTPQSITION 
15 REM IST IM LISTINO 
20 REM NICHT SICHTBAR 
30 0FEN4..4 

40 PRINTH4,"TESTLAUF" 

50 PRINT#4 : CL0SE4 

READV. 


100 REM DEMO ZUR OPTISCHEN STRUKTURIERUNG 
110 REM VON BRUCKER-LISTINGS MIT 

120 REM" SVHTHET I SCHEN 

130 REM" STEUERZEICHEN 

200 REM HflUPTPROGRfiritl * 
210 FGRI=1T064 

220 PRINT"iS-4 E!R — MflGRZ I N 
230 GGSUB300 : NEXT : " 

240 END 

300 REM"* UHTERPROGRflrill * 

310 FORJ=1TO50 ; NEXT 
320 RETURN:" 

400 REM 'OR I G I NRL — L I ST I NG !" 

RERDV. 


Bild 8. Beispiel zur Gestaltung von Listings durch 
synthetische Steuerzeichen 


TEST=>LRUF 


TEST LAUF 

10 REM GRAPHIK-MOBUS 

20 REM IM LISTING 


10 REM ZEILENVORSCHUB 
20 REM IM LISTING 

39 0PEN4j 4 


30 0FEN4..4 

40 PRINT#4; 11 TEST«LAUF" 


40 PRINT#4;"TEST 

50 PRINT#4 : CL0SE4 


LAUF" 

58 PRINT#4 : CL0SE4 

READV. 


READV. 


Es werden allerdings auch solche Kombinationen aufge¬ 
führt, deren »ASCII-Werte« zwar in den Decodiertabellen (die 
ab $EB81 im Betriebssystem beginnen) an entsprechender 
Stelle aufgeführt sind, jedoch NICHT im Tastaturpuffer 
erscheinen (zum Beispiel die »2« bei Betätigung der SHIFT- 
Taste). Der Leser wird diese jedoch schnell von der ersten 
Gruppe unterscheiden können. 

Zum Schluß noch zwei Bemerkungen: 

1) Bei gleichzeitigem Erscheinen von zwei oder mehreren 
Tastenkombinationen für einen bestimmten ASCII-Code kann 
oft - jedoch nicht immer - eine Kombination gegen eine 
andere ausgetauscht werden, ohne das Endresultat zu ver¬ 
ändern (Beispiel für eine Ausnahme: Sowohl die RUN/STOP- 
Taste wie auch die CTRL C-Kombination belegen gemäß der 
Decodiertabellen den ASCII-Wert »3«, jedoch kann mit 
»CRTL-C« kein Programm gestoppt werden, da für die 
Abfrage der RUN/STOP-Taste eine gesonderte Routine 
zuständig ist, die nur diese Taste erkennt). 

2) Alle »synthetischen Steuerzeichen«, für deren Erzeu¬ 
gung der Basic-Interpreter zuständig ist, kann dieses Pro¬ 
gramm nicht erkennen, da es lediglich auf die Tastaturdeco- 
tiertabellen im Kernel Bezug nimmt. 

Da das Programm lediglich die Tastaturdecodiertabellen 
des Betriebssystems benötigt (und die dort aufgeführten 
ASCII-Werte in ein ARRAY einliest) kann es leicht durch ent¬ 
sprechende Abänderung der in Zeile 20 enthaltenen An¬ 
fangsadressen in eine auch auf dem VC 20 laufende Version 
umgeschrieben werden. 

(Jürgen Wagner/Engin Gülen/cg) 


Bild 7. Beispiel: Ab Spalte 
10 wird gedruckt. 

Die Druckeranweisung 
wird nicht gelistet. 


in^»> 

1 REM 

2 REM 

3 REM 

4 REM 

5 REM 


* STEUERZEICHEN * 

* FUER DEN CBM-64 * 


* ENG IN GUELEN * 

* POSTWEG 2 * 

* 4192 KALKAR 1 * 

9 POKE532S0,0:P0KE532S1,0 

10 0IMAS<3,63> 

18 REM ANFANGS ADRESSEEN OER 

19 REM TASTATURDEKODIERTABELLEN 

20 DATA60289,60354,60419,80538 
30 FORI=0TO31REAOACI>:NEXT 

40 FORI=0TO3:FORJ »0TO63 
50 ASC I , J ) »PEEKC A( I ) + J ) 

80 NEXTJ.I 

159 REM TASTATURMATRIX 

180 OATADEL,RETURN,CRSR< RIGHT),F7,F1,F3,F5,CRSR<DOWN) 

161 DATA3 ,W,A ,4 ,Z ,S ,E ,SH IFT< L 5 

182 0ATAS,R,0,6,C,F,T,X 

163 DATA7,Y,G,8,B,H,U,V 

184 QATA9,I,J,0,M,K,O,N 

165 DATA+,P,L.»DOPPELPUNKT,E.KOMMA 

168 DATAE,*,; .HOME ,SH IFT( R ) , > , t , Z 

167 DATA 1 CTRL,2,SPACE,C",Q,RUN/'STOP 

170 DIMTA*(64)!FORI=0TO63lREAOTA*( 1):NEXTI 

190 DATA-.SHIFT.C- .CTRL , 

190 FORI=0TO3 * READASC I>lNEXT 

200 INPUT"JUtHHHB ASCH-KODE ";ASX. 

210 IFAS7X 0ORAS1O255THEN200 

220 PR INT:PR INT:FORI»0TO3:FORJ »0TO63 

230 IFAS7>ASC I , J JTHENPR INT"S" A*< I > , : GOTO250 

240 GOTO270 

250 1FLEFTJX TA*< J) ,2>=LEFT*< A*( I) ,2 ) THENPR INT: GOTO270 
260 PRINT"|k-TA*< J) 

270 NEXTJ,I 

280 PRINTSPC<193)“aU TASTE ■ 

290 GETA*: IFA*» ■''THEN290 
300 GOTO200 

READY. 


Listing 1. Steuerzeichensuche 
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So macht man 

Programme 

schneller 

Basic-Programme können nach drei 
Gesichtspunkten optimiert werden: struk¬ 
turiert und lesbar, schnell sowie speicher¬ 
platzsparend. In diesem Beitrag wird der 
Aspekt der Laufgeschwindigkeit und ihrer 
Verbesserung behandelt. 

E s gibt einige Dinge auf der Welt, die man sehr wohl 
einzeln, aber nicht alle gleichzeitig haben kann. Wirt¬ 
schaftswachstum, keine Inflation und niedrige Arbeits¬ 
losigkeit lassen sich eben nicht unter einen Hut bringen. 

Bei der Computerei, oder genauer gesagt beim Program¬ 
mieren, gibt es in einer höheren Sprache wie Basic ebenfalls 
so ein magisches Dreieck: strukturierte Programme, minima¬ 
ler Speicherbedarf, kürzere Laufzeiten. 

Gut lesbare und klar gegliederte Programme brauchen oft 
viel Speicherplatz. Deswegen soll dieser Beitrag Sie zum 
Experimentieren anregen, mit welchen Methoden Basic- 
Programme schneller gemacht werden können. 

Basic ist nicht immer gleich Basic 


Die Commodore-Handbücher sagen leider zu diesem Thema 
recht wenig. Ich bitte Sie, an Ihrem C64 Platz zu nehmen. 

Als erstes wollen wir uns einen einfachen aber typischen 
Programmablauf überlegen, welchen wir mit mehreren 
Basic-Möglichkeiten programmieren können. Übrigens: 
Wegen der guten Lesbarkeit schreiben Sie die nachfolgen¬ 
den Basic-Zeilen mit Leerstellen zwischen den Befehlen. 

Ich weiß, es geht auch kürzer, aber bei meinen Experimen¬ 
ten spielt Speicherplatz keine Rolle und außerdem habe ich 
noch einen Hintergedanken, den ich erst später erklären 
kann. Nicht zuletzt will ich dadurch auch erreichen, daß die 
Laufzeiten der Programme mit den Ihren übereinstimmen. 

Schalten Sie bitte auch Programmierhilfen (Toolkit, Simon’s 
Basic etc.) und Disk Operating-Programme (DOS 5.1) aus, 
denn sie verlangsamen den Programmablauf. 

Die interne Uhr mißt die Zeit 


Der C64 hat eine interne Uhr, deren Zeit abgefragt, ausge¬ 
druckt und somit zur Zeitmessung verwendet werden kann. 
Im Befehlssatz der Commodore-Handbücher finden Sie dazu 
die beiden Funktionen TI und TIS. Mein Zeitmessungspro¬ 
gramm besteht aus zwei Zeilen. 

Die »Stoppuhr« wird gestartet mit: 10 TI$= "000000" 

Sie wird am Ende des Testprogramms gestoppt mit: 

1000 PRINT TI/60 " SEKUNDEN" :END 
Zwischen diese beiden Zeilen stecken wir dann die Prüf¬ 
linge, das heißt die Programme, deren Laufzeit wir messen 
wollen. Zur Prüfung geben wir zuerst die Zeile 15 mit einer 
simplen Verzögerungsschleife ein. 

15 F0R T=1 T0 100:NEXT T 

Dieses Programm hat eine Laufzeit von 0,13 Sekunden. 


Das erste Testprogramm 


Löschen Sie bitte wieder die Zeile 15. Als Programm, wel¬ 
ches wir in mehreren Versionen programmieren wollen, habe 
ich mir einen Ablauf ausgesucht, der auch optisch verfolgbar 
ist. Auf dem Bildschirm soll nämlich der Buchstabe A gleich 
374mal nebeneinander gedruckt werden. 

Die Zahl 374 hat nichts Magisches an sich. Es sind ganz 
einfach 17 Zeilen voller A’s auf dem Schirm. 17 Zeilen lassen 
uns genug Platz, um die gestoppte Zeit darunter gut lesbar 
anzuzeigen. 

In der Version 1 des Programms verwenden wir POKE- 
Befehle, mit denen wir das A und die dazugehörige Farbe auf 
den Bildschirm, das heißt in den Bildschirmspeicher (Video- 
RAM) und den Farbspeicher (Color-RAM) bringen. Beim 
C64 sind es die Speicherzellen 1024 und 55296. Schauen 
Sie bitte in den Commodore-Handbüchern nach und verge¬ 
wissern Sie sich, daß Sie dieses System des Zeichen- 
POKEns verstehen. Es ist dort gut beschrieben. Der Buch¬ 
stabe A hat den Bildschirm-Codewert 1. Als Farbe wähle ich 
die »Normalfarben« der beiden Computer. Der Farbcode für 
das Blau ist 14. Das Programm beginnt mit dem Löschen des 
Bildschirms (Zeile 20) und POKEt dann in Zeile 40 das erste 
A in den ersten Platz des Bildschirms. 

20 PRINT CHR$ (147) 

40 P0KE 1024+Z:P0KE 55296+Z,l4 

In Zeile 40 finden Sie zusätzlich eine Variable »Z«. Wie 
geplant, soll das A 374 mal gePOKEt werden. Also müssen 
wir die Zahl der Speicherzelle laufend um 1 erhöhen. Dazu 
erfinden wir diese Variable Z, die zur Speicherzelle addiert 
wird. Wir setzen Z am Anfang des Programms (in Zeile 30) auf 
Null und zählen es in Zeile 50 um 1 weiter. 

30 E 

50 Z=Z+1 

Als nächstes müssen wir prüfen, ob Z den Schlußwert 374 
erreicht hat. Wenn nicht, dann soll der nächste POKE-Befehl 
ausgeführt werden, das heißt wir springen auf Zeile 40 
zurück. Dann kommt die Zeile 1000 zum Zug mit dem Stop¬ 
pen und Ausdrucken der Laufzeit. Also: 

60 IF Z=374 THEN 1000 
70 GOTO 40 

Ich schlage vor, daß Sie das kleine Programm noch mal 
LISTen, damit wir es komplett sehen können. 

Die Laufzeit wird nur davon beeinflußt, was zwischen den 
Zeilen 10 und 1000 steht. Sie können vor der Zeile 10 dem 
Programm hinzufügen, was Sie wollen. 

Ein erster Probelauf mit RUN bringt das gewünschte 
Ergebnis, nur eins ist noch unschön: Der PRINT-Befehl in 
Zeile 1000 druckt uns die Zeit oben in die 2. Zeile, wo sie 
schlecht erkennbar ist. Wir könnten sie in einer anderen 
Farbe drucken, aber ich habe einen besseren Vorschlag. 

Ersatz für den Befehl »PRINT AT« 


Wir brauchen ein Kochrezept, um mit einem PRINT-Befehl an 
einen ganz bestimmten Platz auf dem Bildschirm drucken zu 
können. Einige Basic-Dialekte kennen den Befehl »PRINT- 
AT«. Welche Möglichkeiten bietet uns das Basic von 
Commodore? 

1) PRINTjCursor DownjfCursor Right]” 

2) PRINT TAB(X) 

3) PRINT SPC(X) 

Um zum Beispiel an den 3. Platz in der 20. Zeile die Zeit zu 
drucken, müßten wir 18mal das inverse Q für Cursor Down 
und Imal Cursor Right eingeben. 

Mit TAB (X) geht es besser. Wir haben nur ein Problem, daß 
nämlich der höchste zulässige Wert für X nur 255 ist (X nennt 
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man das »Argument«). Wir müssen deshalb zwei TAB-Befehle 
hintereinander setzen, um einen Abstand von 400 Leerstel¬ 
len zu erzeugen. 

1000 PRINT TAB (255) TAB (155) TI/60"SEKUNDEN" :END 

Für das Argument von SPC gilt dieselbe Begrenzung von 
255. Eine doppelte Verwendung von SPC geht natürlich 
auch, allerdings zählt SPC nicht vom Anfang der Zeile, son¬ 
dern ab der letzten Cursor-Stelle. Durch Rechnen oder ein¬ 
fach durch Probieren finden wir die Gesamtzahl von 397, das 
gibt: 

1000 PRINT SPC (255) SPC (142) TI/60"SEKUNDENEND 

Es gibt noch eine dritte Methode, um PRINT-AT zu 
simulieren. 

In die Speicherzelle 214 kann die Zahl einer Zeile hineinge- 
POKEt werden, auf die mit einem nachfolgenden PRINT der 
Cursor gesetzt wird. Das gleiche gilt für einen Platz in einer 
Zeile mit der Speicherzelle 211. Versuchen Sie es mit der 
direkten Eingabe: 

P0KE 214,8:PRINT:P0KE 211,4:PRINT "A" 

Drei Formen für »PRINT AT« 


Das druckt den Buchstaben A in die 4. Spalte auf der 9. Zeile. 
Für unseren Anwendungsfall in Zeile 1000 müssen wir die 
Zahl 18 nach 214 POKEn, 211 können wir vernachlässigen. 
1000 POKE 214,18:PRINT:PRINT TI/60”SEKUNDEN’’:END 

Alle drei Methoden sind gleichwertig, sowohl in Auswir¬ 
kung als auch beim Speicherbedarf. Ich bleibe im folgenden 
bei der 214-Methode. 

Zurück zur Version 1 des Testprogramms. Das Programm 
unterscheidet sich für die beiden Computer nur in der Zeile 
40, allerdings auch durch die Laufzeit. Nach RUN erhalten wir 
10,48 Sekunden. 

Dieses Auffüllen des Bildschirms mit A geht halt recht lang¬ 
sam. Schon beim Zuschauen wird man ungeduldig. Der Teil 
in diesem Programm, welcher die Laufzeit am nachhaltigsten 
beeinflußt, ist die 374fache Wiederholung des POKE- 
Befehls. Bei einem POKE-Befehl ist die Umwandlung der 
Zahlen aus dem ASCII-Code sehr zeitaufwendig. Hoppla, 
was heißt denn das schon wieder, sagen Sie jetzt vielleicht. 

Jede Zahl, wie zum Beispiel 7680 oder 1024,, wird zuerst 
als vier einzelne ASCII-Codezahlen gespeichert. Wenn das 
Programm abläuft, werden diese ASCII'-Zahlen zuerst in 
ganze Zahlen, dann in Fließkomma-Zahler umgewandelt - 
das für den Fall, daß mit den Zahlen arithmetische Funktionen 
ausgeführt werden. Schließlich werden sie wieder in eine 
ganzzahlige POKE-Adresse umgewandelt, und das in unse¬ 
rem Fall 374mal! 

Hier können wir einen ersten innerbetrieblichen Verbesse¬ 
rungsvorschlag einreichen. Wenn wir eine so häufig vorkom¬ 
mende Zahl wie die POKE-Adresse in Zeile 40 am Anfang des 
Programms einer Variablen zuweisen, dann erfolgt die oben 
genannte Umwandlungssequenz nur einmal, nämlich am 
Anfang des Programms. Das Programm muß dann 374mal 
nur den Wert der Variablen im Speicher suchen, und das geht 
viel schneller. Wollen Sie es sehen? Ändern Sie bitte für diese 
Version 2 die Zeilen 30 und 40. 

Die Anfangsadresse im Bildschirmspeicher definieren wir 
als Variable mit dem schönen und zutreffenden Namen 
»VIDEO«, die des Farbspeichers mit »FARBE«. In Zeile 30 
erhalten sie dann die Werte 
30 Z=0:VIDE0=1024:FARBE=55296 

Zeile 40 ergibt sich dann eigentlich zwangsläufig: 

40 POKE VIDEO+Z, 1: POKE FARBE+Z, 14 

Alles andere bleibt gleich. Tippen Sie RUN ein. Ergebnis: 
7,3 Sekunden. Wir haben also eine Verkürzung von zirka drei 
Sekunden erzielt, das sind 30 Prozent! 

Eine Beschleunigung von 30 Prozent ist gut, aber noch 


nicht alles, was wir erreichen können. Da die Methode der 
vordefinierten Variablen so effektiv ist, wollen wir sie auf alle 
oft verwendeten Zahlen des Programms anwenden. Neben 
Z, VIDEO und FARBE gibt es noch die 1 für den Buchstaben 
A und die 14 für die Farbe sowie den Schlußwert 374 der 
Schleife. Sie wissen schon, wie das geht. Wir ändern fol¬ 
gende Zeilen: 

30 Z=0: SCHLUSSWERT=374:VIDE0=1024:FARBE=55296: 
BUCHSTA=l:DRUCK=l4 

40 POKE VIDEO+Z, BUCHSTA:P0KE FARBE+Z,DRUCK 
60 IF Z=SCHLUSSWERT THEN 1000 
Das ist Version 3 des Programms, mit einer Laufzeit von 
6,15 Sekunden. Das ist wieder eine Verbesserung gegen¬ 
über der ersten Version. 

Bisher haben wir die Variablen im Sinn einer guten Lesbar¬ 
keit mit langen und verständlichen Namen versehen. Aber 
das kostet natürlich Speicherplatz und auch Geschwindig¬ 
keit. Der Grund ist immer derselbe: Bei der Variablen VIDEO 
sind fünf Zeichen 374mal zu bearbeiten. Wenn wir sie nur VI 
nennen, ist das erheblich weniger. In Version 4 des Pro¬ 
gramms reduzieren wir also alle langen Variablennamen auf 
zwei Zeichen. Wir wollen mal schauen, was das bringt: 

30 Z=0: SC=374: VI=1024:FA=55296:BU=l:DR=l4 
40 POKE VI+Z,BU:P0KE FA+Z,DR60 IF Z=SC THEN 1000 
Ergebnis: 5,63 Sekunden 

Gegenüber der Version 1 des Programms haben wirschon 
eine Verbesserung von 46% erreicht. 

Sie wissen sicher, daß der Computer alle Variablennamen 
immer auf zwei Stellen reduziert, daß aber einstellige Varia¬ 
blen durchaus zugelassen sind. Damit müßte unser Pro¬ 
gramm eigentlich noch schneller werden. Die folgenden 
Änderungen für Version 5 zielen genau darauf: 

30 S=374: V=1024: F=55296:B=l:D=l6 
40 PCI? V+Z,B:POKE F+Z,D60 IF Z=S THEN 1000 
Die erzielte Verbesserung ist meßbar, aber nicht gerade 
überwältigend. Der C 64 braucht nun 5,51 Sekunden. Mit 
dem bisher Gesagten läßt sich bereits eine erste generelle 
Regel für schnellere Basic-Programme aufstellen. 

Regel 1 

• Häutig vorkommende Zahlen, Adressen und Variable, besonders innerhalb von 
Schielten, werden am Antang des Programms vordefiniert. 

• Variable, die sich im Lauf des Programms verändern, werden trotzdem vordefiniert, 
allerdings mit einem unschädlichen Anfangswert (dummy). 

• Die Zahl, die am häufigsten vorkommt, wird als erste vordefiniert (damit sie schneller 
•gefunden« wird), 

• Variablennamen sollen möglichst einstellig, aber höchstens zweistellig sein. 

Halt! Löschen Sie das Programm noch nicht. Wir liegen 
noch unter 50 Prozent mit unseren Verbesserungen, und das 
reicht noch lange nicht. Was können wir am bisherigen Pro¬ 
gramm noch ändern? Denken Sie mal nach. Wie kann man 
Buchstaben auf den Bildschirm bringen? Natürlich, mit PRINT 
statt der POKEs. 

In Version 6 des Programms ersetzen wir die Buch- 
staben-POKE-Befehle durch eine PRINT-Anweisung, die 
prinzipiell noch den Vorteil hat, daß keine Farbanweisung 
nötig ist. Den Buchstaben A wollen wir in dieser Version 
zunächst einmal mit seiner ASCII-Codezahl 65 angeben, ein 
Semikolon setzt alle A hintereinander. 

40 PRINT CHR$(65); 

Für die Schleife brauchen wir nur die Variablen Z und S: 
30 Z=0:S=374 

Alle anderen Zeilen bleiben unverändert. 

Nach RUN sehen wir als Ergebnis: 4,05 Sekunden 
Das ergibt eine weitere Verbesserung von 1,5 Sekunden. 
Unser Programmbeispiel wird also durch die Verwendung 
von PRINT statt POKE stark beschleunigt. Das geht natürlich 
deswegen besonders gut, weil alle Buchstaben automatisch 
hintereinander gesetzt werden. Wenn wir jedesmal den Platz 
mit angeben müßten, wohin gePRINTet werden soll, wäre der 
Vorteil rasch verspielt. 
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Die Anweisung PRINT CHR$(65) ist zwar gut lesbar, aber 
wir haben ja vorher gelernt, daß Vordefinieren von Variablen 
schneller ist. In Version 7 machen wir das auch mit der 
PRINT-Variablen. 

30 Z=0: S=374: A$=CHR$(65) 

40 PRINT A$ 

Das Resultat ist wieder beeindruckend: 3,10 Sekunden. 
Das sind schon 69 Prozent Verbesserung gegenüber der 1. 
Version. 

Aber selbst - oder gerade - jedem Anfänger ist die direkte 
PRINT-Anweisung mit Gänsefüßen am geläufigsten. Sie 
braucht auch weniger Speicherplatz und macht sogar ein 
Vordefinieren unnötig. Wir wollen schauen, ob sie auch 
schneller ist. 

Ändern Sie für Version 8 die Zeilen 30 und 40: 

30 Z=0:.S=374 
40 PRINT "A"; 

Erstaunlicherweise bringt das fast gar nichts, nur 0,07 
Sekunden. Die Erklärung liegt darin, daß beide Darstellun¬ 
gen, CHR$(65) und ”A” ASCII-Code-Verwender sind. Damit 
ist der einzige Unterschied zwischen Version 7 und 8 die 
Anzahl der Zeichen im Programm. Fassen wir zusammen: 

Regel 2 

• In Schleifen mit aneinandergereihten Druckanweisungen ist PRINT viel schneller als 
POKE. 

• Die PRINT-Variablen sollen entweder vordefiniert oder im Gänsefuß-Modus einge¬ 
setzt werden. 

In der PRINT-Schleife (Zeile 40) und nachfolgender IF- 
Abfrage (Zeile 60) gibt es noch zwei Feinheiten. Basic erlaubt 
uns bei bedingten Sprüngen statt IF .. THEN GOTO .. nur IF 
.. THEN .. zu schreiben, und das haben wir bisher auch brav 
gemacht. 

Man kann aber auch IF .. GOTO verwenden. Eigentlich ist 
nicht zu erwarten, daß zwischen den beiden Schreibarten ein 
Zeitunterschied besteht. Der Fall ist tatsächlich fast akade¬ 
misch, wie Version 9 beweist: 

60 IF Z=S GOTO 1000 
Laufzeit des C64: 3,0 Sekunden. 

Eine andere Änderung bringt auch nur ganz wenig in der 
Geschwindigkeit, aber sie spart uns eine ganze Zeile und 
damit Speicherplatz: 

60 IF ZOS GOTO 40 
70 entfällt 

Diese Version 10 gewinnt nur 0,02 Sekunden._ 

Regel 3 

■ Bei Schleifen mit Sprunganweisungen ist IF .. GOTO schneller als IF..THEN 

• Prüfung auf Ungleichheit (<>) bietet Vorteile, wenn sie eine Zeile erspart. 

Für die etwas weiter Fortgeschrittenen unter Ihnen gebe 
ich hier noch eine weitere Anregung, die wir mit unserem 
Prüfprogramm nicht testen können. 

Die Prüfung mit IF..THEN hängt oft von mehr als einer 
Bedingung ab. Zum Beispiel kann sie so lauten: 

100 IF (A=l AND B=2 AND C=3) THEN 999 
110 GOTO 50 

Zeile 100 prüft jedesmal, ob alle drei Bedingungen erfüllt 
sind, erst nach dem THEN wird entschieden, ob das Pro¬ 
gramm auf Zeile 999 springt oder auf 110 weiterläuft. Neh¬ 
men wir an, A ist im 20. Durchlauf erfüllt, B im 50. Durchlauf, 
C aber erst im 300. Durchlauf. Das Programm muß also 
300mal alle drei Bedingungen nachprüfen. Wenn wir die 
Zeile 100 so schreiben: 

100 IF C=3 THEN IF B=2 THEN IF A=1 THEN 999 

dann bricht das Programm 300mal die Prüfung nach dem C 
sofort ab und geht in 110 weiter. B und A werden erst dann 
zur Prüfung herangezogen, wenn C=3 ist. Es ist wohl klar 
und einzusehen, daß die zweite Schreibweise schneller ist. 

Regel 4 

Bei IF.THEN-Prüfungen mit mehreren Bedingungen sollen diese Bedingungen in ein¬ 
zelnen IF.THEN-Prüfungen hintereinander gesetzt werden. Dabei wird die Bedingung 
an die erste Stelle gesetzt, welche als erste nicht erfüllt ist 


Ich habe mit Absicht bis hierher die 374malige Wiederho¬ 
lung der Schleife mit der Zählvariablen Z hochgezählt und mit 
IF..THEN beziehungsweise IF..GOTO den Schlußwert abge¬ 
fragt. Das gab mir die Gelegenheit, die Schnelligkeit dieser 
Methode ganz auszureizen. Und wir haben auch die 
ursprüngliche Laufzeit von 10,48 Sekunden auf 2,88 Sekun¬ 
den reduziert! Jetzt wollen wir noch eine andere Basic- 
Möglichkeit austesten, die Sie ja alle kennen, nämlich die 
Schleife mit FOR..TO..NEXT zu programmmieren. 

Wir wollen in Version 11 des immer noch gleichen Pro¬ 
gramms dazu die Zeilen 30, 50 und 60 ändern: 

30 F0R Z=1 TO 374 
50 NEXT Z 
60 entfällt 

Lassen Sie’s laufen. Huiiih! Das pfeift runter! Der C64 
braucht nur noch 1,08 Sekunden. Das bringt gegenüber der 
IF.THEN-Schleife der Version 10 eine ganze Menge, nämlich 
ungefähr 2 Sekunden oder, auf die Zeit der Version 1 bezo¬ 
gen 89 Prozent. 

Das einzige, was wir in der FOR..NEXT-Schleife noch ver¬ 
bessern können, ist die vielgeübte Praxis des Weglassens 
der Schleifenvariable Z nach dem NEXT-Befehl. 

50 NEXT 

Der Geschwindigkeitsgewinn dieser Version 12 ist nicht 
sehr groß, nämlich nur etwa 0,1 Sekunden, aber wir wollen 
die Methode doch in die nächste Regel mit aufnehmen. 

Regel 5 

Schleifen sollen nicht mit IF..THEN, sondern mit FOR..TO..NEXT gebildet werden. Die 
Schleifenvariable nach NEXT soll dann weggelassen werden, wenn es nicht zu Ver¬ 
wechslungen mit anderen Schleifen führen kann. 

Ich bin fast am Ende meines Beschleunigungslateins. Nur 
eines bleibt noch, nämlich die bisher hochgehaltene Lesbar¬ 
keit des Programms zu opfern. Ich hoffe nämlich, Sie haben 
bisher meiner Eingangsforderung Folge geleistet und alles 
schön mit Leerzeichen geschrieben. Das behalten wir 

zunächst noch bei, im Gegenteil, wir wollen zunächst die Les¬ 
barkeit noch erhöhen und REM-Erläuterungen einfügen. Ich 
schlage vor, die Version 13 so auszuschmücken: 

10 TI$=" 000000" :REM UHR AUF NULL 

12 REM**************************** 

13 REM* * 

14 REM*TEST-PR0GRAMM* * 

15 REM* * 

16 REM**************************** 

20 PRINT CHR$(l47);:REM ALLES L0ESCHEN 
30 F0R Z=1 T0 374:REM 374 ZEICHEN 
40 PRINT"A": 

50 NEXT 

999 REM ZEIT'AUSDRUCKEN 

1000 POKE 214,18:PRINT TI/60 "SEKUNDEN" :END 
Sieht gut aus, nicht wahr? 

Aber leider, REM-Erläuterungen kosten Zeit. Wir sind um 
0,2 Sekunden langsamer geworden. 

Wir schmeißen deshalb alle REMs wieder raus und haben 
damit wieder Version 12. Jetzt aber gehen wir einen Schritt 
in der anderen Richtung weiter und entfernen alle Leerstellen 
und Abstände. Mit dieser Version 14 will ich Ihnen zeigen, 
daß das auch einen Einfluß auf die Laufgeschwindigkeit hat. 

10 TI$="000000" 

20 PRINTCHR$(l47); 

30 F0RZ=1T0374 
40 PRINT"A"; 

50 NEXT 

1000 P0KE214,18:PRINT:PRINTTI/60 " SEKUNDEN" :END 

Das Ergebnis ist 0,98 Sekunden. 

In Version 15 treiben wir die Schrumpfung ins Extrem, 
indem wir das Programm im Prinzip unverändert, aber mit 
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einem Minimum an Zeilen schreiben, also möglichst viele 
Befehle in eine Zeile packen. 

Sie wissen, die maximale Zeilenlänge beträgt 80 Zeichen 
beim C 64. Unser Programm können wir sogar in einer einzi¬ 
gen Zeile unterbringen - fast unglaublich, aber es geht. Sie 
müssen allerdings alle Abkürzungsmöglichkeiten ausschöp¬ 
fen, die das Commodore-System bietet. Im Anhang der 
Commodore-Handbücher finden Sie die Liste aller Abkürzun¬ 
gen beim Eintippen: C und geSHIFTetes H für CHR$, ? für 
PRINT und so weiter. Im nachfolgenden Ausdruck ist das 
natürlich nicht zu sehen, weil der Befehl LIST die Abkürzun¬ 
gen nicht berücksichtigt. So kommen auch mehr als 80 Zei¬ 
chen in eine Zeile des Listings. 

10 TI$=" 000000" :PRINTCHR$(147); :F0RZ=1T0374: 

PRINT"Ä";:NEXT:P0KE2l4,18:PRINT:PRINT TI/60 
"SEKUNDEN" :END 

Und siehe da, diese »Kurzform« des Programms ist auch 
die allerschnellste Version. Der C64 braucht 0,93 Sekun¬ 
den. Diese letzte Beschleunigung wird dadurch erreicht, daß 
das Betriebssystem des Computers nur einmal einen Zeilen¬ 
anfang und Zeilenende suchen und erkennen muß, statt 
sechsmal in der Version 14. 

Das Ausnützen der vollen Kapazität einer Zeile bringt also 
nicht nur den Vorteil eines kleineren Speicherbedarfs, son¬ 
dern auch Zeitgewinn. 

Regel 6 

• Programme ohne REM-Erläuterungen und ohne Leerstellen zwischen den Zeichen 
laufen schneller. 

• Zur Reduzierung der Zeilenzahl sollen möglichst viele Befehle in eine Zeile geschrie¬ 
ben werden. 

»Einzeiler« können auch Spaß und Herausforderung zu¬ 
gleich sein. Man sollte eigentlich annehmen, daß mit einer 
Zeile nicht viel anzufangen sei. Weit gefehlt! 

Einzeilige Programme 


Ich schreibe die Einzeiler unten lesbar, das heißt mit Leerstel¬ 
len. Sie müssen die Programme aber wieder mit allen Abkür¬ 
zungstricks schreiben, sonst gehfs schief. 


Version 

Laufzeiten der Programmversionen für 
»Buchstaben auf dem Bildschirm« 

Programmier-Methode 

Laufzeit (Sek.) 

1 

Buchstaben POKEn.Zählschleife mit 

IF ... THEN 

10,48 

2 

POKE-Adressen vordefinieren 

7,30 

3 

alle Variablen vordefinieren 

6,15 

4 

Variablen mit 2 Buchstaben 

5,63 

5 

Variable mit 1 Buchstaben 

5,51 

6 

PRINT CHR $ statt POKE 

4,05 

7 

CHR $ vordefinieren 

3,10 

8 

PRINT "A” 

3,03 

9 

Schleife mit IF-GOTO statt IF-THEN 

3,00 

10 

IFZoS statt IFZ = S 

2,98 

11 

Schleife mit FOR-NEXT 

1,08 

12 

NEXT ohne Zählvariable 

1,00 

13 

Listing mit REMs 

1,20 

14 

Listings ohne REM. ohne Abstände 

0,98 

15 

Alles in einer Zeile 

0,93 

16 

Maschinensprache 

0,066 


Von A. Boyd (Manchester) stammt ein Primzahlen- 
Erzeuger, der für die obere Grenze von 65000 viele Stunden 
braucht. 

1 F0R N=1 T0 65000:F=0F0R J=2 T0 N-l:F=F+((N-J*INT 
(N/J))=0):NEXT:X=-(F=0):PRINT RIGHT$(STR$(X*N),6*X): 
NEXT 

Ein anderer Einzeiler wurde von A.M. Simmelt (Sheffield) 
geschrieben zur Konvertierung von Dezimal- in Dualzahlen. 

1 INPUT A:F0R I=l4 T0 0 STEP-1:Z=A AND 2tI:A=A-Z:Z 
=Z/2t I :Z$=RIGHT$(STR$(Z) ,1):PRINT Z$;:NEXT: 

G0T01 

Lassen wir’s gut sein mit diesem Programmsport und keh¬ 
ren wir zurück zu einer abschließenden Betrachtung der 
Zeitgewinne. 

Wir haben in Version 1 mit 10,48 Sekunden begonnen. 
Diese Laufzeit wurde ohne Änderung des Programmresultats 
stetig verkürzt, bis wir schließlich in Version 15 bei 0,93 Se¬ 
kunden gelandet sind. Ich nenne diese Beschleunigung um 
90 Prozent schlicht und einfach spektakulär. 

Mehr allerdings kann ich nicht herausholen, es sei denn - 
na ja, eigentlich habe ich am Anfang ganz laut »Basic« gesagt. 

Aber ich kann doch nicht widerstehen und Sie scharf 
machen auf ultima velocitas - zu deutsch Maschinensprache. 

Es soll Ihnen aber kein Maschinensprache-Kurs zugemutet 
werden. Doch ein Programm in Maschinensprache besteht 
genauso aus Befehlen, Adressen und Variablen wie ein 
Basic-Programm, nur sind sie in einem speziellen Zahlen¬ 
code geschrieben. Dieser Zahlencode muß in den Arbeits¬ 
speicher geladen werden. Die für uns einfachste Möglichkeit 
bes" :darin, die Zahlen in den Speicher hineinzuPOKEn. 
Damit wir aber nicht unmäßig viele POKE-Befehle schreiben 
müssen, legen wir alle Code-Zahlen hinter DATA-Befehle und 
holen sie dann mit READ in eine einzige POKE-Schleife. Ich 
sage das deswegen, weil dieses Einlesen natürlich nicht zu 
dem Testprogramm gehören darf, dessen Laufzeit wir mes¬ 
sen wollen. Das Testprogramm selbst sitzt zwischen den drei 
Zeilen der »Stoppuhr«. Das heißt, genauer gesagt sitzt das 
Programm in den Speicherzellen, in die wir es hineinPOKEn. 
Aber zwischen der Stoppuhr rufen wir es auf, der dem RUN 
entsprechende Befehl bei Maschinensprache heißt SYS. 

Wie Sie gleich noch sehen werden, fängt unser Testpro¬ 
gramm ab Speicherzelle 7168 an. Das Ganze sieht dann so 
aus: 

10 TI$="000000" 

20 PRINT CHR$ (147) 

30 SYS 7168 

1000 P0KE 214,18:PRINT:PRINT TI/60 "SEKUNDEN" :END 

Ab Zeile 2000 setzen wir jetzt das Programm, welches uns 
das Maschinenprogramm einliest. Um mit dem Einlesen zu 
beginnen, setzen wir noch eine Umleitung vor das Meßpro¬ 
gramm: 5 GOTO 2000 

In Zeile 2000 löschen wir den Bildschirm. Zeile 2010 und 
2020 und 2030 liest die Codezahlen, die von Zeile 2050 bis 
2090 stehen, und POKEt sie in die Speicherplätze 7168 bis 
7200. Sobald die Zahlen eingelesen sind, können Sie das 
Meßprogramm mit dem Befehl GOTO 10 (direkt eingetippt) 
starten. 

Im Abdruck unten wird das etwas eleganter gemacht. 
Zuerst meldet das Programm das Ende des Einlesens (Zeile 
2100 und 2101). Dann kommt die Anweisung, wie das Meß¬ 
programm zu starten ist, nämlich durch Drücken irgendeiner 
Taste, die durch eine GET-Schleife abgefragt wird. Wenn eine 
Taste gedrückt wird, springt das Programm auf Zeile 10 (das 
geschieht in Zeile 2160). 
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5 GOTO 2000 
10 TI$=" 00.0000" 

20 PRINT CHR$(l47) 

30 SYS 7168 

1000 POKE 214,18:PRINT:PRINT TI/60 "SEKUNDEN":END 
2000 PRINT CHR$(l47) 

2010 FOR A=7168 TO 7200 
2020 READ B 
2030 POKE A,B 
2040 NEXT 

2050 DATA 162,0,169,1,157 
2060 DATA 0,4,169,14,157,0,216 
2070 DATA 232,224,0,208,241,169,1,157 
2080 DATA 254,4,169,14,157,254,216 
2090 DATA 232,224,120,208,241,96 
2100 PRINT"DAS MASCHINENPROGRAMM" 

2110 PRINT"IST JETZT EINGELESEN.":PRINT 
2120 PRINT"ZUM STARTENDES PRO-" 

2130 PRINT"GRAMMS * CHR$(18)"TASTE"CHR$(l46) 
"DRUECKEN" 

2140 GET A$ 

2150 IF A$=" "THEN 2140 
2160 GOTO 10 

So, inzwischen haben Sie sicher Ihre Überraschung 
gehabt! 0,066 Sekunden Laufzeit. Ich hoffe, daß ich Sie mit 
dem Virus der Maschinensprache infiziert habe. 

Wir wollen im folgenden ein paar arithmetische Funktionen 
untersuchen und beschleunigen. Als erste nehmen wir uns 
in Version 17 die Multiplikation vor. Die Messung der Laufzeit 
erfolgt auf dieselbe Weise wie bei allen Programmen vorher 
auch. Deshalb bleiben die Zeilen 10,20 und 1000 gleich. Die 
Multiplikation selbst soll 300mal ausgeführt werden (Zeile 
30). Dann wird das Ergebnis gedruckt (Zeile 60). 

30 FOR Z=1 T0 300 
50 NEXT 
60 PRINT A 

Als Multiplikation nehmen wir den Extremfall einer kurzen 
Zahl multipliziert mit einer langen. 

40 A=3*0,123456789 

Nach RUN bleibt der Bildschirm zuerst leer, bis dann nach 
11,85 (14,15) Sekunden das Ergebnis der Multiplikation und 
die Laufzeit ausgedruckt wird. 

In Version 18 vertauschen wir die beiden Zahlen, die in 
Zeile 40 multipliziert werden. 

40 A=0.123456789*3 

Diese einfache Manipulation bringt natürlich nach Adam 
Riese dasselbe Resultat wie vorher, aber die Laufzeit ist kür¬ 
zer. Wir gewinnen 0,44 Sekunden. Dieser Gewinn ist nicht 
überwältigend, aber überraschend. Aber denken Sie nach! 

Wie ist das, wenn Sie so eine Multiplikation auf dem Papier 
durchführen? Da ist die Rechnung im zweiten Fall auch einfa¬ 
cher. Der Computer hat genau dasselbe Problem. 

In Version 19 nützen wir noch eine kleine Eigenheit der 
Commodore-Computer aus, die auf ihre amerikanische Her¬ 
kunft zurückzuführen ist. Bei den Angelsachsen ist es näm¬ 
lich erlaubt, eine Null vor dem Dezimalpunkt wegzulassen. 
Beim Computer dürfen wir das auch. Obwohl das mit der Mul¬ 
tiplikation direkt nichts zu tun hat, bietet sie uns doch eine 
gute Gelegenheit, die Einsparung durch das Weglassen der 
Null auch zeitlich zu messen. Also, Zeile40siehtjetztsoaus: 

40 A=.123456789*3 

Das bringt nicht sehr viel, 0,20 Sekunden. Aber Kleinvieh 
macht auch Mist. 

Eine ähnliche Verbesserung, die wir hier nicht ausprobie¬ 
ren, wird erzielt durch den Ersatz einer alleinstehenden Null 
durch einen Punkt, zum Beispiel: 


statt IFX=0 THEN - 
jetzt IF x=. THEN - 

Eine gewaltige Beschleunigung erfährt das Multiplikations¬ 
beispiel, wenn wir die Regel 1 anwenden und die Variablen 
vordefinieren. 


Regel 7 

• Bei einer Multiplikation soll die längere Zahl vor der kürzeren stehen (langer Mulllpli- 
kant, kurzer Multiplikator). 

• Eine einzelne Null wird durch einen Punkt ersetzt, eine Null vor dem Dezimalpunkt 
wird weggelassen. 

In Version 20 ersetzen wir in Zeile 40 beide Zahlen durch 
Buchstaben, die wir in einer neuen Zeile 25 diese Werte 
zuweisen. 

25 B=.123456789:0=3 
40 A=B*C 

Dieser Lauf bleibt nach 1,48 Sekunden stehen, das heißt 
wir gewinnen 12,23 Sekunden. Also bitte Regel 1 unbedingt 
beachten! 

Eine andere betrachtenswerte arithmetische Funktion ist 
das »Potenzieren« (Quadrat-/Kubikzahlen), ausgelöst durch 
das Zeichen t. Version 21 erzielen wir durch Löschen der 
Zeile 25 und Abänderung der Zeile 40: 

40 A= 4 t 3 

»Vier hoch drei« ergibt 64 und braucht 10,53 Sekunden. 

In Version 22 wollen wir sehen, ob vordefinierte Variable 
auch so einschlagen wie bei der Multiplikation. 

25 B=4:C=3 
40 A=BtC 

Man kann sich doch auf nichts verlassen! Diesmal sind wir 
nur um 0,22 Sekunden schneller. Wir dürfen aber nicht auf¬ 
geben. Version 23 macht alles wieder wett, und zwar durch 
den simDlen Trick, daß wir das Potenzieren in seine Grund- 
elemeiue zerlegen. 

Sie wissen doch: 4 hoch 3 (4 t 3) ist dasselbe wie »4 zwei¬ 
mal mit sich selbst multipliziert« (4*4*4). 

25 B=4 (C entfällt) 

40 A=B#B*B 

Ja, da schauen Sie, gell? Das Programm braucht nur 1,68, 
also 8,31 Sekunden weniger. 


Regel 8 

Die Funktion Potenzieren (I) soll durch Mehrfach-Multiplikation ersetzt werden. 


Als letztes Objekt möchte ich oft aufgerufene Unterpro¬ 
gramme messen. Wir erreichen das ganz einfach dadurch, 
daß wir das letzte Programm (Version 23) abändern. So erhal¬ 
ten wir Version 24: Die Definition der Variablen (Zeile 25) und 
die Multiplikation (Zeile 40) verbannen wir als Unterpro¬ 
gramm an das Ende des Programms und springen innerhalb 
der 300fachen Schleife mit GOTO darauf. 

25 löschen; 

30 FOR Z=1 T0 300; 

40 GOTO 40000 

Alles andere bleibt, aber neu kommt dazu: 40000 B=4; 
50000 A=B*B*B; 

60000 GOTO 50 

Es ist nicht weiter erstaunlich, daß dieser Umbau diese Ver¬ 
sion 24 gegenüber Version 23 verlangsamt. Aber merken Sie 
sich die Laufzeit, 3,28 Sekunden. Als nächstes ersetzen wir 
die beiden GOTO-Zeilen durch GOSUB-RETURN. 

40 G0SUB 40000 
60000 RETURN 

Diese Version 25 spart uns 0,15 Sekunden. GOSUB ist 
schneller als GOTO! Sie haben vielleicht schon gelesen, daß 
oft gebrauchte Unterprogramme am Anfang eines Pro¬ 
gramms stehen sollen. Den Grund dafür will ich Ihnen mit den 
nächsten zwei Versionen vorführeii. 
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Version 26 macht das zunächst für die GOTO-Version. Wir 
bauen sie auf der Version 24 auf, mit folgenden Änderungen: 

Die Zeitmessung lassen wir wie gehabt in den Zeilen 10,20 
und 1000, die Schleife und den Ausdruck des Resultats in 
den Zeilen 30, 50 und 60. 

Nur beim Unterprogramm streichen wir alle Nullen der Zei¬ 
lennummern, so daß es jetzt in den Zeilen 4, 5 und 6 steht. 
Um zu vermeiden, daß das Programm gleich mit dem Unter¬ 
programm beginnt, fügen wir davor (Zeile 3) noch eine Umlei¬ 
tung ein, die sofort auf der Zeile 10 weitermacht. Schließlich 
brauchen wir noch den Sprung in das Unterprogramm, den 
wir in die Zeile 33 setzten. Das Ganze sieht jetzt so aus: 

3 GOTO 10 

4 B=4 

5 A=B*B#B 

6 GOTO 50 

10 TI$="000000" 

20 PRINT CHR$(l47) 

30 F0R Z=1 T0 300 
33 GOTO 4 
50 NEXT 
60 PRINT A 

1000 P0KE 214,18:PRINT:PRINT TI/60 "SEKUNDENEND 
Nach RUN erhalten wir 3,1 Sekunden. Gegenüber Version 
24, unserem Vergleichsobjekt, sparen wir 0,18 Sekunden. 

Dasselbe passiert, wenn wir in der Version 27 die GOTOs 
mit GOSUB-RETURN ersetzen. 

6 RETURN 
33 G0SUB 4 

Gegenüber der anderen GOSUB-Version (Version 25) spa¬ 
ren wir 0,17 Sekunden. 

Regel 9 

* Der Aufruf von Unterprogrammen mit GOSUB ist schneller als mit GOTO. 

* Häufig gebrauchte Unterprogramme gehören ganz an den Anfang eines Pro¬ 
gramms. Sie müssen dann allerdings zuerst mit einem GOTO umgangen werden. 


Ich bin überzeugt, daß in Basic noch mehr spektakuläre 
Zeitgewinne stecken. Falls Sie eine Regel 10 oder noch mehr 
entdecken, ermuntere ich Sie um Mitteilung. 

Wenn Sie Fragen haben, können Sie mich mit einer Leser¬ 
zuschrift ansprechen. (Dr. Helmuth Hauck/aa/hm) 


Version 

Programmier-Methode 

Laufzeit (Sek.) 

17 

Multiplikation, lang x kurz 

14,15 

18 

Multiplikation, kurz x lang 

13,71 

19 

Null weglassen 

13,51 

20 

Variable vordefinieren 

1,48 

21 

Potenzieren (4 hoch 3) mit t 

10,53 

22 

Variable vordefinieren 

10,31 

23 

4x4x4 statt 413 

2,01 

Laufzeiten der Versionen für arithmetische Funktionen 


24 

Unterprogramm am Ende, Sprung 
mit GOTO-GOTO 

3,28 

25 

Unterprogramm am Ende, Sprung 
mit GOSUB-RETURN 

3,13 

26 

Unterprogramm am Anfang, Sprung 
mit GOTO-GOTO 

3,10 

27 

Unterprogramm am Anfang, Sprung 
mit GOSUB-RETURN 

2,96 

Laufzeiten der Versionen für Unterprogramme 


Debugging - 
Fehlersuche 
in Basic- 
Prog rammen 


Diese Situation kennt wohl jeder Besitzer 
eines Heimcomputers zur Genüge: Da 
tippt man in stundenlanger Arbeit ein 
ellenlanges Listing ein, lehnt sich nach 
dem letzten »RETURN« einen Augenblick 
erleichtert zurück, gibt das magische Wort 
»RUN« ein - und natürlich läuft das Pro¬ 
gramm nicht so, wie es eigentlich sollte. 

D as Spektrum der möglichen Ereignisse reicht in einem 
solchen Fall vom simplen »SYNTAX ERROR« bis zum 
völligen Absturz des Programms. Solange 
der Computer noch brav seine Fehlermeldungen ausgibt, hat 
man ja noch Glück gehabt. Kritisch wird die Situation dann, 
wenn - f dem Bildschirm ein eigenartiges Gemisch undefi¬ 
nierbarer Zeichen erscheint und sich der Computer weder 
durch Betätigen aller erreichbaren Tasten noch durch gutes 
Zureden wieder auf den Boden der Tatsachen zurückholen 
läßt. Wenn man beim Eintippen eines Programms einmal an 
diesem Punkt angelangt ist, wird es Zeit, sich die erste Regel 
gut einzuprägen: Jedes Programm sollte vor dem Start unbe¬ 
dingt mit »SAVE« gesichert werden. 

Mit dem Retten des mühevoll erstellten Programms allein 
ist es allerdings noch nicht getan, es muß effektiv noch etwas 
gegen die im Programm enthaltenen Fehler unternommen 
werden. Diesen Vorgang bezeichnet man auch als »Debug¬ 
ging«. Das Wort ist von der englischen Bezeichnung »Bug« 
abgeleitet und bedeutet eigentlich »entwanzen«, wobei mit 
den »Wanzen« die Fehler gemeint sind, die sich überall im 
Programm verstecken. In der amerikanischen Umgangsspra¬ 
che hat sich das Wort ganz allgemein für das Suchen ver¬ 
steckter Fehler eingebürgert. 

Ganz grob kann man zwischen zwei Arten von Fehlern 
unterscheiden. Einerseits gibt es die logischen Fehler, die mit 
schöner Regelmäßigkeit in der Entwicklungsphase eines 
Programms auftauchen, weil man dem Computer noch nicht 
genau genug gesagt hat, was er denn nun eigentlich machen 
soll. Diese Art von Fehlern erkennt man zumeist daran, daß 
das Programm anstandslos läuft, aber nicht immer die 
gewünschten Ergebnisse produziert. Die zweite Art von Feh¬ 
lern ist wesentlich profanerer Natur und tritt praktisch jedes¬ 
mal dann auf, wenn man ein Programm von einem fremden 
Listing oder auch von den eigenen Aufzeichnungen abtippt: 
Es handelt sich dann zumeist um schlichte Tippfehler oder 
um Fehler, die auf schlechter Lesbarkeit der Vorlage beru¬ 
hen. Wir wollen uns im folgenden nur mit der zweiten Art von 
Fehlern beschäftigen. 

Wie geht man nun zweckmäßig vor, um alle Fehler zu fin¬ 
den, ohne das gesamte Programm von Anfang bis Ende mit 
der Vorlage vergleichen zu müssen? Nun, eine allgemeingül- 
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tige Methode, die für alle Arten von Programmen anwendbar 
wäre, gibt es leider nicht. Dennoch erscheint ein gewisses 
systematisches Vorgehen durchaus angebracht. 

Der Computer hilft bei der Fehlersuche 


Zunächst sollten wir uns darüber klarwerden, inwieweit uns 
der Computer selbst bei der Suche nach Fehlern helfen kann. 
Als erstes kommen einem dabei natürlich die Fehlermeldun¬ 
gen in den Sinn, die beim Commodore-Basic ja erfreulicher¬ 
weise im Klartext erfolgen und recht vielfältig sind. Wer mit 
den englischen Bezeichnungen nicht sofort etwas anfangen 
kann, hat die Möglichkeit, die deutschen Erläuterungen dazu 
im Handbuch nachzuschlagen. 

Was aber soll man tun, wenn der Computer gar keine Feh¬ 
lermeldung ausgibt, sondern sich nach »RUN« einfach sang- 
und klanglos verabschiedet und auf keine Tasten mehr rea¬ 
giert? 

Nun, für solche Fälle bietet Basic zwei spezielle Befehle, 
die man immer dann in nicht zu geringem Umfang einsetzen 
sollte, wenn man nicht genau weiß, wo denn nun der Fehler 
steckt. Gemeint sind die Basic-Befehle STOP und CONT. 
Wenn der Computer beim Abarbeiten des Programms auf 
den Befehl STOP stößt, unterbricht er die Programmausfüh¬ 
rung und gibt eine Meldung »BREAK IN nnn« aus, wobei nnn 
die Zeilennummer ist, in der er die STOP-Anweisung gefun¬ 
den hat. Alle Variablen und auch der Stackpointer bleiben 
dabei erhalten, so daß die STOP-Anweisung auch in Unter¬ 
programmen und innerhalb von FOR-NEXT-Schleifen auftre- 
ten kann. 

Nach einem solchermaßen erzwungenen Programmstopp 
kann man sich im Direktmodus mit dem PRINT-Befehl über die 
Werte wichtiger Variablen informieren und sogar mit LIST ein¬ 
zelne Programmteile anschauen. Danach gibt man den 
CONT-Befehl und das Programm wird ganz normal fortge¬ 
setzt. Wenn es zu Testzwecken notwendig erscheint, kann 
man während eines Stopps auch im Direktmodus Variablen¬ 
werte verändern oder FOR-NEXT-Schleifen verwenden. 
Allerdings dürfen weder neue Programmzeilen eingegeben 
noch alte gelöscht oder verändert werden, da dadurch 
gleichzeitig alle Variablen gelöscht werden und CONT 
danach nicht mehr möglich ist. 

Es ist empfehlenswert, an kritischen Stellen im Programm 
STOP-Befehle einzufügen, um dadurch den Programmiauf 
verfolgen zu können und den Fehler immer mehr einzugren¬ 
zen. Kritische Stellen sind generell und ohne Ausnahme alle 
SYS- und USR-Aufrufe, desgleichen alle POKE-Befehle, über 
deren Bedeutung man sich nicht hundertprozentig im klaren 
ist. Im Zweifelsfalle sollte man auch nach jedem GOSUB im 
Programm zunächst einen STOP-Befehl einbauen, um 
sicherzugehen, daß das Unterprogramm auch wieder auf 
normalem Wege verlassen wird. 

Jedesmal, wenn man die Harmlosigkeit zum Beispiel eines 
SYS-Befehls durch davor und danach plazierte STOP- 
Befehle festgestellt hat, kann man die STOPs natürlich wieder 
entfernen, um einen flüssigeren Programmablauf zu errei¬ 
chen. Es empfiehlt sich, alle eingefügten STOP-Befehle auf 
einem Zettel zu notieren, um die Übersicht zu behalten. 
Schließlich dienen diese Befehle nur der Fehlersuche und 
müssen irgendwann einmal alle wieder entfernt yverden. 

In vielen Fällen kann man STOP-Befehle durch einfache 
PRINT-Anweisungen ersetzen. Das hat den Vorteil, daß keine 
Programmunterbrechung stattfindet und man nicht jedesmal 
»CONT« eintippen muß. Außerdem kann man in PRINT- 
Anweisungen auch zusätzliche Informationen geben, zum 
Beispiel Variablenwerte ausdrucken oder direkt auf ein spe¬ 
zielles Problem aufmerksam machen. Diese PRINT- 
Anweisungen sollten aber in irgendeiner Weise von den nor¬ 


malen Bildschirmausgaben unterschieden sein. Zum Bei¬ 
spiel kann man jede PRINT-Anweisung zur Fehlersuche mit 
fünf Sternchen oder fünf Pluszeichen beginnen lassen. 

Will man sich mehrere Variable während des Programm¬ 
laufs ausdrucken lassen, sind kleine Unterprogramme recht 
hilfreich, die in einen freien Zeilenbereich geschrieben wer¬ 
den und die alle benötigten Ausgaben durchführen. Am Ende 
solcher Unterprogramme sollte eine GET-Schleife stehen, 
die das Programm auf Tastendruck weiterlaufen läßt. Statt 
langer PRINT-Listen braucht man so nur einen GOSUB-Aufruf 
überall dort im Programm einzufügen, wo dies sinnvoll 
erscheint. 

Das Arbeiten mit STOP und CONT mag manchem Compu¬ 
terneuling etwas ungewohnt erscheinen, aber es ist jeden¬ 
falls ein recht sicheres Mittel, einem immer wieder abstürzen¬ 
den Programm auf die Schliche zu kommen. 

Wenn der C 64 

nur noch »Bahnhof« versteht... 


Die häufigste Fehlermeldung ist sicherlich der ungeliebte 
»SYNTAX ERROR«. Böse Zungen behaupten allerdings, beim 
VC 20 wäre es der »OUT OF MEMORY ERROR«. Wie dem 
auch sei, solange der Computer nur Syntax-Fehler meldet, 
kann man noch von Glück reden. Es handelt sich dabei mei¬ 
stens um einfache Tippfehler, die nach Auflisten der entspre¬ 
chenden Zeile leicht zu finden und zu korrigieren sind. 
Beliebte Fehler sind zum Beispiel fehlende oder überzählige 
Klammern und die Verwechselung ähnlicher Zeichen wie 
zum Beispiel »0« und »O«, »1« und »I« oder »8« und »B«. Sehr 
häufig .tauch die Verwechslung von Punkt und Komma, was 
sich besonders in DATA-Zeilen verhängnisvoll auswirken 
kann, wie wir nachher noch sehen werden. Wenn Sie also 
irgendwo einen »SYNTAX ERROR« gemeldet bekommen und 
in der fraglichen Zeile auf Anhieb keinen Fehler finden, dann 
gehen Sie zuerst die vorhin genannten Punkte durch. 

Eine gute Hilfe ist es, mit dem Cursor die fehlerhafte Zeile 
Zeichen für Zeichen abzufahren und dabei mit der Vorlage zu 
vergleichen. Kommen in der Fehlerzeile viele Klammern vor, 
dann empfiehlt sich häufig das Anlegen zweier Strichlisten 
für öffnende und schließende Klammern. Die Anzahl muß 
innerhalb jeder Basic-Anweisung übereinstimmen. Aber bitte 
keine Klammern mitzählen, die in Anführungszeichen stehen, 
diese haben mit der Syntax nichts zu tun. 

Ab und zu kann es Vorkommen, daß man bei aller Sorgfalt 
einen Syntaxfehler nicht findet, wie zum Beispiel in der fol¬ 
genden Basic-Zeile: 

10 OPEN 1,4:PRINT #1,"HALLO":CLOSE 1 

Wenn der Computer hier dennoch einen Syntaxfehler 
meldet, dann kann das nur eine Ursache haben: Bei der 
Eingabe dieser Zeile wurden die Basic-Befehle in der 
bekannten Art und Weise abgekürzt, der zweite Befehl dabei 
aber als »?#1« eingegeben, was beim Auf listen wieder zu 
»PRINT #1« wird. Leider sind PRINT und PRINT # zwei völlig 
verschiedene Befehle, genauso wie INPUT und INPUT # 
oder GET und GET #. Also bitte bei der abgekürzten Eingabe 
von »PRINT #« unbedingt die im Handbuch angegebene 
Form (»P« Shift-»R«) statt »?#« verwenden. Die normale 
PRINT-Routine weiß nämlich mit dem nachfolgenden »#« 
nichts anzufangen und es kommt zu einer Fehlermeldung. 

Eine ähnliche Situation kann sehr leicht bei Verwendung 
langer Variablennamen auftreten. In einem Spielprogramm 
»Schiffe versenken« kann zum Beispiel die folgende Zeile 
auftreten: 
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10 ANZAHLSCHIFFE = 12 

In dieser Zeile wird unweigerlich ein »SYNTAX ERROR« 
auftreten, weil der Computer innerhalb des Variablennamens 
»ANZAHLSCHIFFE« das Basic-Schlüsselwort »IF« entdeckt 
und sich bei aller Anstrengung nicht erklären kann, was eine 
IF-Abfrage an dieser Stelle soll. Trotz aller Vorteile für die 
Übersichtlichkeit eines Programmes sei daher an dieser 
Stelle von der Benutzung langer Variablennamen abgeraten. 

Was tun bei »OUT OF DATA«? 


Eine andere häufig auftretende Fehlermeldung ist vor allem 
bei Anfängern gefürchtet, nämlich der »OUT OF DATA 
ERROR«. Gefürchtet ist dieser Fehler vor allem deswegen, 
weil die Zeilennummer, die der Computer zu dieser Fehler¬ 
meldung ausgibt, in den allermeisten Fällen keinen Hinweis 
darauf gibt, an welcher Stelle denn nun ein Fehler vorliegt. 
Listet man nämlich die fehlerhafte Zeile am Bildschirm auf, so 
findet man dort nur den READ-Befehl, für den keine DATAs 
mehr vorhanden waren. Einen näheren Hinweis erhält man 
durch 

? PEEK(63) + 256 * PEEK(64) 

Dieser Befehl listet die Zeilennummer der zuletzt 
gelesenen DATA-Zeile. Ein typisches, wenn auch stark 
vereinfachtes Beispiel für das Auftreten von Fehlern im 
Zusammenhang mit DATA-Anweisungen, ist in Listing 1 
gegeben. In den Zeilen 100 bis 170 wird eine Prüfsumme 
über den ersten DATA-Block gebildet und nur dann, wenn 
diese Prüfsumme in Ordnung ist, wird in den nächsten 
Programmteil verzweigt, wo aus dem zweiten DATA-Block 
Zahlen gelesen und an den Anfang des Bildschirms gePOKEt 
werden und dort das Wort »COMMODORE« bilden sollen. 

Das Programm enthält nun einige Fehler in den DATA- 
Zeilen, die wir gemeinsam herausfinden wollen. Stellen wir 
uns einfach vor, wir hätten das Programm in Listing 1 aus 
einer Zeitschrift abgetippt und dabei einige Fehler in den 
DATA-Zeilen fabriziert. In Listing 2 sind zum Vergleich noch 
einmal die entsprechenden DATA-Zeilen des »Original«- 
Listings abgedruckt. Die Fehlersuche scheint somit recht 
einfach: Man vergleicht die paar DATAs in beiden Listings und 
wird dann schon den Fehler finden. Bei diesem kurzen 
Testprogramm stimmt das natürlich auch. Aber stellen wir uns 
doch einmal vor, daß die beiden DATA-Blöcke insgesamt 
vielleicht über drei volle Listing-Seiten gehen und nicht nur 
über drei Zeilen wie in unserem Beispiel. Dann lohnt es sich 
nämlich mit Sicherheit schon, wenn man etwas syste¬ 
matischer an die Fehlersuche herangeht. 

Zuerst starten wir unser Programm nach Listing 1 einmal 
ganz arglos mit RUN, nachdem wir es vorher auf Kassette 
oder Diskette gespeichert hatten. Der Programmverlauf ist zu 
Anfang ganz wie erwartet: Der Bildschirm wird gelöscht, es 
erscheint die Meldung »S = 270« und darunter »OK«, dann 
jedoch erscheinen am oberen Bildschirmrand statt eines 
längeren Wortes nur die beiden Zeichen »%« und »C« und das 
Programm bricht mit der Meldung »? ILLEGAL QUANTITY 
ERROR IN 230« ab. Was ist hier geschehen? 

Wenn wir uns Zeile 230 einmal auflisten lassen, dann 
sehen wir 

230 POKE B+I,X 

Da wir wissen, daß nur Zahlen zwischen 0 und 255 
gePOKEt werden können, vermuten wir den Fehler beim 
Wert der Variablen X. Um unsere Vermutung zu bestätigen, 
fragen wir den Computer doch einmal ganz einfach nach dem 
Wert von X, indem wir eintippen 


PRINT X 

und danach die RETURN-Taste betätigen. Wir erhalten als 
Antwort den Wert 1513, der tatsächlich zu groß ist, um in eine 
Speicherzelle zu passen. Wir vergleichen den zweiten DATA- 
Block mit dem Original (Listing 2) und stellen fest, daß wir bei 
der Eingabe das Komma zwischen den beiden Zahlen 15 und 
13 in Zeile 360 vergessen haben. Das ändern wir, indem wir 
das Komma nachträglich einfügen. 

Dank dieses schnellen Erfolges bessert sich unsere Stim¬ 
mung um einiges, was sich jedoch nach dem nächsten RUN 
sehr schnell wieder ändert. Zwar erscheint am Bildschirm 
zunächst ganz ordentlich die Prüfsumme des ersten DATA- 
Blocks und das dazugehörige »OK«, aber am oberen Bild¬ 
schirmrand stimmt einiges noch nicht: Man liest dort die Zei¬ 
chenfolge »@COMMOORE« statt »COMMODORE«. 


Kein Verlaß auf Prüfsummen 


Auf den ersten Blick würde man vielleicht vermuten, daß der 
Fehler nur im zweiten DATA-Block stehen kann, weil das 
Lesen des ersten Blocks keine Fehlermeldung erzeugt und 
sogar die Prüfsummenbildung stimmt. Diese Überlegung ist 
aber nicht ganz schlüssig. Denn durch Bildung einer einfa¬ 
chen Prüfsumme werden Vertauschungsfehler und überflüs¬ 
sige oder fehlende Nullen nicht erkannt. Die fünf DATA-Zeilen 
in Listing 3 ergeben zum Beispiel alle die gleicheTtüfsumme. 

Man sollte sich also nie blindlings auf Prüfsummen verlas¬ 
sen. Sie sind zwar oft nützlich, um Fehler in DATA-Zeilen fest¬ 
zustellen, man darf aber aus der Richtigkeit der Prüfsummen¬ 
probe niemals auf die Abwesenheit von Fehlern schließen. 
Außerdem taucht eine weitere Schwierigkeit auf: Wenn man 
nur e,,.. globale Prüfsumme überalle DATAs bildet, dann kann 
man zwar unter Umständen einen Fehler nachweisen, weiß 
aber immer noch nicht, wo er steckt. Da muß man dann schon 
zu anderen Mitteln greifen. 

Um den Fehler aufzuspüren, können wir dem Computer 
einen großen Teil der Arbeit überlassen. Als erstes wollen wir 
feststellen, in welchem der beiden DATA-Blöcke der Fehler 
liegen könnte. Dazu veranlassen wir den Computer einfach, 
nur den ersten DATA-Block zu lesen, indem wir eine STOP- 
Anweisung hinter die erste FOR-NEXT-Schleife plazieren. 
Wir fügen also folgende Zeile ins Programm ein: 

145 STOP 

Wenn wir das Programm jetzt starten, erhalten wir die 
Meldung »BREAK IN 145«, die von unserem STOP-Befehl 
herrührt. Da aber das Programm bis Zeile 145 durchlaufen 
wurde, muß der erste DATA-Block an dieser Stelle vollständig 
gelesen worden sein. Die Variable X enthält natürlich immer 
noch den zuletzt gelesenen DATA-Wert. Wenn dieser 
Programmteil richtig gearbeitet hat, dann müßte X jetzt den 
Wert Null haben, denn dies ist ja gerade der letzte DATA-Wert 
aus Block 1, wie man anhand von Listing 1 oder 2 unschwer 
erkennen kann. Das können wir einfach nachprüfen, indem 
wir den Computer nach dem Wert von X fragen: 

PRINT X 

Zu unserem Erstaunen ist die Antwort aber nicht 0, 
sondern 12. Wir werfen wieder einen Blick auf Listing 1 und 
stellen fest, daß die Zahl 12 die vorletzte Zahl im ersten DATA- 
Block ist. Offenbar wurde eine Zahl zuwenig gelesen ! Es ist 
nun verlockend, einfach den Endwert der ersten FOR-NEXT- 
Schleife um eins zu erhöhen, um alle Werte des ersten Blocks 
zu lesen. Doch halt, hier ist Vorsicht geboten. Viel 
wahrscheinlicher als ein Fehler in einer FOR-NEXT-Schleife 
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ist ein Fehler innerhlb der DATA-Zeilen. Bei so vielen 
Zahleneingaben kann man sich schließlich leicht mal 
vertippen. Betrachten wir das Problem also einmal von der 
anderen Seite. Wenn die Anzahl der gelesenen X-Werte 
stimmt, das Programm aber trotzdem nur bis zum vorletzten 
DATA-Wert kommt, dann enthält Block 1 vielleicht einen 
DATA-Wert zuviel. Wir wollen also die DATAs in Block 1 ganz 
gezielt überprüfen. Dazu schreiben wir in einen freien 
Zeilenbereich, zum Beispiel ab Zeile 1000, das folgende 
kleine Unterprogramm: 

1000 PRINT "I =* ; I , "X =" ; X 

1010 GET A$ : IF A$ <>CHR$(32) THEN 1010 

1020 RETURN 

In die erste FOR-NEXT-Schleife fügen wir direkt hinter die 
READ-Anweisung einen Aufruf dieses Unterprogramms ein: 

125 G0SUB 1000 

Wenn wir das Programm nun laufenlassen, geschieht 
folgendes: Der Computer gelangt mit Zeile 110 in die 
Leseschleife. In Zeile 120 wird jeweils ein DATA-Element 
gelesen. Dann erfolgt mit der eingefügten Zeile 125 ein 
Sprung in das vorhin geschriebene Unterprogramm. Dieses 
Unterprogramm druckt den Wert der Zählvariablen I und den 
soeben gelesenen DATA-Wert X aus und wartet dann, bis die 
Leertaste betätigt wird. Dann kehrt das Unterprogramm 
zurück und die Schleife wird nach dem NEXT in Zeile 140 
erneut durchlaufen. 

Auf diese Art und Weise erhält man am Bildschirm eine 
übersichtliche Darstellung der gelesenen DATA-Werte, die 
man leicht mit der Vorlage vergleichen kann. Wenn wir das 
Programm jetzt starten, erhalten wir jeweils nach Drücken der 
Leertaste eine Bildschirmanzeige etwa in der folgenden Art: 

1 = 1 X = 12 

1 = 2 X = 33 

1=3 X = 11 

und so weiter bis schließlich das Ende von DATA-Zeile 310 
erreicht wird: 

1 = 9 X = 18 

I = 10 X = 0 

Nanu? Das hatten wir eigentlich nicht erwartet. X=18 ist 
der letzte Wert in Zeile 310 und danach sollte eigenlich der 
erste Wert aus der nächsten DATA-Zeile gelesen werden, 
nämlich X=11. Woher also kommt dieser Wert Null bei I=10? 
Ein Vergleich von Zeile 310 in Listing 1 (abgetippt) mit 
Listing 2 (Original) führt uns auf des Rätsels Lösung. 
Offenbar haben wir beim Abtippen am Ende von Zeile 310 
noch ein Komma gesetzt, was da nicht hingehört. Ein Komma 
in einer DATA-Anweisung trennt für unseren Commodore- 
Computer aber immer zwei Werte voneinander, und da er 
hinter dem letzten Komma nichts mehr findet, setzt er 
kurzerhand den Wert Null dafür an. 

Damit haben wir den überzähligen DATA-Wert im ersten 
Block gefunden. Wir entfernen das Komma in Zeile 310 und 
löschen die Zeile 125 mit dem GOSUB-Befehl und ebenso 
die Zeile 145 mit dem nun nicht mehr benötigten STOP- 
Befehl. 

Ein erneuter Probelauf des Programms schreibt die 
Zeichenfolge »COMMOORE« links oben in den Bildschirm - 
und bringt die Fehlermeldung »OUT OF DATA ERROR IN 
220«. Nach Auflisten der Zeile 220 sehen wir leider nur 

220 READ X 


1 REM DATA-TEST 

2 REM- 

3 REM 

4 REM 

5 B=1024:REM BILDSCHIRM 

6 REM 

7 PRINT"."!": REM CLEAR 

8 PRINT:PRINT:PRINT:PRINT 

9 REM 

100 REM DATA-BLOCK 1 LESEN 
105 REM 

110 FOR 1=1 TO 17 

120 READ X 

130 S=S+X 

140 NEXT I 

150 PRINT"S =";S 

160 YF S< >282 THEN PRINT"PRUEFSUMMENFEHLER":END 
170 PRINT"OK" 

190 REM 
195 REM 

200 REM DATA-BLOCK 2 LESEN 
205 REM 

210 FOR 1=0 TO 8 
220 READ X 
230 POKE B+I,X 
240 NEXT I 
250 END 
290 REM 
295 REM 

300 REM DATA-BLOCK 1 
305 REM 

310 DATA 12,33,11,4,17,38,22,19,7,18, 

320 DATA 11,41,15,19,3,12,0 
345 REM 

350 REM DATA-BLOCK 2 
355 REM 

360 DATA 3,1513,13,15.4,15,18,5 
READY. 

Listing 1. In diesem Testprogramm sind einige Fehler 
in n DATA-Zeilen enthalten 


290 REM 
295 REM 

300 REM DATA-BLOCK 1 
305 REM 

310 DATA 12,33,11,4,17,38,22,19,7,18 
320 DATA 11,41,15,19,3,12,0 
345 REM 

350 REM DATA-BLOCK 2 
355 REM 

360 DATA 3,15,13,13,15,4,15,18,5 
READY. 

Listing 2. Dies ist nochmals der DATA-Block aus 
Listing 1, aber diesmal das fehlerfreie »Original« 


100 DATA 12,13,14,15,16,17,0 
200 DATA 13,12,14,15,16,17,0 
300 DATA 13,12,14,15,16,17,0,0,0 
400 DATA 23,2,14,15,16,17,0 
500 DATA 23,2,14,15,16,,17 

READY. 

Listing 3. Die Bildung einer Prüfsumme ist kein 
zuverlässiges Mittel, um Fehler in DATA-Zeilen zu 
entdecken. Wie man leicht nachrechnen kann, ergibt 
jede der fünf DATA-Zeilen die gleiche Prüfsumme. 
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Das bringt uns nicht viel weiter. Die Fehlermeldung und das 
verstümmelte Wort »COMMODORE« am oberen Bildschirm¬ 
rand deuten aber auf einen fehlenden DATA-Wert in Block 2 
hin. Untersuchen wir also Block 2 einmal genauer. Das 
Unterprogramm zum Ausdrucken der Werte von I und X am 
Bildschirm befindet sich ja ab Zeile 1000 noch im Speicher. 
Wir brauchen daher nur einen entsprechenden GOSUB- 
Befehl in die zweite Leseschleife einzufügen, am besten 
gleich nach dem READ-Befehl, also etwa in Zeile 225: 

225 GOSUB 1000 

Wir erhalten wieder eine leicht zu überprüfende Liste aller 
DATA-Werte, diesmal aus Block 2. Bei 1=4 fällt uns sofort 
etwas auf. Am Bildschirm erscheint nämlich 

1=4 X = 15.4 

Das ist die einzige Zahl mit Nachkommastellen, was bei 
dieser Art der Bildschirmausgabe sofort ins Auge sticht. Wir 
vergleichen den Wert mit der Eintragung im Originallisting 
und sehen sofort den Fehler: Wir haben beim Abtippen 
irrtümlich einen Punkt statt eines Kommas eingegeben. Die 
Korrektur ist leicht ausgeführt. 

Danach löschen wir die jetzt überflüssige Zeile 225 mit 
dem GOSUB 1000 wieder und überzeugen uns durch einen 
abschließenden Probelauf vom einwandfreien Funktionieren 
des Programms. 

Natürlich kann man nicht erwarten, daß sich alle Fehler so 
reibungslos lokalisieren lassen wie in unserem kleinen 
Beispiel. Gerade bei Fehlern in DATA-Zeilen kann die Suche 
sich namentlich bei längeren DATA-Blöcken um einiges 
schwieriger gestalten. Aberbei Programmen mit vielen DATA- 
Zeilen sind die hier beschriebenen Methoden zum Auffinden 
von versteckten Fehlern einfach unentbehrlich, wenn man 
einigermaßen schnell und sicher zum Ziel gelangen will. 

Das Optimum herausholen 


Zum Schluß soll noch vor einer verbreiteten Unsitte gewarnt 
werden, die für viele fehlerhafte Programme verantwortlich 
ist. Gemeint ist das Optimieren von Programmen hinsichtlich 
Speicherbedarf, Geschwindigkeit, Benutzerfreundlichkeit 
oder eines anderen Kriteriums. 

Vielfach wird dabei versucht, während des Abtippens eines 
Programmes gewisse Dinge zu ändern, eben zu optimieren. 
Da werden Variablennamen geändert, mehrere Zeilen zu 
einer einzigen zusammengefaßt oder andere PRINT- 
Anweisungen eingebaut. 

Da man ein komplexes Programm jedoch nicht so einfach 
überblicken kann, entstehen durch solche Maßnahmen nur 
zusätzliche Fehler. Es gibt zwei bekannte Programmierer- 
Faustregeln zum Optimieren von Software: 

1. Optimiere nicht. 

2. Optimiere noch nicht. 

Die erste Regel kann man auch so ausdrücken: Wenn das 
Programm läuft und alles das tut, was es tun soll - warum um 
alles in der Welt sollte man es dann optimieren und sich 
zusätzliche Arbeit machen? 

Die zweite Regel ist eine Warnung, mit dem Optimieren zu 
beginnen, bevor das Programm in seiner ursprünglichen Fas¬ 
sung lauffähig ist. 

Wenn Sie alle hier beschriebenen Regeln und Methoden 
bei der Suche von Fehlern wirklich beherzigen, dann sollte es 
Ihnen auch als Programmierneuling möglich sein, selbst¬ 
ständig Fehler in Ihren Programmen auszumerzen. (ev) 


Relative 
Dateien leicht 
verständlich 

Die Datenverwaltung zählt - neben dem 
Spielen - wohl zu den häufigsten Anwen¬ 
dungsgebieten für Heimcomputer. Um 
Daten aber effektiv verwalten zu können, 
bedarf es des sinnvollen Einsatzes be¬ 
stimmter Verfahren und Techniken. 

D ie relative Dateiorganisation, die sich vor allem bei der 
Verwaltung größerer Datenbestände als sehr nützlich 
erweist, ist eine davon und wird im folgenden Artikel 
näher erläutert. 

Zunächst ein paar Worte zum Begriff der »Datei«. Eine Datei 
läßt sich am besten vergleichen mit einem Karteikasten mit 
vielen gleichartigen Karteikarten. Einer Karteikarte ent¬ 
spricht dabei ein sogenannter »Datensatz« der Datei. Jeder 
Datensatz unterteilt sich wiederum in verschiedene »Daten¬ 
felder«, in die die einzelnen Eintragungen auf der Karteikarte 
erfolgen. 

Ein kleines Beispiel: In Bild 1 links sehen Sie, wie ein 
Eintrag • js- bzw. Eingabeschema zur Verwaltung von 
Adressen aussehen könnte. Die Punkte zwischen den Ausru¬ 
fezeichen markieren die Stellen, an die die einzelnen Daten 
jeweils geschrieben werden, wie Sie in Bild 1 rechts sehen 
können. Die Bereiche zwischen den Ausrufezeichen stellen 
also die einzelnen Datenfelder dar! Alle Inhalte der Datenfel¬ 
der zusammen (das heißt eine komplette Adresse bestehend 
aus Nachname, Vorname, Straße, Wohnort und Telefon) erge¬ 
ben dann einen Datensatz; mehrere gleichartige Datensätze 
eine Datei. (Eine schematische Darstellung dieses Sachver¬ 
halts finden Sie in Bild 2.) 

Um nun Daten mit dem Computer zu verwalten, gibt es 
beim Commodore 64 in Verbindung mit der Floppy VC 1541 
grundsätzlich zwei Dateiarten: Die sequentielle und eben die 
relative. 

Bei der sequentiellen Dateiorganisation werden alle Daten¬ 
sätze hintereinander, das heißt sequentiell gespeichert. 
Wenn nun Datensätze (in unserem Beispiel Adressen) gele¬ 
sen, hinzugefügt, gelöscht oder geändert werden sollen - 
diese Vorgänge bezeichnet man übrigens als Dateiarbeit 
oder »Datenpflege« -, dann muß dazu die komplette Datei in 
den Rechner geladen und nach Beendigung der Datenpflege 
wieder auf die Diskette zurückgespeichert werden. Ein direk¬ 
ter Zugriff auf jeden einzelnen Datensatz der Datei ist nicht 
möglich. 

Dieser Umstand ist einerseits sehr zeitraubend (die Floppy 
1541 ist ja nicht gerade die Schnellste), andererseits macht 
er die maximale Dateigröße vom verfügbaren Speicherplatz 
im Rechner abhängig. Die sequentielle Datenspeicherung ist 
daher mehr etwas für kleinere Dateien (mit wenigen Daten¬ 
sätzen) oder für Dateien mit sehr kurzen Datensätzen (was 
wir uns später noch zunutze machen werden). 

Wesentlich flexibler in bezug auf die Datenpflege ist die 
relative Dateiorganisation, die ja der eigentliche Gegenstand 
dieses Artikels ist. Bei ihr ist es nämlich möglich, direkt auf 
jeden einzelnen Datensatz - auch »Record« genannt - der 
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Nachname: !.! 


Nachname: IMuellen. f 

Vorname: !.! 


Vorname: !Juereen...... 

Strasse: !.! 


Strasse: IWaldstr. 1..... ! 

Wohnort: !.! 


Wohnort: !Frankfurt ].! 

Telefon: 1.! 


Telefon: ! 1?"U/fi77flRC) t 





Ein Eintragungs- beziehungsweise Eingabeschema . . . und eine Beispieieintragung. 

zur Verwaltung von Adressen . . . 


Bild 1. Eine Adressenverwaltung als Beispiel einer Datei 


Der Aufbau einer Datei: 
(allgemein) 



Feldl 

Feld2 

Feld3 

Feld4 

Feld5 

Feldl 

Feld 2 

Feld3 



Datensalz5 

Datensatz6 



DATEI 


(im Beispiel) 



Haus 

Hans 

Waldstr. 2 

Astadt 

123456 

Mueller 

Juergen 

Waldstr. 1 



Adresseö 

Adresse6 



ADRESSEN 


Bild 2. So ist eine Datei im Prinzip aufgebaut 

54€R QTILir 

Datei zuzugreifen! (Zusätzlich kann sogar auf eine beliebige 
Stelle innerhalb eines Records positioniert werden.) 


Zum Prinzip der relativen Datei 


Bei der relativen Dateiorganisation werden alle Datensätze 
(Records) in laufender Reihenfolge durchnumeriert. Der 
erste Datensatz bekommt dabei die Nummer 1, der zweite die 
Nummer 2, etc. Wenn Sie jetzt auf einen Datensatz zugreifen 
wollen, müssen Sie nur noch dessen Nummer angeben. 

Dieser Vorteil ist allerdings mit einer wichtigen Bedingung 
verbunden: 

Alle Records einer Datei müssen eine konstante, beim Ein¬ 
richten der Datei festzulegende Länge zwischen 1 und 254 
Byte (Zeichen) aufweisen! 

Diese Bedingung wird verständlich, wenn man sich über¬ 
legt, wie das Floppy-Betriebssystem (kurz: Floppy-DOS) aus 
der Recordnummer die Position des Datensatzes auf der Dis¬ 
kette bestimmt. 

Angenommen, Sie wollen auf den 27. Record einer Datei 
mit einer Recordlänge von 50 Byte zugreifen. Um nun die 
Position dieses Datensatzes zu ermitteln, multipliziert das 
Floppy-DOS die Recordlänge (in unserem Fall also 50) mit 
der Recordnummer -1 (also 26), was die Anzahl der Byte 
ergibt, die von den ersten 26 Records der Datei belegt wer¬ 
den (=1300 Byte). Dieser Wert wird jetzt noch zur Anfangs¬ 
position der Datei hinzuaddiert, was schließlich die Position 
des gewünschten Datensatzes ergibt. (Die ersten 26 
Records werden durch das Aufaddieren ihrer Gesamtlänge 
auf den Anfang der Datei praktisch »übersprungen«.) 

Jetzt wird auch der Name dieser Dateiart, nämlich »relativ«, 
verständlich, denn die Record-Position wird ja relativ zum 


Anfang der Datei ermittelt! (Im Beispiel beginnt der 
gewünschte Datensatz 1300 Byte vom Anfang der Datei ent¬ 
fernt.) 

Wie gesagt kann also jeder Datensatz einer relativen Datei 
durch Angabe seiner Nummer direkt angesprochen werden. 
Wenn Sie aber zum Beispiel eine bestimmte Adresse suchen, 
werden Sie in der Regel kaum die Nummer des betreffenden 
Datensatzes kennen. Das gleiche gilt auch für die meisten 
anderen Anwendungsgebiete. (Höchstens bei einer Konten¬ 
verwaltung - zum Beispiel für ein Haushaltsbuch - wäre eine 
direkte Verwendung der Recordnummer sinnvoll.) Daher ver¬ 
wendet man in der Praxis häufig eine Mischform aus sequen¬ 
tieller und relativer Dateiorganisation, die »indexsequentielle 
Datei«. 

Das Prinzip ist ganz einfach: 

Alle Daten werden - wie bisher - in einer relativen Hauptda¬ 
te’ /gelegt. Zusätzlich wird dann eine sequentielle Index¬ 
oder Schlüsseldatei angelegt. Diese Schlüsseldatei enthält 
von jedem Datensatz der relativen Datei nur einen Teil - bei 
einer Adreßdatei zum Beispiel den Nachnamen - sowie die 
Recordnummer des zugehörigen Datensatzes der relativen 
Hauptdatei, in dem - im Beispiel - die komplette Adresse 
untergebracht ist. 

Wenn Sie jetzt beispielsweise nach der Adresse eines 
Herrn Müller suchen, wird einfach die Schlüsseldatei kom¬ 
plett in den Computer geladen (da sie sehr kurz ist, geht dies 
ja relativ schnell, und auch die Maximalanzahl der Adressen 
ist verhältnismäßig hoch), dort durchsucht und - sofern der 
Datensatz »Müller« vorhanden ist - auf den bei »Müller« (in 
Form der Recordnummer) vermerkten Datensatz positioniert. 
Dieser wird dann schließlich in den Speicher geladen und 
ausgegeben. 

Natürlich ist es auch möglich, zu einer relativen Hauptdatei 
mehrere Indexdateien anzulegen (zum Beispiel eine mit den 
Nachnamen als Index, eine mit den Vornamen, etc.). Aller¬ 
dings muß man dann das eventuell wieder auftretende Spei¬ 
cherplatzproblem - die Indexdateien müssen ja komplett in 
den Speicher geladen werden - im Auge behalten bezie¬ 
hungsweise muß sich vor der Dateiarbeit entscheiden, mit 
welcher Indexdatei man jeweils arbeiten will. 

Nach all der Theorie kommen wir nun zur Praxis: 

Wie werden relative Dateien mit dem Commodore 64 und 
der Floppy VC 1541 - die Anlage relativer Dateien auf Kas¬ 
sette ist nicht möglich! - angelegt und verwaltet? Mit dieser 
Frage wollen wir uns im Folgenden ausführlich befassen. 
Zum Abschluß wird dann noch eine kleine, ausführlich kom¬ 
mentierte indexsequentielle Adreßverwaltung (Listing 2) vor¬ 
gestellt, die Sie selbst nach Belieben abändern können, um 
so Ihre neuen Kenntnisse in der Praxis zu erproben. 

Die Verwaltung einer relativen Datei gliedert sich grob in 
vier Abschnitte: 

- »Öffnen« der Datei 
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- Positionieren auf den gewünschten Record 

- Lesen/Schreiben des Records 

- »Schließen« der Datei. 

Da das Basic 2.0 des Commodore 64 leider keine speziel¬ 
len Befehle zur Unterstützung von relativen Dateien zur Ver¬ 
fügung stellt, bleibt nur der Weg über »OPEN«- und 
»CHR$(...)«-Sequenzen. Daher sieht das Ganze auf den 
ersten (und wohl auch zweiten) Blick etwas kompliziert aus. 
Wenn man sich die erforderlichen Programmteile aber - wie 
in Listing 1 geschehen - als Unterprogramme schreibt, ist es 
halb so schlimm. 

Kommen wir zum ersten Schritt, dem »Öffnen« der Datei. 

Öffnen einer relativen Datei 


Bei einer relativen Datei ist es - im Gegensatz zum Beispiel 
zur sequentiellen Datei - praktisch egal, ob die Datei auf der 
Diskette schon eingerichtet ist oder nicht oder ob Sie Daten 
lesen oder schreiben wollen. Der Öffnungsbefehl ist immer 
derselbe: 

OPEN LF,GA,SA,DN$+",L," +CHR$(RL) 

Die einzelnen Variablen - auch »Parameter« genannt - 
haben folgende Bedeutung: 

LF: Das ist die logische Filenummer der Datei. Sie ist erfor¬ 
derlich, damit der Computer bei späteren Lese- oder Schreib¬ 
befehlen (bei denen diese Nummer angegeben werden muß) 
weiß, aus welcher Datei gelesen oder in welche Datei 
geschrieben werden soll. LF kann Werte zwischen 1 und 127 
annehmen. 

GA: Das ist die Geräteadresse der Floppy. Im Normalfall 
also 8. 

SA: Die »Sekundäradresse« oder »Kanalnummer« SA hat 
auf Floppy-Ebene eine ähnliche Bedeutung wie die logische 
Filenummer LF auf Computer-Ebene. 

Für uns ist aber nur wichtig, daß SA Werte zwischen 2 und 
14 annehmen kann. 

Wenn Sie mehrere Dateien gleichzeitig geöffnet haben, 
müssen Sie außerdem darauf achten, daß Sie jeder Datei eine 
andere Sekundäradresse zuweisen. Wird nämlich eine 
zweite Datei mit derselben Sekundäradresse wie die erste 
geöffnet, so wird die zuerst geöffnete Datei auf Floppy- 
Ebene geschlossen! 

In diesem Zusammenhang noch ein wichtiger Hinweis: 

Auf Floppy-Ebene können maximal drei Dateien gleichzei¬ 
tig geöffnet sein. (Auf Computer-Ebene sind es übrigens 
maximal 10). Da zur Verwaltung einer relativen Datei neben 
der eigentlichen Datei - wie wir gleich noch sehen werden - 
auch der Floppy-Kommandokanal geöffnet werden muß, 
bedeutet das, daß maximal eine relative und eine sequentielle 
Datei gleichzeitig geöffnet sein können (was gerade für eine 
indexsequentielle Dateiorganisation reicht). 

DNS: DNS enthält den Namen der Datei. Dieser darf maxi¬ 
mal 16 Zeichen lang sein. Außerdem ist darauf zu achten, daß 
kein File (= Datei oder Programm) desselben Namens bereits 
auf der Diskette existiert - außer natürlich eine früher defi¬ 
nierte relative Datei dieses Namens, mit der Sie jetzt arbeiten 
wollen, denn sonst gibt es einen »FILE EXISTS ERROR«. 

",L,'': Dieser Parameter teilt dem Floppy-DOS mit, daß 
eine relative Datei geöffnet werden soll. (Die Kommas dienen 
zur Abtennung von den übrigen Parametern.) 

RL: RL enthält die gewünschte Recordlänge der Datei und 
kann Werte zwischen 1 und 254 annehmen. 

Wichtig: Die beim ersten Öffnen der Datei angegebene 
Recordlänge kann später nicht mehr geändert werden! 
(Wenn Sie versuchen, eine bereits existierende relative Datei 
mit einer anderen Recordlänge als bei der ersten Öffnung 
angegeben zu öffnen, so wird ein »RECORD NOT PRESENT 
ERROR« angezeigt.) 


Zur Ermittlung der Recordlänge zählen Sie einfach alle 
Datenfeldlängen eines Datensatzes zusammen. Im Ein¬ 
gangsbeispiel ergibt das eine Länge von 15 (Nachname) + 
10 (Vorname) + 15 (Straße) + 15 (Wohnort) + 11 (Telefon) 
= 66 Byte. 

Sofern Sie zum Einlesen der Records in den Computer den 
INPUT #-Befehl benutzen, müssen Sie dazu noch ein Byte 
addieren, denn, um das Ende eines Records erkennen zu 
können, benötigt der INPUT #-Befehl ein »RETURN« (ent¬ 
spricht CHR$(13)) oder ein Komma (entspricht CHR$(44)) 
am Ende des Records. Das »RETURN« wird normalerweise 
am Ende eines jeden PRINT- beziehungsweise PRINT ^-Be¬ 
fehls gesendet - sofern Sie es nicht durch ein Semikolon am 
Ende des PRINT-Kommandos (zum Beispiel bei »PRINT # 1 , 
" text";«) unterdrücken. 

Im Beispiel ergibt sich also eine Gesamtlänge von 67 Byte. 
Nachdem die Datei geöffnet wurde, kann mit der eigentlichen 
Dateiarbeit begonnen werden. Um jetzt einen bestimmten 
Record zu schreiben beziehungsweise zu lesen, muß 
zunächst auf ihn positioniert werden. 


Positionieren auf einen Record 


Da die Positionieranweisung über den Floppy-Kommando¬ 
kanal gesendet werden muß, muß dieser zuerst mit »OPEN 
15,8,15,« geöffnet werden. Die erste 15 ist wieder die logi¬ 
sche Filenummer (Um Kollisionen mit Dateien zu vermeiden, 
ist es zweckmäßig, hier immer dieselbe logische Filenummer 
zu verwenden); bei der 8 handelt es sich um die Gerätea¬ 
dresse der Floppy. Die zweite 15 ist die Kanalnummer des 
Floppy-Kommandokanals. 

Der * ' ■ -itionierbefehl ist ähnlich kompliziert aufgebaut wie 
der OPEN-Befehl: 

PRINT #15,"P"+CHR$(SA)+CHR$(LB)+CHR$(HB)+CHR$(RP) 

Die Parameter im einzelnen: 

SA: Das ist die beim Öffnen der Datei festgelegte Sekun¬ 
däradresse. 

LB/HB: Das ist die Recordnummer in einer für Sie vielleicht 
etwas ungewohnten Form, der sogenannten Lowbyte-/ 
Highbyte-Förm. 

Da mit CHR$(...) nur Werte bis zu 255 übermittelt werden 
können, muß die Recordnummer in zwei solcher Werte auf¬ 
geteilt werden, die sich aus folgenden Formeln ergeben: 
HB = INT(RN/256):LB = RN-256*HB 

RP: Mit RP können Sie auf eine bestimmte Stelle innerhalb 
des Records positionieren. Wollen Sie zum Beispiel einen 
Record ab dem 10. Zeichen einiesen, so muß RP den Wert 
10 erhalten. 

Wichtig: Eine Positionierung auf eine Stelle innerhalb eines 
Records ist nur beim Lesen dieses Records sinnvoll. Zum 
Schreiben eines Records muß RP auf 1 gesetzt werden! 

Und natürlich ist auch nur eine solche Positionsangabe 
sinnvoll, die kleiner gleich der Recordlänge ist. Daher ergibt 
sich für RP - eine entsprechende Recordlänge vorausge¬ 
setzt - ein Maximalwert von 254. 

Nach der Positionierung ist der betreffende Record nun für 
einen Lese- oder Schreibzugriff bereit. 


Schreiben eines Records 


Vor dem Schreiben eines Records sind drei Dinge zu beach¬ 
ten: 

- Es muß unbedingt auf das erste Byte des Records positio¬ 
niert werden (RP=1). 

- Es sollte sichergestellt werden, daß alle Datenfelder - und 
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damit auch der Record - ihre vorgeschriebene Länge auf¬ 
weisen. Wie eine solche Kontrolle und Korrektur ausse- 
hen könnte, sehen Sie in Listing 2 in den Zeilen 860-920. 

- Da der Record in einem Stück geschrieben werden muß, 
müssen die einzelnen Datenfelder vor dem Schreiben 
zusammengefaßt werden (siehe auch Listing 2 Zeile 940 
bis 960). 

Sind diese Voraussetzungen erfüllt, so kann der Record mit 
folgendem Befehl geschrieben werden: 

PRINT #LF,RC$ 

LF ist dabei die beim OPEN-Befehl festgelegte logische 
Filenummer; RC$ enthält den zu schreibenden Record. 

In diesem Zusammenhang erwähnenswert ist die Fehler¬ 
meldung »RECORD NOT PRESENT ERROR«, was soviel 
bedeutet wie »Datensatz nicht vorhanden«. Falls nämlich auf 
einen Record zugegriffen (geschrieben/gelesen) wird, der 
zuvor noch nicht beschrieben wurde, so wird diese Meldung 
erzeugt. Beim (erstmaligen) Schreiben eines Records kann 
diese Meldung natürlich ignoriert werden. (Der Schreibbe¬ 
fehl wird trotz der Meldung ausgeführt.) 

Weiterhin ist zu beachten: Ein Schreibbefehl auf einen 
zuvor noch nicht beschriebenen Record hat zur Folge, daß 
alle davor liegenden (zuvor noch nicht beschriebenen) 
Records ebenfalls beschrieben werden! 

Ein Beispiel: Sie haben eine relative Datei bereits bis zum 
20. Record beschrieben. Nun schreiben Sie den 100. 
Record. Dadurch werden gleichzeitig die Records 21 bis 99 
(mit demselben Inhalt wie der 100. Record) beschrieben! 

Wenn Sie also eine relative Datei nicht der Reihe nach 
beschreiben wollen, dann sollten Sie beim Einrichten der 
Datei als erstes den Record mit der höchsten Nummer (mit 
einem beliebigen Inhalt) beschreiben. Dadurch bleiben Ihnen 
unnötige Wartezeiten bei der Dateiarbeit - das Beschreiben 
von zum Beispiel 50 Records nimmt einige Zeit in Anspruch 

- erspart. 


Lesen eines Records 


Zum Lesen eines Records gibt es zwei Möglichkeiten: 

Die erste Möglichkeit stellt der INPUT #-Befehl dar. Mit ihm 
kann ein Record komplett in den Computer geladen werden 
- unter zwei Bedingungen: Der Record darf nicht länger als 
88 Zeichen sein, und er muß ein »RETURN« oder ein Komma 
als letztes Zeichen aufweisen. 

Das Befehlsformat: INPUT #LF,RC$ 

LF ist dabei die beim OPEN-Befehl festgelegte logische 
Filenummer; RC$ wird der Record zugewiesen. 

Eine zweite Möglichkeit - bei einer Recordlänge von mehr 
als 88 Byte zudem die einzige - bietet der GET #-Befehl. Um 
zum Beispiel einen 100 Byte langen Record einzulesen, wäre 
folgende Befehlssequenz denkbar: 

FOR 1=1 TO 100:GET # LF , EG$:RC$=RC$+EG$: NEXT I 
LF ist dabei wieder die beim OPEN-Befehl festgelegte logi¬ 
sche Filenummer. 


Schließen einer relativen Datei 


Nach Beendigung der Dateiarbeit muß die Datei geschlos¬ 
sen werden. Der dazu erforderliche Befehl ist - ausnahms¬ 
weise - sehr einfach. 

CLOSE LF 

LF ist dabei wiederum die beim OPEN-Befehl festgelegte 
logische Filenummer. 

Zum Abschluß eine kleine Adreßverwaltung zum Experi¬ 
mentieren. Bitte geben Sie dazu Listing 2 ein. 


Wichtig: Das Programm ist nur mit den in Listing 1 enthalte¬ 
nen Unter-Programmen lauffähig. Tippen Sie also am besten 
zuerst Listing 1 ein und speichern es (für spätere eigene Ent¬ 
wicklungen, für die Sie die Unterprogramme gut gebrauchen 
können). Danach geben Sie zusätzlich Listing 2 ein und spei¬ 
chern das Gesamtprogramm dann ebenfalls auf Diskette. 

Da das Programm selbst ausführlich dokumentiert ist, 
möchte ich an dieser Stelle nur noch kurz ein paar Bedie¬ 
nungshinweise geben: 

Nachdem das Hauptmenü ausgegeben wurde, geben Sie 
als erstes »1« (+ "RETURN") ein. Dadurch werden alle not¬ 
wendigen Vorbereitungen für die Dateiarbeit getroffen. 
Sobald das Hauptmenü wieder erschienen ist, können Sie 
wahlweise (und auch abwechselnd) Adressen ein- oder aus¬ 
geben. Bei der Ausgabe wird dabei der Nachname als Index 
verwendet. Nach Beendigung der Dateiarbeit geben Sie »4« 
ein, wodurch die Datei ordnungsgemäß geschlossen und das 
Programm beendet wird. 

Das Programm ist zwar recht spartanisch, dafür aber sehr 
flexibel. Beides soll Sie dazu animieren, selbst tätig zu wer¬ 
den und das Programm nach Ihren speziellen Wünschen 
abzuändern und zu ergänzen. Denn auch bei der Datenver¬ 
waltung gilt, wie überall: Übung macht den Meister! 

(Martin Hecht/gk) 


16B0 

REM- UNTERPROBRAMME ZUR VERWALTUNG 



VON RELATIVEN DATEIEN - 



— 

<016> 

1740 

s 

<192> 

1750 

REM LF = LOGISCHE FILENUMMER 

< 152> 

1760 

REM SA = SEKUNDAERADRESSE 

< 169> 

1770 

REM DN$= DATEINAME 

< 120> 

1780 

REM RL = RECORDLAENGE 

<242> 

177- 

: 

<242> 

1800 

OPEN 15,8,15:REM FLOPPY-KOMMANDOKANAL 



OEFFNEN 

<163> 

1810 

OPEN LF,8,SA,DN*+",L,"+CHR*(RL>:REM D 



ATEI OEFFNEN 

<041 > 

1820 

: 

<018> 

1830 

RETURN 

<110> 

1840 

5 

<038> 

1850 

: 

<048> 

1860 

: 

<058> 

1870 

REM- POSITIONIEREN AUF EINEN RECORD 



- 

<020> 

1880 

s 

<078> 

1890 

REM SA = SEKUNDAERADRESSE 

<045> 

1900 

REM RN = RECORDNUMMER 

< 199> 

1910 

REM RP = POSITION INNERHALB DES RECO 



RDS 

< 167> 

1920 

s 

< 11B> 

1930 

HB=INT(RN/256):LB=RN-256*HB:REM RECDR 



DNUMMER IN LOW/HIGH AUFTEILEN 

<060 > 

1940 

PRINT#15,"P"+CHR$(SA)+CHR*(LB)+CHR*(H 



B)+CHR*(RP) 

<0B9> 

1950 

: 

<148> 

1960 

RETURN 

<240> 

1970 

: 

< 16B> 

1980 

s 

< 178> 

1990 

: 

< 18B> 

2000 

REM- SCHLIESSEN EINER (RELATIVEN) D 






HIL1 



- 

<088 > 

2010 


<208> 

2020 

REM LF = LOGISCHE FILENUMMER 

< 168> 

2030 

: 

<228> 

2040 

CLOSE LF:REM RELATIVE DATEI SCHLIESSE 



N 

<234> 

2050 

CLOSE 15:REM FLOPPY-FEHLERKANAL SCHLI 



ESSEN 

< 171 > 

2060 

3 

<004> 

2070 

RETURN 

<096 > 

B 64'< 

ar 


Listing 1. Unterprogramme zur Verwaltung einer 

relativen Datei 
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100 REM-ADRE5SVERWALTUNG MIT INDEXSEQUENTIELLER D 


ATEIORGANISATION - <217> 

110 REM- (W) 1985 BY MARTIN HECHT,STGT - 

- <132 > 

120 ! <0967 

130 I <106 > 

140 : <11(!l> 

150 REM-DIMENSIONIERUNGEN- 

- <043) 

160 ! <136> 

170 DM=100:REM MAXIMALE DATENSATZANZAHL <056> 

180 : <1567 

190 DIM ID*(DM):REM INDEXFELD (ENTHAELT NACHNAMEN) <1467 
200 DIM IN(DM):REM ENTHAELT ZUGEHOERIGE RECORDNUMMER 

N <0B6> 

210 DIM DS*(5):REM DATENFELDER <063> 

220 : <1967 

230 ! <206> 

240 : <216> 

250 REM- HAUPTMENUE - 

- <2497 

260 n <238> 

270 WL=0:PRINT:PRINT <199> 

280 PRINT TAB(11) "ADRESSENVERWALTUNG" <039> 

290 PRINT <13B> 

300 PRINT TAB(8)"—1—: DATEIARBEIT BEBINNEN" <04B> 

310 PRINT TAB(8)"—2—: ADRESSEN EINGEBEN" <173> 

320 PRINT TAB (8) "-3-: ADRESSEN AUSGEBEN'' <250> 

330 PRINT TAB(8)"-4-: DATEIARBEIT BEENDEN" <1087 

340 PRINT <18B> 

350 : <072> 

360 PRINT TAB(11) "IHRE WAHL (1-4)";:INPUT WL <166> 

370 : <092> 

380 IF WL=1 THEN GOSUB 490:REM DATEIARBEIT BEGINNEN <180> 

390 IF WL=2 THEN GOSUB 710:REM ADRESSEN EINGEBEN <036> 

400 IF WL=3 THEN GOSUB 1110:REM ADRESSEN AUSGEBEN <132> 

410 IF WL=4 THEN GOTO 1480:REM DATEIARBEIT BEENDEN <099> 

420 : <142> 

430 GOTO 270:REM ZURUECK ZUM HAUPTMENUE <123> 

440 : <162> 

450 : <172> 

460 : < 182 > 

470 REM- DATEIARBEIT BEGINNEN - 

- <0057 

480 : <2027 

490 LF=1:SA=2:DN*="RELADR":RL=67:GOSUB 1800:REM RELA 

TIVE DATEI -RELADR' OEFFNEN <1347 

500 : <2227 

510 OPEN 2,8,3, "SEQADR,S,R":REM SEQUENTIELLE DATEI 

SEQADR * ZUM LESEN OEFFNEN <156?' 

520 : <2447 

530 GOSUB 1620:REM FLOPPY-FEHLERKANAL AUSLESEN <0967 

540 IF ER<>0 THEN AD=0:GOTO 590:REM DATEI IST NOCH N 

ICHT ANGELEGT <1547 

550 : <0187 

560 INPUT42,AD:REM ANZAHL DER DATENSAETZE <2047 

570 FOR 1=1 TO AD:INPUT«2,ID*(I),IN(I):NEXT 1:REM IN 

DEXDATEI EINLESEN <1017 

580 : <0487 

590 FL-1:REM KENNZEICHNUNG FUER 'DATEI IM RECHNER' <1897 

600 : <0687 

610 CLOSE 2:REM SEQUENTIELLE DATEI SCHLIESSEN <1477 

620 : <0887 

630 PRINT:PRINT:PRINT TAB(7) “DATEIARBEIT KANN BEGIN 

NEN !" <0327 

640 : <1067 

650 RETURN <2007 

660 : <1287 

670 i <1387 

680 : <i 4a > 

690 REM- ADRESSEN EINGEBEN - 

- <0497 

700 : <1687 

710 IF FL=0 THEN PRINT:PRINT TAB(8) “KEINE DATEI IM 

RECHNER i":RETURN <1107 

720 : <1887 

730 REM ADRESSE EINGEBEN <0097 

740 PRINT:PRINT <1847 

750 INPUT “NACHNAME (15) :";DS*(1> <2257 

760 INPUT "VORNAME (10) :“:DS*(2) <1357 

770 INPUT “STRASSE (15) :'';DS*(3> <1237 

7B0 INPUT "WOHNORT (15) :'“:DS*(4) <1607 

790 INPUT "TELEFON (11) :"-,DS*(5) <0787 

800 : <1197 

810 REM ADRESSE IN INDEXDATEI VERMERKEN <0657 

820 AD-AD+l:REM ANZAHL DER ADRESSEN UM 1 ERHOEHEN <1077 

830 ID*(AD)=DS*(1>:REM NACHNAME <1357 

840 IN(AD)=RN:REM RECORDNUMMER <1317 

850 : <0647 

860 REM ADRESSFELDER AUF RICHTIGE LAENGE BRINGEN <2187 

870 LE*="C15SPACEJ":REM LEERSTRING ZUM AUFFUELLEN DE 

R FELDER <1907 

880 DS*(1)=LEFT*(DS*(1)+LEFT*(LE*,ABS(15-LEN(DS*(1)) 

>>.15) <2347 

890 DS* (2> =LEFT* (DS* (2) +LEFT* (LE*, ABS (10-LEN (DS* (2> ) 

)),10) <1297 

900 DS*(3)-LEFT*(DS*(3)+LEFT*(LE*,ABS(15-LEN(DS*(3)> 


>>.15) <1437 
910 DS*(4)=LEFT*(DS*(4)+LEFT*(LE*,ABS(15-LEN(DS*(4>) 

>>,1S> <0997 
920 DS*(5)=LEFT*(DS*(5)+LEFT*(LE*,ABS(11—LEN(DS*(5)) 

>>.H> <0057 
930 : <1447 
940 REM ADRESSE FUER SPEICHERUNG ZUSAMMENFASSEN <1297 
950 RC*="" <0807 
960 FOR 1=1 TO 5:RC*“RC*+DS*(I):NEXT I <0837 
970 : <1847 
980 REM ADRESSE SPEICHERN <2337 
990 RN=AD:RP=1:GOSUB 1930:REM AUF RECORD (NR.-AD) PO 

SITIONIEREN <1427 
1000 PRINT«LF,RC*:REM ADRESSE IN RECORD SCHREIBEN <2497 
1010 GOSUB 1600:REM FLOPPY-FEHLERKANAL AUSLESEN <0027 
1020 : <2347 
1030 PRINT:PRINT:PRINT TAB(5)"ADRESSE IST GESPEICHER 

T ! " <0407 
1040 : <0007 
1050 RETURN <0927 
1060 : <0207 
1070 l <0307 
1080 : <0407 

1090 REM- ADRESSEN AUSGEBEN —- 

- <2077 

1100 : <0607 
1110 IF FL=0 THEN PRINT:PRINT TAB(8) “KEINE DATEI IM 

RECHNER !•': RETURN <0027 
1120 : <0807 
1130 PRINT:PRINT:INPUT "NACHNAME":NN*:REM INDEX ERFR 

ABEN <2017 
1140 : <1007 
1150 FOR 1=1 TO AD:REM INDEXDATEI DURCHSUCHEN <1157 
1160 IF NN*=ID*(I) THEN GN=I:I=AD:NEXT I:GOTO 1220:R 

EM INDEX GEFUNDEN <1967 
1170 NEXT I <2387 
11B0 ! <1407 
1190 PRINT:PRINT:PRINT TAB(5) "ADRESSE IST NICHT VOR 

HÄNDEN !“ <2127 
1200 RETURN <2427 
1210 : <1707 
1220 RN=GN:RP=1:GOSUB 1930:REM AUF RECORD (NR. = IN( 

I>) POSITIONIEREN <1847 
1230 INPUT#LF,RC*:REM RECORD EINLESEN <0297 
1240 : <2007 
1250 REM RECORD AUFTEILEN <0057 
1260 DS*(1> =MID*(RC*,1,15):REM NACHNAME <1587 
1270 DS*(2)=MID*(RC*,16,10):R£M VORNAME <0807 
1280 (3)=MID*(RCS,26,15) :REM STRASSE <1337 
1290 DB-(4)=MID*(RC*,41,15):REM WOHNORT <1557 
1300 DS*(5)=MID*(RC*,56,11):REM WOHNORT <0747 
1310 : <0167 
1320 REM RECORD AUSGEBEN <0117 
1330 PRINT:PRINT <0127 
1340 PRINT "NACHNAME: "jDS*(l> <0257 
1350 PRINT "VORNAME: ";DS*(2) <0897 
1360 PRINT "STRASSE: ";DS*(3> <1117 
1370 PRINT "WOHNORT: ";DS*(4) <0877 
13B0 PRINT "TELEFON: ":DS*(5) <0737 
1390 : <0967 
1400 PRINT:PRINT:PRINT "WEITER MIT 'SPACE' !" <1317 
1410 GET T*:IF T*<7CHR*(32) THEN 1410:REM WARTEN AUF 

'RETURN' <0697 
1420 : <1267 
1430 RETURN <2187 
1440 : <1467 
1150 : <1567 
1160 : <1667 

1470 REM’-DATEIARBEIT BEENDEN- 

- <0227 

1480 PRINT«15,"S:SEQADR":REM INDEXDATEI AUF DISKETTE 

LOESCHEN <2227 
1190 : <1967 
1500 OPEN 2,8,3,"SEQADR,S,W"iREM SEQ. DATEI 'SEQADR' 

ZUM SCHREIBEN OEFFNEN <1117 
1510 PRINT#2,AD:REM ANZAHL DER DATENSAETZE <2167 
1520 FOR 1=1 TO AD:PRINT«2,ID*(1)","INII):NEXT 1:REM 

INDEXDATEI SPEICHERN <1927 
1530 : <2367 
1540 GOSUB 2040:REM RELATIVE DATEI SCHLIESSEN <2507 
1550 : <0027 
1560 END:REM PROGRAMM BEENDEN <2507 
1570 : <0227 
1580 : <0327 
1590 : <0427 

1600 REM- FLOPPY-FEHLERKANAL AUSLESEN - 

- <2237 

1610 : <0627 
1620 INPUT«15,ER,ER*,TR,SK <0767 
1630 : <0827 
1640 RETURN <1747 
1650 : <1027 
1660 : <1127 
1670 : <1227 


© G4'er 


Listing 2. Eine einfache Adreßverwaltung als Beispiel für eine indexsequentielle Datei 
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C 64 


Alles, was Sie 
schon immer 
über Sprites 
wissen wollten 

Dieser Kurs führt Sie von den einfachsten 
Anfängen bis zu den tieferen Geheimnis¬ 
sen der Sprite-Programmierung. Viele Bei¬ 
spiele und Übungsaufgaben mit Lösungen 
garantieren den Lernerfolg. 


I n diesem Kurs wird eine der interessantesten Fähigkeiten 
des Commodore 64 vorgestellt: die Darstellung von Spri¬ 
tes. Sie werden lernen, wie ein Sprite entworfen und auf 
dem Bildschirm bewegt wird und auf welche Weise man seine 
Größe und Farbe ändern kann. 

Wenn Sie ein normales Fernsehbild aus geringer Entfer¬ 
nung genau betrachten, werden Sie erkennen, daß es aus 
einer großen Anzahl winziger Punkte zusammengesetzt ist. 

Auch das vom Computer erzeugte Bild besteht aus sol¬ 
chen Einzelpunkten. Man nennt sie sinngemäß »Bildpunkte«. 
Ein Bildpunkt ist das kleinste Bildelement, das der Computer 
auf dem Bildschirm darzustellen vermag. 


Kapitel 1 

Was ist ein Sprite? 


Ein Sprite ist nun eine bestimmte Konfiguration von Bildpunk¬ 
ten, die der C 64 über den Bildschirm bewegen kann. Es 
besteht in seiner Grundform aus 24 Zeilen zu je 21 Punkten, 
insgesamt also aus 504 Bildpunkten (Bild 1). 

Für jeden Bildpunkt dieser Matrix kann definiert werden, ob 
er sichtbar sein soll oder nicht. Damit lassen sich insgesamt 

2.207.107.920.000.000.000.000.000.000.000.000.000.000,000.000.000 

, 000 . 000 . 000 . 000 . 000 . 000 . 000 . 000 . 000 . 000 . 000 . 000 . 000 . 000 . 000.000 

. 000 . 000 . 000 . 000 . 000 . 000 . 000 . 000 . 000 . 000 . 000 . 000 . 000 . 000 . 000.000 

. 000 . 000.000 
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21 

Zöllen 


24 

Spolton 


504 

Plool 


Bild 1. 

Ein Sprite 
besteht aus 
einer Matrix 
mit 504 
Bildpunkten 



Bild 2. 

Ein Bild 
entsteht 
durch 
Sichtbar¬ 
machung 
einzelner 
Bildpunkte 
des Sprites 


128 

64 

32 

16 

8 

4 

2 

1 










Bild 3. Bitcodes zur Codierung einer Gruppe von 
acht Bildpunkten 


128 


64 


32 


16 


EH 


64 + 16 + 4 + 1 = 85 

Bild 4. Die Codierung eines Musters in einer Gruppe von 
acht Bildpunkten 


unterschiedliche Sprites darstellen. Ihrer Phantasie sind also 
keine Grenzen gesetzt. Eine dieser Möglichkeiten ist in Bild 
2 dargestellt. 

Um ein Sprite zu definieren, müssen Sie dem Computer 
mitteilen, welche Bildpunkte dargestellt werden und welche 
unsichtbar bleiben sollen. Dazu bildet man Gruppen von je¬ 
weils acht Bildpunkten und ordnet diesen Gruppen bestimm¬ 
te Zahlencodes zu. 

Betrachten Sie dazu Bild 3. Jedes der acht Kästchen stellt 
einen Bildpunkt dar und ist durch eine Nummer gekennzeich¬ 
net. Diese Nummer ist der Wert des Bildpunktes. So hat etwa 
der linke Bildpunkt den Wert 128 und der rechte Bildpunkt 
den Wert 1. 

Betrachten Sie nun Bild 4. Einige der Kästchen sind aus¬ 
gefüllt. Wenn Sie die Zahlen über den ausgefüllten Kästchen 
addieren, erhalten Sie die Summe 85: 64 + 16 + 4 + 1 
= 85. Bild 5 enthält weitere Beispiele zur Berechnung von 
Zahlencodes für derartige Gruppen von Bildschirmpunkten. 
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C 64 


GRAFIK 



Betrachten Sie nun das Sprite-Entwurfsblatt in Bild 6. Es 
enthält die erforderlichen 21 Zeilen zu je 24 Bildpunkten, 
wobei jede Zeile in drei Gruppen zu acht Bildpunkten einge¬ 
teilt und jeder Bildpunkt mit seinem Wert versehen ist. Zu¬ 
sätzlich enthält jede Zeile drei Felder, in welche die Zahlen¬ 
codes für die drei Gruppen zu jeweils acht Bildpunkten ein¬ 
getragen werden können. 

Da insgesamt 21 Zeilen zu je drei Zahlencodes vorhanden 
sind, wird ein Sprite also durch 63 Zählen definiert, die Zeile 
für Zeile von oben nach unten und von links nach rechts in 
den C 64 eingegeben werden müssen. Um nun ein Sprite zu 
definieren, gehen Sie folgendermaßen vor: 

1 Kopieren Sie sich das Sprite-Entwurfsblatt (Bild 6). 

2. Entwerfen Sie ein Sprite und zeichnen Sie es ein, indem 
Sie für jeden darzustellenden Bildpunkt das entspre¬ 
chende Kästchen ausfüllen. 

3. Berechnen Sie für jede Zeile die Zahlencodes für die drei 
Bildpunktgruppen und tragen Sie sie ein. 

4. Geben Sie die Zahlencodes in der richtigen Reihenfolge 
in den Computer ein. 

Bild 7 stellt ein ausgefülltes Entwurfsblatt für ein kleines 
Sprite-Männchen dar. Lesen Sie erst weiter, wenn Ihnen der 
Aufbau dieses Entwurfsbiattes vollständig klar ist und Sie die 
Berechnung der eingetragenen Werte nachvollziehen kön¬ 
nen. 

Eilen Sie nun zum nächsten Kopierautomaten und machen 
Sie sich Kopien von dem Sprite-Entwurfsblatt. Entwerfen Sie 
anschließend einige Sprites. Sind Sie mit einem Entwurf 
zufrieden, so berechnen Sie bitte die entsprechenden 63 
Zahlencodes. Sie benötigen die Daten im zweiten Kapitel. 



Bild 7. Beispiel für ein ausgefülltes Sprite-Entwurfsblatt 


Ihr erstes Sprite-Programm 


Beginnen Sie mit einem kleinen Programm zur Darstellung 
eines einfachen Sprites. Bild 8 zeigt den Programmaufbau, 
Listing 1 das Programm »Ein einfaches Sprite«. 

Versuchen Sie, den Programmablauf zunächst anhand des 
Ablaufplanes zu verstehen. Geben Sie dann das Programm 
ein. Speichern Sie das Programm, ehe Sie es starten. Durch 
die Betätigung einer beliebigen Taste wird das Programm 
beendet. 


1000 rem »** ein einfaches sprite *** <045> 
1010 : <224> 
1020 : <234> 
1030 rem *■» ausgabe pragrammel düng <013> 
1040 s <000> 
1050 print "Jclr,8dawnybitte warten"; <152> 
1060 ! ( <020> 
1070 : <030> 
10B0 rem -** sprite-daten einiesen <073> 
1090 : <050> 
1100 for n = 896 to 958 <018> 
1110 : pake n,255 <198> 
1120 next n , <22B> 
1130 : <090> 
1140 : <100> 
1150 rem »* sprite-steuerung <171> 
1160 : <120> 
1170 print "Cclri"; :rein bi 1 ds. loeschen <113> 
1180 poke 2040,14 :rem datenzeiger <111> 
1190 : <150> 
1200 vic = 53248 :rem vic-baustein <045> 
1210 pake vic,170 :rem horizont. pos. <1227 
1220 poke vic+1, 120 :rem vertikale pos. <24B> 
1230 pake vic+39,13:rem gruenes sprite <197> 
1240 poke vic+21,1 :rem sprite 0 ein <003> 

. Iggg = <210> 

126C <220> 
1270 rem ** präg.ende nach tastendruck <045> 
12B0 : <242> 
1290 get kp* <125> 
1300 if kp* = "" then 1290 <075> 
1310 s <016> 
1320 : <026> 
1330 rem *•* register zuruecksetzen <073> 
1340 : <046> 
1350 pake vic+21,0 :rem ruecksetzung <021> 
1360 poke vic+39,0 :rem in umgekehrter <119> 
1370 pake vic+1,0 :rem reihenfalge... <247> 
13B0 poke vic,0 <157> 
1390 : <096> 
1400 end <132> 


Listing 1. Das Programm »Ein einfaches Sprite« 

Der erste Programmteil besteht aus nur einer Zeile: 

1050 PRINT CHR$(147):PRINT "BITTE WARTEN"; 

Dieser Basic-Befehl löscht den Bildschirm und druckt die 
Programmeldung »BITTE WARTEN«, um dem Benutzeranzu¬ 
zeigen, daß der C 64 mit der Arbeit begonnen hat, denn 
nichts ist beunruhigender als ein Programm, das nach dem 
Start keinerlei Aktivitäten zeigt. 

Im zweiten Teil des Programms werden die 63 Sprite- 
Codes eingelesen: 

1100 FOR N = 896 TO 958 
1110 : POKE N, 255 
1120 NEXT N 

Für dieses erste Programm wurde das einfachste Sprite 
ausgewählt, das möglich ist: alle Bildpunkte werden 
angezeigt. Daher haben alle 63 Codes den Wert 255. Der 
zweite Programmteil, die Schleife von 1100 bis 1120, 
schreibt diesen Wert nacheinander in die Speicherzellen 
896 bis 958. 

In Teil 3 des Programms wird die Hauptarbeit geleistet. 
Betrachten Sie zunächst die Zeilen 1170-1200: 
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1170 PRINT CHR$(l47); :REM BILDS.LOESCHEN 

1180 POKE 2040,14 :REM DATENZEIGER 

1190 : 

1200 VIC = 53248 :REM VIC-BAUSTEIN 

Zeile 1170 löscht den Bildschirm. In Zeile 1180 wird dem 
Rechner dann mitgeteilt, wo die Sprite-Daten zu finden sind, 
nämlich in den Speicherzellen 896 bis 958. 

Wie ist das möglich? Der C 64 kann maximal acht Sprites, 
die von 0 bis 7 numeriert sind, gleichzeitig auf dem Bildschirm 
darstellen. Erhält er zum Beispiel den Befehl, Sprite 0 
anzuzeigen, so berechnet er die Adresse, ab der die Daten 
für Sprite 0 abgelegt sind, indem er den Wert aus 
Speicherstelle 2040 mit 64 multipliziert. Da das Programm in 
Zeile 1180 den Wert 14 in diese Zelle geschrieben hat, ergibt 
sich aus 14 x 64 = 896 die Anfangsadresse der Sprite- 
Daten. 

In Zeile 1200 erfolgt die Zuweisung des Wertes 53248 an 
die Variable VIC. Um welche Variable handelt es sich dabei? 
Hierzu müssen wir etwas weiter ausholen. 

Die erstaunlichen Grafikfähigkeiten des C 64 beruhen auf 
einem speziell entwickelten Grafikbaustein, dem 6567-VIC.II 
(Video Interface Chip II, eine Weiterentwicklung des 
6560-VIC aus dem Computer VC 20), kurz VIC.II genannt. 
Der VIC.II steuert die Textausgabe (40 Zeichen in 25 Zeilen) 
ebenso wie die hochauflösende Grafik (200 Zeilen zu 320 
Bildpunkten) und die Darstellung der acht Sprites. Nur wer 
noch die Anfänge der Computergrafik auf Heimcomputern 
miterlebt hat, kann ermessen, welchen Fortschritt der VIC.II 
darstellt. 

Zur Steuerung des VIC.II enthält dieser 47 adressierbare 
Speicherzellen, auch Register genannt. Die Anfangsadresse 
ist 53248, die Endadresse 53294. Nähere Angaben über 
die Register finden Sie im Anhang Ihres C 64-Handbuchs. 

Zeile 1200 weist also der Variablen VIC den Wert 53248 
zu. Damit können Sie jedes der 47 VIC-Register einfach 
adressieren, indem Sie die Registernummer (0-46) zu dem 
Wert von VIC addieren. Dies geschieht in den Zeilen 
1210-1240: 

1210 POKE VIC,170 :REM HORIZONT. POS. 

1220 POKE VIC+1,120 :REM VERITKALE POS. 

1230 POKE VIC+39,13 :REM GRUENES SPRITE 
1240 POKE VIC+21,1 :REM SPRITE 0 EIN 

Register 0 bestimmt die horizontale Position von Sprite 0. 
In Zeile 1210 wird dieser Wert auf 170 gesetzt. Die vertikale 
Position des Sprites steht in Register 1. Es erhält in Zeile 
1220 den Wert 120. Der Sprite-Anfang liegt damit nahe der 
Bildschirmmitte. Register 39 definiert die Farbe aller 
darzustellenden Bildpunkte von Sprite 0 und erhält den Wert 
13 für Hellgrün (eine Liste der verfügbaren Farben und ihrer 
Codes finden Sie ebenfalls im Anhang des Handbuches). 

Sie haben nun die Sprite-Daten eingelesen, dem C 64 
mitgeteilt, wo er diese Daten finden kann, die Sprite-Position 
zugeordnet und die Farbe der Bildpunkte festgelegt. Es fehlt 
nur noch die Anweisung zur Darstellung des Sprites. Diese 
Anweisung steht in Zeile 1240. Register 21 steuert die 
Anzeige der Sprites. Sobald es den Wert 1 erhält, wird Sprite 
0 auf dem Bildschirm angezeigt. 

Nun zum vierten Programmteil: 

1290 GET KP$ 

1300 IF KP$ = "" THEN 1290 

Zeile 1290 überprüft die Tastatur. In Zeile 1300 wird 
getestet, ob eine Taste betätigt worden ist. Wurde kein 
Zeichen eingegeben, verzweigt das Programm wieder nach 
Zeile 1290 und überprüft die Tastatur erneut. Wird schließlich 
eine Taste gedrückt, so beginnt das Programm mit dem 
fünften und letzten Programmteil. 



Bild 8. Zum besseren 
Verständnis: 

Der Ablaufplan für das 
Programm 

»Ein einfaches Sprite« 


Es ist allgemein ange¬ 
bracht, Dinge so zu hin¬ 
terlassen, wie man sie an¬ 
getroffen hat, insbeson¬ 
dere bei der Programmie¬ 
rung von Computern. In 
den Zeilen 1350-1380 
werden die VIC-Register 
wieder auf 0 zurückge¬ 
setzt: 


1350 POKE VIC+21,0 
:REM RUECKSETZUNG 
1360 POKE VIC+39,0 
:REM IN UMGEKEHRTER 
1370 POKE VIC+1,0 
:REM REIHENFOLGE... 
1380 POKE VIC,0 

Beachten Sie, daß die 
Register, im Vergleich zur 
Wertzuweisung in den 
Zeilen 1210-1240, in 
umgekehrter Reihenfolge 
zurückgesetzt werden. 

Sie lernen den Umgang mit Sprites am besten, indem Sie 
bereits vorhandene Programme testweise modifizieren und 
dann verfolgen, welche Änderungen auftreten. Hier sind 
einige Vorschläge für die Modifikation des Programms »Ein 
einfaches Sprite«: 

Ändern Sie den Sprite-Code in Zeile 1110. 

Ändern Sie die Positionsangaben in Zeile 1210 

und 1220. 

Ändern Sie den Farbcode in Zeile 1230. 

Bei allen Experimenten sollten Sie niemals das Original- 
Programm »Ein einfaches Sprite« auf der Kassette oder 
Diskette überschreiben, denn Sie werden es in den 
folgenden Abschnitten noch als Rahmenprogramm für 
weitere Versuche mit Sprites benötigen. Ansonsten können 
und sollen Sie mit diesem Programm ruhig alle Experimente 
anstellen, die Ihnen im Zusammenhang mit Sprites gerade in 
den Sinn kommen. Arbeiten Sie dabei ruhig mit Variablen und 
Programmschleifen. Beispielsweise könnten Sie in Zeile 
1230 für die Sprite-Farbe die Variable F verwenden, die Sie 
vorher per INPUT einiesen: 

»1230 INPUT F:P0KE VIC+39,F« 


Die Positionierung von Sprites 


Bei der Positionierung von Sprites teilen Sie dem Computer 
mit, an welcher Bildschirmposition der linke obere Bildpunkt 
des Sprites angezeigt werden soll. Der C 64 kann 200 Zeilen 
mit 320 Bildpunkten darstellen. Mit Hilfe der VIC-Register ist 
jedoch eine horizontale Positionierung bis zum Wert 512 und 
eine vertikale Positionierung bis zum Wert 256 möglich. Auf 
diese Weise können Sie Sprites in den Bildschirm hinein- 
oder herausgleiten lassen. 
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H - horizontale Position der linken oboron Ecko 

V - ve+kole Position der linken oberen Ecke 
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Bild 9. Einige wichtige horizontale und vertikale 
Bildschirmpositionen für Sprites in Normalgröße 


In Bild 9 sind die Koordinaten einiger Randpositionen dar¬ 
gestellt. Sprites mit vertikalen Positionswerten kleiner als 30 
liegen oberhalb des sichtbaren Bereichs. Sprites mit horizon¬ 
talen Positionswerten zwischen 24 und 320 liegen dagegen 
immer innerhalb des Bildschirmbereichs. 


Ein Sprite-Jo Jo 


Laden Sie bitte das Programm »Ein einfaches Sprite« (Listing 
1) und geben Sie dann die Zeilen aus Listing 2 ein. Dadurch 
werden einige Zeilen des Originalprogramms überschrieben 
und andere hinzugefügt. Benutzen Sie bitte genau die ange¬ 
gebenen Zeilennummern. Speichern und starten Sie dann 
das neue Programm. 


1000 

rem #*# ein sprite—jojo 

< 176> 

1220 

poke vic+1,80 treu vertikale pos 

<026> 

1251 

: 


<211 > 

1252 

rem runter, dann hoch 

< 143> 

1253 

: 

0 

<213> 

1254 

for vp = 

80 to 200 

< 112> 

1255 

: poke 

vic+1,vp 

<170> 

1256 

next vp 


< 177> 

1257 

: 


<217> 

1258 

f or vp = 

199 to 81 step -1 

<051 > 

1259 

: poke 

vic+1,vp 

< 174> 

1260 

next vp 


< 181 > 

1261 

: 


<221 > 

1262 

: 


<222> 

1300 

if kp* = 

then 1254 

< 139> 


Listing 2. Änderungen und Ergänzungen zur 
Umformung des Programms »Ein einfaches Sprite« 
in das Programm »Ein Sprite-JoJo« 


Das Sprite bewegt sich wie ein JoJo auf und ab. Dieser 
Effekt wird durch die Zeilen 1254-1256 bewirkt: 

1254 FOR VP = 80 TO 200 

1255 : P0KE VIC+1,VP 

1256 NEXT VP 

In dieser Schleife durchläuft die vertikale Position die Werte 
80 bis 200, wodurch sich das Sprite nach unten bewegt. In 
der anschließenden Schleife 1258-1260 wird diese 
Bewegung durch die vertikalen Positionswerte 199 bis 81 
dann wieder umgekehrt: 

1258 FOR VP = 199 T0 81 STEP -1 


Das Sprite bewegt sich wieder nach oben. Die neue Zeile 
1300 bewirkt, daß dieses Auf und Ab bis zur Betätigung einer 
beliebigen Taste fortgesetzt wird. 

1300 IF KP$ = "" THEN 1254 

Die Definition von 
512 horizontalen Positionen 


Sicherlich haben Sie sich bereits gefragt, wie man eine 
horizontale Position größer als 255 definieren kann, obwohl 
ein Register nur Werte von 0 bis 255 aufnimmt. 

Die Lösung ist einfach. Der VIC.II benutzt zur Festlegung 
der horizontalen Position eines Sprites nämlich nicht nur ein, 
sondern zwei Register, wobei das zweite allerdings kein voll¬ 
wertiges Register ist, da es nur die Werte 0 und 1 aufnehmen 
kann. Der Wert 1 bedeutet, daß eine horizontale Position grö¬ 
ßer als 255 angesteuert werden soll. In diesem Fall addiert 
der C 64 den Wert 256 zum aktuellen Wert des ersten Regi¬ 
sters. Enthält also zum Beispiel das erste Register den Wert 
33 und das zweite Register den Wert 1, so ergibt sich für die 
anzusteuernde horizontale Position der Wert 298 (265 + 
33). Enthält das zweite Register den Wert 0, so gilt nur der 
Wert des ersten Registers. Tabelle 1 zeigt einige Beispiele für 
horizontale Positionen zwischen 0 und 511. 


1. Horizontales 

Register 

2. Horizontales 

Register 

Sprite 

Position 

0 

0 

0 

24 

0 

24 

25 

0 

125 

255 

0 

255 

0 

1 

256 

20 

1 

276 

64 

1 

320 

88 

1 

344 

255 

1 

511 


Tabelle 1. Einige Werte der horizontalen Positions¬ 
register für Sprite-Positionen zwischen 0 und 511 


Horizontale Bewegungen 


Laden Sie bitte das Programm »Ein einfaches Sprite« (Listing 
1), und fügen Sie die Zeilen aus Listing 3 hinzu. Speichern 
und starten Sie dann das neue Programm. 


1000 rem ##* horizontale bewegung *** <172> 

1210 pake vic,64 :rem Horizont, pos. <095> 

1220 poke vic+1,139srem vertikale pos. <068> 

1251 : <211> 

1252 rem rechts, dann links <015> 

1253 : <213> 

1254 for hp = £.4 to 280 step 2 <129> 

1255 : sf = (hp > 255) <245> 

1256 : poke vic,hp + (sf * 256) <097> 

1257 : poke vic+16, st * (-1) <138> 

1258 next hp <067> 

1259 s <219> 

1260 tor hp = 278 to 66 step-2 <099> 

1261 s sf = (hp > 255) <251> 

1262,: poke vic,hp + (st * 256) <103> 

1263 : poke vic+16, st * (-1) <144> 

1264 next hp <073> 

1265 : <225> 

1266 : <226> 

1300 if kp* = then 1254 <139> 


Listing 3. Änderungen und Ergänzungen zur 
Umwandlung des Programms »ein einfaches Sprite« 
in das Programm »Horizontale Bewegung« 


1259 : POKE VIC+l.VP 

1260 NEXT VP 
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Ehe wir uns näher mit der Funktion der neuen 
Programmzeilen befassen, wollen wir noch einen kleinen 
Abstecher in die Welt der Logik unternehmen. 

Bevor Sie ein Sprite an eine neue horizontale Position 
bewegen, müssen Sie immer folgende Aussage mit »wahr« 
oder »falsch« bewerten: Der neue Positionswert ist größer als 
255. Von Ihrer Antwort hängt es ab, welcher Wert in das 
zweite horizontale Positionsregister geschrieben wird. 

Das Commodore-Basic bewertet wahre Aussagen mit dem 
Wert -1 und falsche Aussagen mit dem Wert 0. Dieser Wahr¬ 
heitswert kann einer Variablen zugeordnet werden. Dazu ein 
Beispiel: 

100 LET WW = (5 >3) 

Da 5 größer ist als 3, ist die Aussage (5 >3) wahr, undWW 
erhält den Wert -1. Ein weiteres Beispiel: 

100 LET WW = (36 = 21) 

In diesem Fall erhält WW den Wert 0, denn die Aussage 
(36 = 21) ist falsch. 

Das Sprite soll sich nun nach rechts bewegen. Durch eine 
kleine Änderung der Zeilen 1210-1220 beginnt diese 
Bewegung an einer neuen Position: 

1210 P0KE VIC,64 :REM HORIZONT. POS. 

1220 P0KE VIC+1,139:REM VERTIKALE POS. 

Betrachten Sie nun bitte die Zeilen 1254-1258: 

1254 F0R HP = 64 T0 280 STEP 2 

1255 : SF = (HP >255) 

1256 : P0KE VIC,HP + (SF * 256) 

1257 : P0KE VIC+16, SF * (-1) 

1258 NEXT HP 

Die Zeilen 1254-1258 bilden eine Schleife, in der die 
horizontale Position des Sprites in Zweierschritten die Werte 
von 64 bis 280 durchläuft. Bei jedem Schleifendurchgang 
wird dabei in Zeile 1255 geprüft,ob die neue Position den 
Wert 255 überschritten hat. Jeweils nach dem Wahrheits¬ 
wert der überprüften Aussage in Zeile 1255 erfolgt dann die 
Positionierung in Zeile 1256 durch Eintragung der entspre¬ 
chenden Werte in die beiden horizontalen Register. 

Hat zum Beispiel HP den Wert 125, dann erhält der 
Größenfaktor SF in Zeile 1255 den Wert 0. Somit schreibt 
Zeile 1256 den Wert 125 +(0*256), also die Zahl 125, in 
das erste horizontale Register des Sprites. Das zweite 
horizontale Register erhält in Zeile 1257 den Wert -1*0=0. 
Beide Register enthalten damit die richtigen Werte für eine 
horizontale Position, die kleiner ist als 256. 

Nun zu einer Position größer als 256. Hat HP beispielswei¬ 
se den Wert 276, dann erhält SF in Zeile 1255 den Wert -1. 
Somit schreibt Zeile 1256 die Zahl 276+(-1*256) = 
276-256 = 20 in das erste horizontale Register. Das zweite 
horizontale Register erhält in Zeile 1257 den Wert -1 *-1 = 1. 
Wiederum enthalten beide Positionsregister somit die 
richtigen Werte. 

Sollte Ihnen die Bedeutung der Zeilen 1245-1258 noch 
nicht ganz klar sein, so lesen Sie bitte noch einmal die letzten 
beiden Abschnitte, und überprüfen Sie die Formeln anhand 
einiger Werte aus Tabelle 1. 

Betrachten Sie nun die Zeilen 1260-1264. 

1260 F0R HP = 278 T0 66 STEP -2 

1261 : SF = (HP >255) 

1262 : P0KE VIC, HP + (SF * 256) 

1263 : P0KE VIC+16, SF * (-1) 

1264 NEXT HP 


Dieses Mal durchläuft die Schleife die horizontalen 
Positionswerte von 278 bis 66, wiederum in Zweierschritten. 
Das Sprite bewegt sich dadurch nach links. Die Zeilen 
1261-1263 sind mit den Zeilen 1255-1257 identisch, da 
sowohl bei der Links- als auch bei der Rechtsbewegung 
dieselben horizontalen Register benutzt werden. 

Schließlich haben Sie noch die Zeile 1300 verändert, um 
an den Anfang des für die horizontale Bewegung zuständigen 
Programmteils zu springen: 

1300 IF KP$ = "" THEN 1254 

Sprites vergrößern 


Das Sprite in dem Programm »Ein einfaches Sprite« ist etwas 
langweilig. Um es interessanter zu gestalten, laden Sie bitte 
das Programm aus Listing 1 noch einmal und fügen die in 
Listing 4 dargestellten neuen Zeilen und Änderungen hinzu. 
Nach Abschluß dieser Arbeit speichern Sie das Programm 
(Sprite-Entwurf) dann wie üblich und starten es anschlie¬ 
ßend. 

Anstelle des Quadrates erscheint jetzt die in Bild 7 
entworfene und codierte Figur. Betrachten Sie dazu die neue 
Ladeschleife für die Sprite-Daten in den Zeilen 1100-1120: 

1100 F0R N = 896 TO 958 
1105 : READ SPDTA 

1110 : P0KE N, SPDTA 

1120 NEXT N 

Im alten Programm haben Sie in jede Speicherzelle den 
Wer+ 255 geschrieben, wodurch alle Bildpunkte sichtbar 
wuroen. Nun benutzen Sie demgegenüber in Zeile 1005 eine 
READ-Anweisung, um die in DATA-Zeilen abgelegten 
Bildpunktdaten in die Variable SPDTA zu lesen und 
anschließend in den Speicher zu schreiben. 


1000 

rem sprxte- 

entwarf *** 


<227 > 

1105 

: read spdta 





< 056 > 

1110 

: pake 

i, 5pdta 




<0B8> 

1121 








<081 > 

1122 

data 

0 . 

60, 

0, 

0, 

36, 

0 

<104> 

1123 

data 

0 , 

102, 

24, 

0, 

102, 

56 

< 195 >■ 

1124 

data 

0 , 

36, 

56, 

0, 

60, 

16 

<223> 

1125 

data 

0, 

24, 

16, 

0, 

24, 

16 

<189> 

1126 

data 

15, 

255, 

240, 

B, 

126, 

0 

< 11 B> 

1127 

data 

s. 

126, 

0, 

B, 

24, 

0 

<037> 

1128 

data 

2B, 

24, 

0, 

28, 

24, 

0 

< 196> 

1129 

data 

24, 

60, 

0, 

0, 

60, 

0 

<020> 

1130 

data 

0, 

36, 

0, 

0 , 

36, 

0 

< 145 > 

1131 

data 

0, 

36, 

0, 

3, 

231 , 

192 

<216> 

1132 

data 

3, 

231, 

192 




<13B> 

1230 

pake 

vic+39,1 

: rem 

weisse färbe 

<242> 


Listing 4. Änderung zum Programm »Sprite-Entwurf« 


Betrachten Sie nun die elf DATA-Zeilen. Sie enthalten alle 
in Bild 7 berechneten Zahlencodes. Beachten Sie die 
Schreibweise der Daten: sie sind von links nach rechts, Zeile 
für Zeile, aus Bild 7 übernommen. 

Schließlich wird durch die neue Version von Zeile 1230 das 
Sprite in weißer Farbe dargestellt, wodurch es besser 
sichtbar ist. Da sowohl die Technik eines Farbfernsehers als 
auch die des Commodore 64 nicht vollkommen ist, sind 
bestimmte Farben auf einigen Hintergrundfarben 
unterschiedlich gut zu erkennen. Sie müssen eine Weile 
experimentieren, um eine günstige Farbkombination zu 
finden. 

Es gibt zwei Probleme im Zusammenhang mit dem letzten 
Programm. Erstens ist das Sprite zu klein, um in allen Details 
sichtbar zu sein, und zweitens ist dieser Entwurf nicht der Ihre. 
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Beginnen wir mit dem zweiten Problem. Zu Anfang dieses 
Kurses haben Sie mehrere Sprites entworfen und die 63 
Zahlencodes für Ihren besten Entwurf berechnet. Benutzen 
Sie nun diese hart erarbeiteten Daten. 

Laden Sie dazu das letzte Programm, »Sprite-Entwurf«, und 
lassen Sie sich die Zeilen 1122 bis 1132 ausgeben. Bewegen 
Sie dann den Cursor in die jeweilige Zeile und überschreiben 
Sie die alten Daten mit Ihren eigenen Bildpunktcodes. 

Nun zum ersten Problem. Der VIC.II-Baustein ermöglicht 
sowohl eine horizontale als auch eine vertikale Vergrößerung 
von Sprites. In vergrößerten Sprites sind die Einzelheiten 
besser sichtbar. Fügen Sie daher dem Programm »Sprite- 
Entwurf« die folgenden Zeilen hinzu und speichern Sie es 
anschließend. 

1000 REM *** EIN GROSSES SPRITE *** 

1233 POKE VIC+23,1 :REM VERLAENGERN 
1236 POKE VIC+29,1 :REM VERBREITERN 
1353 POKE VIC+29,0 
1356 POKE VIC+23,0 

Sobald Sie das Programm gestartet haben, werden alle 
Einzelheiten Ihres Entwurfes sichtbar. Klopfen Sie sich auf 
die Schulter, ehe Sie sich näher mit der Vergrößerung von 
Sprites befassen. 

Ein Sprite kann sowohl in doppelter Breite als auch in 
doppelter Höhe dargestellt werden. Das 30. VIC.II-Register 
mit der Adresse VIC+29 steuert die horizontale Vergröße¬ 
rung aller acht Sprites. Der Wert 1 in diesem Register bewirkt, 
daß Sprite 0 in doppelter Breite ausgegeben wird. Enthält das 
Register den Wert 0, so hat Sprite 0 seine normale Breite. 

Das 24. VIC.II-Register mit der Adresse VIC+23 steuert 
die vertikale Vergrößerung der acht Sprites. Wenn Sie eine 1 
in dieses Register schreiben, verdoppelt sich die Höhe von 
Sprite 0. Enthält das Register eine 0, wird Sprite 0 in normaler 
Höhe ausgegeben. 

Die Werte in den horizontalen und vertikalen Registern 
definieren auch für ein vergrößertes Sprite die Position seiner 
linken Ecke auf dem Bildschirm. Bild 10 zeigt einige wichtige 
Bildschirmpositionen für vergrößerte Sprites. Vergleichen 
Sie dieses Schema mit der Darstellung in Bild 9. 

In den Zeilen 1233 und 1236 des Programms »Ein großes 
Sprite« wird der Wert 1 in beide Vergrößerungsregister 
geschrieben: 

1233 POKE VIC+23,1: REM VERLAENGERN 
1236 POKE VIC+29,1: REM VERBREITERN 



O) CO 

II II 

X > 


H = 160 
V = 8 


H = 296 
V = 8 


H =488 

V = 50 

H =24 

V = 50 


H = 160 
V = 50 


H =296 
V = 50 

H = 344 

V = 50 


Sichtbarer Bereich 



H = 24 

V = 129 


H = 160 

V = 129 


H = 296 
V = 129 



H 

V 

Horizontale Position 0er knken oOeren Ecke 
- Vertikale Position der linken oöeren Ecke 


H =488 

V = 208 

H =24 

V = 208 


H = 160 

V = 208 


H =296 

V = 208 

H =344 

V = 208 


H = 24 

V = 250 


H =296 

V = 250 



Bild 10. Einige Positionswerte für Sprites doppelter Größe 


Dadurch vergrößert sich Sprite 0 in beide Richtungen. Am 
Ende des Programms, in den Zeilen 1353 und 1356, wird es 
durch den Wert 0 dann wieder auf seine Normalgröße zu¬ 
rückgesetzt: 

1353 POKE VIC+29,0 
1256 POKE VIC+23,0 

Zusammenfassung 


Im ersten Kapitel haben Sie gelernt: 

was Bildpunkte und was Sprites sind, 
wie Sie Ihr eigenes Sprite entwerfen und die zu¬ 
gehörigen 63 Zahlencodes berechnen können, 

- wie die Sprite-Daten zu laden und die VIC.II-Register zu 
definieren sind, um ein einfaches Sprite auf dem 
Bildschirm darzustellen, 

- wie die Position, Farbe und Größe eines Sprites 
anzugeben ist, 

wie ein Sprite in horizontaler und in vertikaler Richtung zu 
bewegen ist. 

Nun haben Sie Gelegenheit, Ihr bisher erworbenes Wissen 
zu überprüfen. Vervollständigen Sie bitte die Sätze im Selbst¬ 
test und programmieren Sie die in den Programmierübungen 
geforderten Ergänzungen und Änderungen. Benutzen Sie 
dann die in diesem Kapitel vorgestellten Techniken und Hin¬ 
weise, um eigene Programme zu schreiben. Nur Übung 
macht den Meister! 

Selbsttest 


iO U #* 1 ^■ 

Die Antworten zu diesem Selbsttest finden Sie im Anschluß 
an den Übungsteil. 

1. Ein Sprite besteht aus einem Muster von 504., das 

über den Bildschirm bewegt werden kann. 

2. Zur Codierung eines Sprite-Musters wird jede der 21 

Zeilen in drei Gruppen zu je.Bildpunkten aufgeteilt. 

3. Um ein Sprite sichtbar zu machen, müssen Sie 

bestimmte Werte in ein.des.-Bausteins schreiben. 

4. Die Positionsangabe für ein Sprite bestimmt genauge¬ 
nommen nur die Position der . Ecke des Sprite- 

Musters 

5. Durch eine Veränderung des . Positionswertes 

bewegt sich ein Sprite auf oder ab. 

6. Um die horizontale Position eines Sprites festzulegen, 

müssen Sie .... Positionsregister benutzen, da es . 

horizontale Positionen gibt. 

7. Durch die folgende Basic-Anweisung erhält die Variable 

TV den Wert.: 

10 LET TV = (17 < 5) 

8. Modifizieren Sie die Zeile 1230 des Programms »Sprite- 
Entwurf« derart, daß das Sprite in gelber Farbe darge¬ 
stellt wird. 

1230 . 

9. Ein Sprite kann in.und in.Richtung oder in bei¬ 

den Richtungen vergrößert werden. 

Programmierübungen 


Alle Aufgaben können durch Erweiterung oder Änderung des 
Programms »Ein einfaches Sprite« (Listing 1) gelöst werden, 
aber auch durch Neuprogrammierung. Selbstverständlich 
stellt auch jedes andere lauffähige Programm, daß den glei¬ 
chen Zweck erfüllt, eine Lösung dar. 
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1. Veranlassen Sie das Sprite, sich auf einer rechteckigen 
Bahn zu bewegen. 

2. Verändern Sie das Programm so, das sich hin und wieder 
die Farbe des Sprites ändert. 

3. Schreiben Sie eine Programmschleife, die das Sprite 
nacheinander in vier Größen darstellt: normal, verbrei¬ 
tert, verlängert und in beide Richtungen vergrößert. 

Antworten zum Selbsttest 


Hier sind die wohl zutreffendsten Antworten. Aber sicherlich 
sind auch andere sinnvolle Antworten möglich. 

1. Bildpunkte 

2. acht 

3. Register, VIC.il 

4. linken oberen 

5. vertikalen 

6. zwei, 512 

7. null 

8. 1230 POKE VIC+39,7 : REM GELBE FARBE 

9. horizontaler, vertikaler (vertikaler, horizontaler) 

Lösungsvorschläge für die 
Programmierübungen 


Die folgenden drei Lösungsvorschläge basieren auf dem Pro¬ 
gramm »Ein einfaches Sprite« aus Listing 1. Dargestellt sind 
die Zeilen, die geändert oder hinzugefügt werden müssen, 
um die Aufgabe zu erfüllen. 


1. Laden Sie das Programm »Ein einfaches Sprite« und 
geben Sie die folgenden Zeilen ein (Programm »Recht¬ 
eckbewegung«): 

1000 REM *#* RECHTECKBEWEGUNG *** 

1210 POKE VIC,82 :REM HORIZONT. POS. 

1220 POKE VIC+1,100 :REM VERTIKALE POS. 

1243 REM *# BEWEGUNG NACH RECHTS, UNTEN, 

1244 REM LINKS, DANN AUSGANGSPUNKT 

1246 REM (HORIZONTALE DREIERSPRUENGE 

1247 REM ZUR ANPASS. AN VERT.GESCH.) 

1249 F0R HP = 84 T0 261 STEP 3 :REM -> R 

1250 : SF = (HP > R 255) 

1251 : POKE VIC, HP + (SF * 256) 

1252 : POKE VIC+16, SF * (-1) 

1253 NEXT HP 

1255 F0R VP = 101 T0 179 :REM RUNTER 

1256 : POKE VIC+1, VP 

1257 NEXT VP 

1259 F0R HP = 258 T0 87 STEP -3 :REM <E- 

1260 : SF = (HP > R 255) 

1261 : POKE VIC, HP + (SF * 256) 

1262 : POKE VIC+16, SF * (-1) 

1263 NEXT HP 

1265 F0R VP = 178 T0 100 STEP -1 : REM 

1266 : POKE VIC+1, VP 

1267 NEXT VP 

1300 IF KP$ = "" THEN 1249 

2. Laden Sie das Programm »Ein einfaches Sprite« und 
geben Sie die folgenden Zeilen ein (Programm »Farb¬ 
wechsel«): 

1000 REM *** FARBWECHSEL #** 

1071 REM ** ANFANGSFARBE FESTLEGEN 


1073 0C =13 :REM START MIT GRUEN 
1230 POKE VIC+39,0C :REM ANFANGSFARBE 
1252 REM ** FARBEN WECHSELN 

1254 FOR DELAY = 1 TO 500 : NEXT 

1255 NC n 0 OC + 1 :REM FARBE NEU 

1256 IF NC=16 THEN NC=0 :REM FARBE 1-15 

1257 POKE VIC+39,NC :REM ALTE FARBE 

1258 0C = NC :REM NEUE FARBE 

1300 IF KP$ = "" THEN 1254 

3. Laden Sie das Programm »Ein einfaches Sprite« und 
geben Sie die folgenden Zeilen ein (Programm 
»Größenwechsel«): 

1000 REM *** GROESSENWECHSEL *** 

1252 REM ** HORIZONTALE VERGROESSERUNG 

1254 FOR PAUSE = 1 T0 400 : NEXT 

1255 POKE VIC+29,1 

1258 REM *# HORIZONTAL VERKLEINERN UND 

1259 REM VERTIKAL VERGROESSERN 

1261 FOR PAUSE = 1 TO 400 : NEXT 

1262 POKE VIC+29,0 

1263 POKE VIC+23,1 

1266 REM ** HORIZONTALE VERGROESSERUNG 

1268 FOR PAUSE = 1 TO 400 : NEXT 

1269 POKE VIC+29,1 

1272 REM #* HORIZONTAL VERKLEINERN UND 

1273 REM VERTIKAL VERKLEINERN 

1275 FOR PAUSE = 1 TO 400 : NEXT 

1276 POKE VIC+29,0 

1277 POKE VIC+23,0 

1280 REM #* PROGR.ENDE MIT TASTENDRUCK 
1282 IF KP$ = THEN 1254 

Kapitel 2: 

Mehrere Sprites 


ln diesem Kapitel lernen Sie, mehrere Sprites gleichzeitig auf 
dem Bildschirm darzustellen, aus den Daten eines Sprites 
mehrere identische oder unterschiedlich große Sprites zu 
erzeugen und zwei Sprites gleichzeitig über den Bildschirm 
gleiten zu lassen. 


Sprite-Kopien 


Der C 64 erlaubt die Darstellung mehrerer Sprites, auch 
wenn nur ein Satz von Sprite-Codes vorhanden ist. Wenn Sie 
ein solches Sprite in gleicher Größe an unterschiedlichen 
Bildschirmpositionen abbilden, sehen Sie vier Kopien des¬ 
selben Sprites. 

Listing 5 zeigt ein entsprechendes Programm, »Einfache 
Kopien«, das vier Kopien des in Bild 11 dargestellten Sprites 
erzeugt. 



Bild 11. 

Ein einfaches 
Sprite für den 
Kopiervorgang 
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Das Programm entspricht in seinem Aufbau dem Programm 
»Ein einfaches Sprite« aus Kapitel 1, mit dem Unterschied, 
daß jetzt Datenanzeiger, Positionsangaben und Farben für 
vier Sprites vorhanden sind. Geben Sie das Programm ein, 
speichern und starten Sie es. 

In Kapitel 1 haben Sie gelernt, daß Adresse 2040 dazu 
dient, dem Rechner mitzuteilen, an welcher Speicherstelle 
sich die Pixelcodes für Sprite 0 befinden. Die entsprechen¬ 
den Zeiger für die Sprites 1-7 stehen in den Adressen 2041 
bis 2047 (Tabelle 2). 


Adresse 

-> 

2040 

2041 

2042 

2043 

2044 

2045 

2046 

2047 

Zeigt auf 
Pixel-Daten 
für Sprite- 
Nummer —► 

0 

1 

2 

3 

4 

5 

6 

7 


Tabelle 2. Die Speicherzellen der Sprite-Datenzeiger 

Betrachten wir die wichtigen Abschnitte des Programms 
(Listing 8) einmal genauer. Die Zeilen 1000-1310 kommen 
Ihnen sicherlich bekannt vor. Die Rückmeldung des Pro¬ 
gramms wird ausgegeben, die Bildpunktdaten werden in die 
Speicherzellen 896-958 gelesen, der Bildschirm wird 
gelöscht, und die Variable VIC erhält die Anfangsadresse des 
VIC.II-Bausteins. 

Der erste Unterschied zum alten Programm liegt in den Zei¬ 
len 1330 bis 1360: 


1330 POKE 2040,14 
1340 POKE 2041,14 
1350 POKE 2042,14 
1360 POKE 2043,14 


REM DATENZEIGER 0 
REM DATENZEIGER 1 
REM DATENZEIGER 2 
REM DATENZEIGER 3 


54€H 


Statt eines Sprites sind vier Sprites darzustellen, wobei 
der Rechner jedesmal dieselben 63 Werte aus den 
Speicherzellen ab Adresse (14*64)=896 lesen soll. In den 
Zeilen 1380-1460 wird jedem Sprite eine horizontale und 
eine vertikale Bildschirmposition zugeordnet: 


1380 POKE 
1390 POKE 
1400 POKE 
1410 POKE 
1420 : 
1430 POKE 
1440 POKE 
1450 POKE 
1460 POKE 


VIC,98 
VIC+2,246 
VIC+4,98 
VIC+6,246 

VIC+1,95 

VIC+3,95 

VIC+5,184 

VIC+7,184 


:REM HORZNTL.POS. 0 
:REM HORZNTL.POS. 1 
:REM HORZNTL.POS. 1 
:REM HORZNTL.POS. 3 

:REM VERTKAL.POS. 0 
:REM VERTKAL.POS. 1 
:REM VERTCAL.POS. 2 
:REM VERTCAL.POS. 3 


Die Adresse VIC (53248) ist das Register für die horizon¬ 
tale Position von Sprite 0, und VIC + 1 (53249) das Register 
für die vertikale Position dieses Sprites. Entsprechend sind 
die anderen 14 Register den Sprites 1 bis 7 zugeordnet. 
VIC+2 (53250) ist das horizontale und VIC+3 (53251) das 
vertikale Register für Sprite 1 und am Ende steht VIC+ 15 
(53263), das vertikale Register für Sprite 7. 

Als aufmerksamer Leser werden Sie jetzt fragen: Wo bleibt 
das zweite horizontale Register für jedes Sprite? Wie Sie aus 
Kapitel 1 wissen, können diese Register nur den Wert 0 oder 
1 enthalten. Alle acht finden daher in einer Speicherstelle 
Platz, in der Adresse VIC+16 (53264). Sie werden diese 
Register später genauer kennenlernen. 

Farben zuordnen und Sprites anzeigen 


1000 

rem 

*** einfache kopien *** 


<209> 

1010 

: 




<224> 

1020 

s 




<234 > 

1030 

rem 

** ausgabe programmeldüng 


<013> 

1040 

: 




<000> 

1050 

print "Cclr,8down>bitte warten" 


<034> 

1060 

: 




<020> 

1070 





<030> 

10B0 

rem 

** sprite- 

daten laden 


<212> 

1090 

: 




<050> 

1100 

f or 

1 = 896 to 

958 


<018> 

1110 

: 

read spdta 


<061 > 

1120 


poke n, spdta 


<098> 

1130 

next 

n 



<238> 

1140 

: 




<100> 

1150 

data 

6 ,102, 

96, 6,102, 96 


< 14B> 

1160 

data 

6 ,102, 

96, 7,255,224 


<122> 

1170 

data 

15,255,240, 28, 0, 56 


< 157> 

1180 

data 

56, 0, 

28,113,195,142 


< 193> 

1190 

data 

225,195,135,193,195,131 


<090 > 

1200 

data 

192, 0, 

3,192, 0, 3 


< 164 > 

1210 

data 

192, 60, 

3,192, 0, 3 


<061 > 

1220 

data 

204, 0, 

51,198, 0, 99 


<101> 

1230 

data 

195,255,195,192, 0, 3 


<116> 

1240 

data 

224, 0, 

7,127,255,254 


< 004 > 

1250 

data 

63,255,252 


<168> 

1260 

r 




<220> 

1270 

: 




<230> 

1280 

rem ** sprite- 

register vorbereiten 

<000> 

1290 

: 




<252> 

1300 

print "vclrj" 

:rem schirm loesch 



- 




<079> 

1310 

vic = 53248 

:rem grafikbaustein 

<125> 

1320 

: 




<026> 

1330 

pake 

2040,14 

:rem datenseiger 

0 

<031 > 

1340 

pake 

2041,14 

:rem datenzeiger 

1 

<233> 

1350 

poke 

2042,14 

:rem datenzeiger 

2 

< 180> 

1360 

poke 

2043,14 

:rem datenzeiger 

3 

<126> 

1370 

: 




<076> 

1380 

poke 

vic,98 

:rem horzntl.pos. 

0 

<111> 

1390 

pake 

vic+2,246 

:rem horzntl.pos. 

1 

<061 > 

14f ' joke 

vic+4,98 

:rem horzntl.pos. 

2 

<065> 

1410 

poke 

vic-t-6,246 

:rem horzntl.pos. 

3 

<091 > 

1420 

: 



< 126> 

14o0 

poke 

vic+1,95 

:rem vertkal.pos. 

0 

<180> 

1440 

poke 

vic+3,95 

:rem vertkal.pos. 

1 

< 193> 

1450 

poke 

vic+5,184 

:rem vertkal.pos. 

2 

<202> 

1460 

poke 

vic+7,184 

srem vertkal.pos. 

3 

<217> 

1470 

: 



<176> 

1480 poke 

vic+39,1 

:rem 0 ist weiss 


<064> 

1490 

poke 

vic+40,3 

:rem 1 ist hellbl 

au 

<0B9> 

1500 

poke.vic+41,5 

:rem 2 ist gruen 


<015> 

1510 

poke 

vic+42,7 

5 rem 3 ist gelb 


<205> 

1520 

S 




<226> 

1530 

poke 

vic+21,15 

: rem sprites 0-3 

an 

< 180 > 

1540 

: 




<248> 

1550 

s 




< 002 > 

1560 

rem ** präg.ende mit tastendruck 


<071 > 

1570 

: 




<022> 

1580 

get kp* 



< 161 > 

1590 

Jf kp*- = then 1580 


<119> 

1600 

: 




<052> 

1620 

rem ** ruecksetzen des registers 


<207> 

1630 

: 




<082> 

1640 

poke 

vic+ 21,0 



< 140> 

1650 

: 




< 102 > 

1660 

end 




< 13B> 


Listing 5. Ausdruck des Programms »Einfache Kopien« 


1480 POKE VIC+39,1 
1490 POKE VIC+40,3 
1500 POKE VIC+41,5 
1510 POKE VIC+41,7 


:REM 0 IST WEISS 
:REM 1 IST HELLBLAU 
:REM 2 IST GRUEN 
:REM 3 IST GELB 


Wie Sie sicherlich vermutet haben, enthalten die acht 
aufeinanderfolgenden Register VIC+39 (53287) bis 
VIC+46 (53294) die Farbcodes für die einzelnen Sprites. 
Zeile 1530 sorgt schließlich für die Ausgabe der Sprites 0,1, 
2 und 3 auf dem Bildschirm: 


Die Zuordnung der Farben erfolgt in den Zeilen 1480-1510: 1530 POKE VIC+21 ,15 :REM SPRITES 0-3 
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Welcher Zusammenhang besteht aber zwischen der Zahl 
15 und den Nummern 0, 1, 2 und 3 der Sprites? Zur 
Beantwortung dieser Frage ist ein Ausflug in die Welt der Bits 
und Bytes erforderlich. 

Bits und Bytes 


Vielleicht haben Sie sich schon bei der Einteilung der 
Bildpunktzeilen eines Sprites in Gruppen zu je acht 
Bildpunkten gefragt, warum es gerade acht Bildpunkte sein 
müssen und nicht neun, zehn oder 24. 

Der Grund liegt in der Art und Weise, in der Computer wie 
der C 64 Zahlen verarbeiten. Der Rechner kennt eigentlich 
nur die beiden Werte 0 und 1. Ein Zahlensystem, in dem alle 
Zahlen nur durch diese beiden Werte ausgedrückt werden, 
nennt man Binärsystem. 

Die beiden binären Zeichen 0 und 1 heißen »Bits«. Eine 
Gruppe von acht Bits bezeichnet man als ein »Byte«. Jede der 
Speicherzellen des C 64, auch die Register, können jeweils 
ein Byte aufnehmen. Die Bilder 12 und 13 zeigen die 
Darstellung einiger Bytes. Mit 8 Bit lassen sich die Zahlen von 
0 bis 255 darstellen. 


der entsprechenden Bitposition ein und für jedes Byte, das 
unsichtbar bleiben soll, eine 0. Die Addition der Codes aller 
Bits, deren Wert 1 ist, ergibt dann die gesuchte Zahl, deren 
binäre Darstellung die Reihe der eingetragenen 0/1 -Werte ist. 

Einige Beispiele dazu finden Sie in Bild 15. Die Tabelle ent¬ 
hält auch den im Programm »Einfache Kopien« benutzten 
Wert. Es sollen dort die Sprites 0-3 sichtbar gemacht wer¬ 
den. Dazu müssen Sie die Bits 0 bis 3 auf 1 setzen. Die Addi¬ 
tion der entsprechenden Bitcodes ergibt (8 + 4 + 2 + 1) = 
15. Damit ist das Geheimnis der Zahl 15 in Zeile 1530 gelüf¬ 
tet. 


Bit-Code -► 

128 

64 

32 

16 

8 

4 

2 

1 

Ein beliebiges 
Byte 

1 

or 

0 

1 

or 

0 

1 

or 

0 

1 

or 

0 

1 

or 

0 

1 

or 

0 

1 

or 

0 

1 

or 

0 

Bit- 

Nummer 

7 

6 

5 

4 

3 

2 

1 

0 


Bild 14. Ein Byte mit seinen numerierten 8 Bit, 
den Bit-Codes und den möglichen Bitwerten 


Bild 12. 
Ein Byte 
besteht 
aus 8 Bit 


Viele der VIC.II-Register ermöglichen die gleichzeitige 
Steuerung aller acht Sprites, da jeweils eines der 8 Bit pro 
Register einem Sprite zugeordnet ist und somit eine Art 
Miniaturregister darstellt. 

So ist zum Beispiel das Register VIC + 21 (53269) das 
Zentralregister zur Steuerung der Sprite-Anzeige. Jedes Bit 
dieses Registers ist einem Sprite zugeordnet und bestimmt, 
ob das Sprite sichtbar ist oder nicht. 


Zahl 

255 

240 

128 

127 

60 

15 

1 

0 

Byte- 

Schroibwolso 

11111111 

11110000 

10000000 

01111111 

00111100 

00001111 

00000001 

00000000 


Bild 13. In einem Byte können die Dezimalwerte 
(Basis 10) von 0 bis 255 in binärer Form (8 Bit) 
dargestellt werden 


Sichtbare 

Sprites 

Unsicht¬ 

bare 

Spntes 

Rogrsterbyte 

(Jedes 84 steuert das Sprite 
mit der gleichen Nummer) 

Werl für den 
POKE-Befehl 

- 

0-7 

Bit- 



0 

Code 

B*t- 

128 

64 

32 

16 

8 

4 

2 

1 


0 

0 

0 

0 

0 

0 

0 

0 

7 

6 

5 

4 

3 

2 

1 

0 

Nummer 



0 

1-7 




1 = 

1 

Bc 

Bn 

128 

64 

32 

16 

8 

4 

2 

1 


0 

0 

0 

0 

0 

0 

0 

1 

7 

6 

5 

4 

3 

2 

1 

0 




0.1 

2-7 




1 + 2 = 

3 

Bc 

Bn 

128 

64 

32 

16 

8 

4 

2 

1 


0 

0 

0 

0 

0 

0 

1 

1 

7 

6 

5 

4 

3 

2 

1 

0 




0-3 

4-7 




1+2+4+8= 

15 

Bc 

Bn 

128 

64 

32 

16 

8 

4 

2 

1 


0 

0 

0 

0 

1 

1 

1 

1 

7 

6 

5 

4 

3 

2 

1 

0 




0.2. 

4.6 

1.3. 

5.7 



1+4+16+ 

64 = 

85 

Bc 

Bn 

128 

64 

32 

16 

8 

4 

2 

1 


0 

1 

0 

1 

0 

1 

0 

1 


7 

6 

5 

4 

3 

2 

1 

0 




0-7 

- 



1+2+4+8+ 
16+32+64 
+ 128= 

255 

Bc 

Bn 

128 

64 

32 

16 

8 

4 

2 

1 


1 

1 

1 

1 

1 

1 

1 

1 


7 

6 

5 

4 

3 

2 

1 

0 





Bild 15. Beispiel zur Steuerung der Sprites 


Das ist ein Byte (8 Bits) 

f -~ "\ 

10101100 

/ t 

Das ist ein Bit 


Die 8 Bit eines Bytes werden von rechts nach links durch¬ 
numeriert, erhalten also die Nummern 0 bis 7. In Register 
VIC + 21 steuert Bit 0 das Sprite 0, Bit 1 das Sprite 1 und so 
weiter. Um ein bestimmtes Sprite sichtbar werden zu lassen, 
genügt es, das entsprechende Bit auf den Wert 1 zu setzen. 
Um es wieder verschwinden zu lassen, setzen Sie das Bit 
wieder auf 0. 

Um also die vier Sprites 0 bis 3 anzuzeigen, muß in das 
Anzeige-Zentralregister VIC + 21 eine Zahl geschrieben wer¬ 
den, deren Binärwert viermal die 1 (für die Bits 0,1, 2 und 3) 
und viermal die 0 (für die Bits 4 bis 7) enthält. Sie können 
dazu ebenfalls die Tabelle 1 benutzen. 

Bild 14 zeigt ein Byte mit den numerierten Bits, ihren Codes 
sowie den beiden möglichen Bitwerten. Um den richtigen 
Zahlenwert zur Steuerung der Sprites zu erhalten, tragen Sie 
zunächst für jedes Sprite, das sichtbar werden soll, eine 1 an 


Die restlichen Zeilen des Programms »Einfache Kopien« 
sind Ihnen bereits bekannt. In den Zeilen 1580-1590 wartet 
der Rechner auf einen Tastendruck. Sobald eine Taste betä¬ 
tigt wird, setzt Zeile 1640 die Sprite-Register zurück. Dabei 
zeigt sich eine kleine Besonderheit: nicht jedes Register muß 
zurückgesetzt werden. 

Welche Register sollten Sie wieder auf 0 setzen? Zunächst 
das Zentralregister VIC+21, falls alle Sprites wieder ver¬ 
schwinden sollen. Wenn Sie ein Sprite verbreitert oder ver¬ 
längert haben, ist es angebracht, auch die entsprechenden 
Register VIC + 23 und VIC+29 wieder auf 0 zu setzen. 
Dadurch vermeiden Sie, daß ein Sprite ungewollt in vergrö¬ 
ßerter Form dargestellt wird. 

Den durch das vorangegangene Programm erzeugten vier 
Sprites lag zwar der gleiche Satz von Zahlencodes zugrunde, 
sie wurden jedoch in unterschiedlichen Farben dargestellt. 
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Weitere Unterschiede lassen sich durch Verlängern oder 
Verbreitern erzeugen. 

Modifizierte Sprite-Kopien 


Wie Sie aus Kapitel 1 wissen, steuert das Register 
VIC+29 die Verbreiterung der Sprites. Jedem Bit des Regi¬ 
sters ist ein Sprite zugeordnet. Um zum Beispiel die Sprites 
2 und 3 zu verbreitern, müssen Sie Bit 2 und 3 des Registers 
auf 1 setzen. Mit Hilfe von Bild 14 finden Sie für die in das 
Register einzugebende Zahl den Wert (8 + 4) = 12. Dieser 
Wert ist in Tabelle 3 dargestellt. 


Bit-Code fr 

128 

64 

32 

16 

8 

4 

2 

1 

Bit fr 

0 

0 

0 

0 

1 

1 

0 

0 

Bit- 

Nummer 

7 

6 

5 

4 

3 

2 

1 

0 


8+4 =12 

Tabelle 3. Die Eingabe des Wertes 12 in das horizontale 
Vergrößerungsregister setzt Bit 2 und 3 auf 1 und be¬ 
wirkt die horizontale Vergrößerung der Sprites 2 und 3 

Das Register VIC+23 steuert in gleicher Weise die Verlän¬ 
gerung von Sprites. Um beispielsweise Sprite 1 und 3 zu ver¬ 
längern, müssen Sie Bit 1 und 3 auf 1 setzen. Der entspre¬ 
chende Zahlenwert für das Register ist (8 + 2) = 10. Er ist 
in Tabelle 4 dargestellt. 


1522 POKE VIC+23,10 :REM 1 & 3 SCHMAL 
1524 POKE VIC+29,12 :REM 2 & 3 BREIT 

Sprite 0 bleibt unverändert. Sprite 1 wird verlängert und 
Sprite 2 verbreitert. Sprite 3 wird sowohl verlängert als auch 
verbreitert. Ein Tastendruck beendet das Programm und 
setzt das Vergrößerungsregister auf 0 zurück. 

In den meisten Fällen werden Sie Sprites unterschiedlicher 
Struktur benötigen. Dazu müssen Sie für jedes Sprite eine 
eigene Datengruppe (Bildpunktcodes) laden, und es stellt 
sich die Frage, wo die jeweils 63 Zahlen am besten 
unterzubringen sind. 

Wenn Sie nur drei oder weniger Sprites darstellen wollen, 
stehen folgende Speicherbereiche zur Verfügung: 
832-894, 896-958, 960-1022. Dieser gesamte Bereich ist 
der Puffer für den Kassettenrekorder und wird während des 
Programmlaufes nicht benutzt. Falls Sie den Kassettenpuffer 
benutzen, müssen die Datenzeiger der entsprechenden 
Sprites (2040-2047) die Anfangsadresse des jeweiligen 
Datenblocks, geteilt durch 64, enthalten. Für den 
Kassettenpuffer sind dies die Werte 13, 14 und 15. 

Für die Daten von mehr als drei Sprites empfiehlt sich der 
Speicherbereich ab Adresse 12288. Tabelle 5 zeigt die 
jeweiligen Anfangsadressen pro Block sowie die 
zugehörigen Werte für die Datenzeiger. Dem fortgeschritte¬ 
nen Systemprogrammierer des C 64 stehen zwar noch wei¬ 
tere Speicherbereiche zur Verfügung, deren Manipulation ist 
jedoch nicht Thema dieses Buches. 


Bit- 

Nummer 


128 

64 

32 

16 

8 

4 

2 

1 

0 

0 

0 

0 

1 

0 

1 

0 

7 

6 

5 

4 

3 

2 

1 

0 


63-Byte 
Speicher¬ 
bereich - 

Daten- 

zeige- 


12288 

12352 

12416 

12480 

12544 

12608 

12672 

12736 

12350 

12414 

12478 

12542 

12606 

12670 

12734 

12798 

192 

193 

194 

195 

196 

197 

198 

199 


8+2 =10 

Tabelle 4. Die Eingabe des Wertes 10 in das vertikale 
Vergrößerungsregister setzt Bit 1 und 3 auf 1 und 
bewirkt die vertikale Vergrößerung der Sprites 1 und 3 

Sie besitzen nun das nötige Rüstzeug, um das Programm 
»Einfache Kopien« zu modifizieren. Laden Sie es und fügen 
Sie die Zeilen aus Listing 9 hinzu. Damit erhalten Sie das Pro¬ 
gramm »Modifizierte Kopien«. Speichern und starten Sie das 
neue Programm. 

Der Bildschirm zeigt nun vier Sprites, die alle aus derselben 
Datengruppe erzeugt werden und die sich doch alle vonein¬ 
ander unterscheiden. Die neuen Zeilen 1400, 1410, 1440 
und 1460 verteilen die Sprites auf dem Bildschirm, und die 
beiden Zeilen 1522 und 1524 sorgen für eine Vergrößerung 
entsprechend den beiden genannten Beispielen: 


1000 

rem*** unterschiedliche kopien *** 

<10B> 

1400 

poke 

vic+4,86 

: rem 

harzntl.pos. 

2 

<055> 

1410 

pake 

vic+6,243 

: rem 

horzntl.pos. 

3 

<067> 

1440 

poke 

vic+3,85 

: rem 

vertkal.pos. 

1 

< 191 > 

1460 

poke 

väc+7,174 

: rem 

vertkal.pos. 

3 

<213> 

1522 

poke 

vic+23,10 

s rem 

1 & 3 schmal 


<197> 

1524 

poke 

vic+29,12 

s rem 

2 8-3 breit 


< 046 > 

1526 

: 





<232> 

1642 

poke 

vic+23,0 




<144> 

1644 

poke 

vic+29,0 




<152> 


Tabelle 5. Die für die Speicherung von SpriteDaten 
geeigneten Bereiche und die entsprechenden Werte 
der Datenzeiger 

Zwei unterschiedliche Sprites 


Worin wird sich ein Programm, das zwei unterschiedliche 
Sprites auf dem Bildschirm darstellt, von dem Programm 
»Sprite-Entwurf« aus Kapitel 1 unterscheiden? 

Erstens muß es statt einem zwei Datenblöcke laden, 
zweitens die Datenzeiger in Adresse 2040 und 2041 auf die 
Speicherbereiche mit den geladenen Daten richten, und 
drittens muß es die entsprechenden Werte für die Position, 
Größe und Farbe jedes Sprites in die VIC.II-Register 
schreiben. Schließlich sind noch beide Sprites sichtbar zu 
machen. 

Bild 16 zeigt zwei neue Sprite-Entwürfe. Listing 7 enthält 
das Programm »Ein Sprite-Paar«, das die beiden Figuren auf 
dem Bildschirm darstellt. Geben Sie das Programm ein und 
speichern Sie es. Anschließend können Sie das Programm 
starten und Ihren Vorstellungen entsprechend modifizieren. 


Listing 6. Änderungen und Erweiterungen zur 
Umwandlung des Programms »Einfache Kopien« in 
das Programm »Unterschiedliche Kopien« 



Bild 16. Die zwei neuen Sprites für »Ein Sprite-Paar« 
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Das Programm enthält keine neuen Anwendungen. Zeile 
1050 löscht den Bildschirm und gibt die Programmeldung 
aus. Zwei Schleifen laden dann die jeweils 63 Daten der bei¬ 
den Sprites. Der erste Datenblock wird in den Speicherbe¬ 
reich 896-958 geschrieben. Das Programm signalisiert den 
Abschluß dieses Ladevorgangs, indem es in Zeile 1140 einen 
Punkt hinter die Programmeldung setzt. Ein weiterer Punkt 
wird in Zeile 1200 ausgegeben, nachdem der zweite Daten¬ 
block in den Bereich 960-1022 geschrieben worden ist. Die 
Daten beider Sprites sind übrigens mit Hilfe des Entwurfs¬ 
blattes aus Bild 6 berechnet worden. 

Das Programm setzt dann die Datenzeiger und VIC.II- 
Register. Um die Einzelheiten beider Sprites besser erkenn¬ 
bar zu machen, werden beide in doppelter Größe dargestellt. 
Zeile 1660 setzt die Bits 0 und 1 des Registers VIC + 21 auf 
1 und macht die beiden Sprites 0 und 1 damit sichtbar. Soll¬ 
ten Sie sich nicht mehr klar darüber sein, warum dazu der 
Wert 3 benutzt wird, so lesen Sie bitte noch einmal das Kapi¬ 
tel 1. 

Die Zeilen 1700-1710 warten auf den üblichen Tasten¬ 
druck, um das Programm zu beenden, und die Zeilen 
1770-1790 setzen die Anzeige- und die Vergrößerungsregi¬ 
ster auf den Wert 0 zurück. 

Die gleichzeitige Bewegung 
mehrerer Sprites 


Es gibt viele Methoden, um mehrere Sprites zu gleicher Zeit 
über den Bildschirm zu bewegen. Einige sind einfach zu pro¬ 
grammieren, andere schwierig. Einige benötigen viel Spei¬ 
cherplatz, andere wenig. Einige ermöglichen nur geradlinige, 
ande r beliebige Bewegungen. Einige erzeugen schnelle 
und zusammenhängende, andere nur langsame und ruckar¬ 
tige Bewegungen. Einige sind sehr leicht nachzuvollziehen, 
andere sind trickreich und schwer verständlich. 

Das Beispiel in diesem Kapitel ist ein Mittelding. Es ist nicht 
zu schwierig, liefert aber trotzdem ein beachtliches Resultat. 
Um die beiden Sprites zu veranlassen, sich im Kreis herum¬ 
zujagen, laden Sie bitte zuerst das Programm »Ein Sprite- 
Paar« und geben dann die in Listing 8 dargestellten Zeilen 
zusätzlich ein. Speichern und starten Sie dann das neue Pro¬ 
gramm. 

Die beiden Sprites bewegen sich in diesem Programm auf 
einer quadratischen Bahn in der Bildschirmmitte. Die Seiten¬ 
länge dieses Quadrates beträgt 100 Bildpunkte. Seine Eck¬ 
punkte sind somit in jeder Richtung 50 Bildpunkte vom Mittel¬ 
punkt entfernt. Damit ein Sprite doppelter Größe in der Bild¬ 
schirmmitte dargestellt werden kann, muß seine horizontale 
Position 160 und seine vertikale Position 129 betragen. 
Durch Addition beziehungsweise Subtraktion von 50 wird 
das Sprite also an einen der Eckpunkte des Bahnquadrates 
versetzt. Die Positionswerte für die vier Eckpunkte sind in 
Bild 17 dargestellt. 

Sprite 0 beginnt seinen Weg in der linken oberen Ecke und 
Sprite 1 gegenüber in der rechten unteren Ecke. Sprite 0 
bewegt sich nach unten, nach rechts, nach oben und dann 
nach links. Sprite 1 bewegt sich nach oben, nach links, nach 
unten und dann nach rechts. Betrachten Sie bitte Bild 18. Es 
zeigt vier unterschiedliche Bahnpositionen für die beiden 
Sprites. Bei Bild 1 handelt es sich um die Startposition. Die 
Pfeile geben die Bewegungsrichtung an. Beachten Sie, daß 
beide Sprites stets auf gegenüberliegenden Bahnen laufen, 
jedoch immer in entgegengesetzter Richtung. Diese Bewe¬ 
gungssymmetrie erleichtert die Programmierung erheblich. 

Auch bei diesem Beispiel sollten Sie wieder eigene Experi¬ 
mente und Modifikationen am Programm vornehmen und 
Listing 7. Ausdruck des Programms »Ein Sprite-Paar« deren Wirkung beobachten. 


1000 

rem *** ein sprite- 

paar *** 

<255> 

1010 

: 





<224> 

1020 

: 





<234> 

1030 

rem *# ausgabe 

programmeldung 

<013> 

1040 

: 





<000:- 

1050 

print 

"xclr,BdDwn)bitte warten"; 

<152> 

1060 

: 





<020> 

1070 

: 





< 030 ;■ 

1080 

rem ** sprite-daten 

1 aden 


< 212 > 

1090 

: 





<050> 

1 100 

f or n 

= 896 to 

958 

: rem 

1 -sprite 

<124> 

1105 

: read spdta 




< 056 > 

1110 

: poke n, spdta 



< 088 > 

1130 

next 

n 




<238> 

1140 

print 

u M. 

■ 9 


: rem 

pktausgb 

< 121 > 

1150 

: 





<110> 

1160 

f or n 

= 960 to 

1022 :rem 

2.sprite 

<210? 

1165 

: read spdta 




<116> 

1170 

: poke n, spdta 

0 


< 148 > 

1 190 

nex t 

n 




<042> 

1200 

print". 


: rem 

pktausgb 

< 181 > 

1210 

: 





<170> 

1220 

data 

0, 28, 

0, 

07 62, 

0 

< 252 > 

1230 

data 

0, 62, 

0, 

0. 62, 

0 

<004> 

1240 

data 

0, 28, 

0, 

0, 8, 

0 

<0B8> 

1250 

data 

0,255,128, 

0,255, 

128 

< 109> 

1260 

data 

0,190,128, 

0,156, 

128 

<087> 

1270 

data 

0,136,128, 

0,190, 

128 

<21B> 

1280 

data 

0,190,128, 

1,156, 

192 

<060> 

1290 

data 

1,148,192, 

0, 20, 

0 

<243> 

1300 

data 

0, 20, 

0, 

0, 20, 

0 

< 204 > 

1310 

data 

0, 54, 

0, 

0,119, 

0 

<184> 

1320 

data 

0,119, 

0 



<029> 

1330 

: 





<036> 

1340 

data 

0, 28, 

0, 

0, 62, 

0 

< 118> 

1350 

data 

0, 62, 

0, 

0,127, 

0 

<030> 

1360 

data 

0, 93, 

0, 

0, 8, 

0 

< 113> 

1370 

data 

0,127, 

07 

0,127, 

0 

<090> 

1380 

data 

0, 93, 

07 

0, 73, 

0 

< 109 > 

1390 

data 

0, 93, 

0. 

0,127, 

0 

<231> 

1400 

data 

0,255,128, 

0, 62, 

0 

<079> 

1410 

data 

0, 62, 

07 

0, 20, 

0 

<050? 

1420 

data 

0, 20, 

0, 

0, 20, 

0 

<06B> 

1430 

data 

0, 20, 

0, 

0, 54, 

0 

<254> 

1440 

data 

0,119, 

0 



<149> 

1450 

: 





<156? 

1460 

s 





<166> 

1470 

rem ** sprite-register vorbereiten 

< 190> 

1480 

: 





<186> 

1490 

print "Cclri" 


:rem schirm loesch 



. 





<013> 

1500 

vic = 

53248 

:rem grafikbaustein 

<059? 

1510 






<216> 

1520 

poke 

2040,14 

:rem datenzeiger 0 

<221? 

1530 

poke 

2041,15 

:rem datenzeiger 1 

< 169> 

1540 

: 





<248> 

1550 

poke 

vic,124 

:rem horzntl-pos. 0 

<150? 

1560 

poke 

vic+2,173 

:rem horzntl-pos. 1 

<219> 

1570 

poke 

vic+1,150 

:rem vertkal.pos. 0 

<014? 

1580 

poke 

vic+3,150 

:rem vertkal.pos. 1 

<029? 

1590 

: 





<042? 

1600 

poke 

vic+39,3 

:rem 0 ist 

heilblau 

<049> 

1610 

poke 

vic+40,7 

:rem 1 ist 

gelb 

<241 > 

1620 

: 





<072> 

1630 

poke 

vi 023,3 

:rem beide 

sprites 

<139? 

1640 

poke 

vic+29,3 

:rem dopp. 

groesse 

<165? 

1650 

: 





<102? 

1660 

poke 

vic+21,3 

:rem beide 

sichtb. 

<184? 

1670 

: 





<122> 

1680 

5 





<132? 

1690 

rem ** prog.ende mit tastendruck 

<201? 

1700 

: 





<152? 

1710 

get kp* 




<035? 

1720 

if kp* = "" then 1710 


<153? 

1730 

: 





<182? 

1740 

: 





<192? 

1750 

rem ** ruecksetzen 

des registers 

<081 > 

1760 

: 





<212? 

1770 

poke 

vic+21,0 

:rem sprites aus 

<176> 

1780 

poke 

vic+29,0 

srem und wieder 

< 006 > 

1790 

poke 

vic+23,0 

:rem normalgroesse 

<209? 

1800 

: 





<254? 

1810 

end 





<034> 


68 
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1000 

rem *** ein sprite-jagd *•** 


*< 161 > 

1550 

poke vic ,110 :rem horzntl.pos. 

0 

<141> 

1560 

poke vic+ 2,210 :rem horzntl.pos. 

i 

<173> 

1570 

poke vic+1,79 :rem vertkal.pos. 

0 

<078> 

13B0 

poke vic+3,179 :rem vertkal.pos. 

i 

<109> 

1662 

: 


<114> 

1664 

E 


< 116> 

1666 

rem ** sprite-bewegung vorbereiten 

<071 > 

1667 

s 


<119> 

1668 

d0 “ 1 s dl ■ -1 


<240? 

1670 

s 


< 122> 

1672 

: 


< 124> 

1674 

rem #* vertikale bewegung 


<058> 

1676 

: 


<128? 

1678 

■for move B 1 to 100 


<052> 

1680 

: poke vic+1, peek<vic+1> + d0 


<205? 

1682 

s pake vic+3, peek(vic+3> + dl 


<227 > 

1684 

s get kp$ 


<092> 

1686 

s i-f kp$ = "" then 1690 


<040 

1688 

: mave =100 : keypress = -1 


<009> 

1690 

next move 


<040 

1692 

: 


<144> 

1694 

: 


<146> 

1696 

rem *« bei tastendruck abbrecheri 


<068> 

169B 

: 


<150> 

1700 

i-f keypress then 1750 


<199> 

1702 

: 


<154> 

1704 

: 


<1567 

1706 

rem ** horizontale bewegung 


<097> 

1708 

: 


<160) 

1710 

tor move = 1 to 100 


<084> 

1712 

: poke vic, peek(vic) + d 0 


<222> 

1714 

: poke vic+ 2 , peek(vic+2) + dl 


<001> 

1716 

s get kp* 


< 124) 

1718 

: if kp* = "" then 1722 


<248> 

1720 

: move=100 : keypress = -1 


<040 

1722 

next move 


<073> 

1724 

: 


<176? 

1726 

: 


< 178) 

172B 

rem ** bei tastendruck abbrechen 


<100) 

1730 

: 


< 182) 

1732 

if keypress then 1750 


<230 

1734 

s 


< 186>-, 

1736 

s 


<‘l88> 

1738 

rem ** richtung umgekehrt und los 

<030 

1740 

: 


<192> 

1742 

d0 =r — d0 : dl = -dl 


<222) 

1744 

goto 1670 


<224> 

1746 

: 


<198) 

1748 

: 


<200> 


Listing 8. Änderungen und Ergänzungen zur Umwand¬ 
lung des Programms »Ein Sprite-Paar« in »Sprite-Jagd« 


Sichtbarer Bereich 


H = 110 


H =210 

V = 79 


V = 79 


I-1 

, H =160 . 
V = 129 

I_I 


H = 110 


H =210 

V = 179 


V = 79 



Bild 18. Die vier Eckpositionen der beiden Sprites auf 
ihrem Bahnquadrat (siehe Programm »Sprite-Jagd«) 


Programmierung der Richtungen 
und Bewegungen 


Die Ausgangsstellung der Sprites wird in Zeile 1550-1580 
festgelegt: 

1550 POKE VIC,110 :REM HORIZONTAL 0 
1560 POKE VIC+2,210 :REM HORIZONTAL 1 
1570 POKE VIC+1,79 :REM VERTIKAL 0 
1580 POKE VIC+3,179 :REM VERTIKAL 1 

Wie bereits beschrieben, startet Sprite 0 in der linken 
oberen und Sprite 1 in der rechten unteren Ecke. 

Das Programm benutzt zur Steuerung der Bewegung zwei 
Variable, DO für Sprite 0 und Dl für Sprite 1. Beide werden 
in Zeile 1668 mit dem Wert 1 initialisiert: 

1668 DO = 1: Dl = -1 

Die Bewegung der Sprites ergibt sich durch Addition der 
beiden Variablen zu den entsprechenden Positionsregistern. 
Wenn Sie eine positive Zahl zu dem jeweiligen vertikalen 
Positionswert addieren, so erhöht sich der Registerwert und 
das Sprite bewegt sich auf dem Bildschirm nach unten. Bei 


der Addition negativer Werte ist es umgekehrt, der 
Registerwert verkleinert sich und das Sprite bewegt sich 
nach oben. Entsprechend bewirkt die Addition positiver 
Zahlen zum horizontalen Positionswert eine Bewegung nach 
rechts, die Addition negativer Werte eine Bewegung nach 
links. 

Zeile 1678-1690 steuert die vertikalen Bewegungen 
beider Sprites: 

1678 F0R MOVE = 1 TO 100 

1680 : POKE VIC+1, PEEK(VIC+l) + DO 

1682 : POKE VIC+3, PEEK(VIC+3) + Dl 

1684 : GET KP$ 

1686 : IF KP$ = "" THEN 1690 

1688 : MOVE = 100 : KEYPRESS = -1 

1690 NEXT MOVE 

Die Zeilen 1678 und 1690 erzeugen eine Schleife, die 
hundertmal durchlaufen wird. Hundertmal deshalb, weil jede 
Bahnseite aus 100 Bildpunkten besteht und das Sprite um 
jeweils einen Bildpunkt weiterbewegt werden soll. Bei jedem 
Durchlauf wird in Zeile 1680 der Wert 1 der Bewegungsvaria¬ 
blen für Sprite 0 zum vertikalen Positionswert dieses Sprites 
addiert. In gleicher Weise erfolgt in Zeile 1682 die Addition 
der Bewegungsvariablen von Sprite 1 zu dessen vertikalem 
Positionsregister. 
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Die Zeilen 1686 bis 1688 stellen eine Erweiterung 
gegenüber den bisherigen Bewegungsprogrammen dar. Die 
Tastatur wird nun nach jeder Bewegung (um einen Bildpunkt) 
abgefragt und nicht mehr erst nach Abarbeitung der 
gesamten Schleife. Die Abfrage erfolgt in Zeile 1686. Wurde 
keine Taste betätigt, wird Zeile 1688 übersprungen und das 
Programm fortgesetzt. Ist jedoch eine Taste gedrückt 
worden, so erhält die Schleifenvariable MOVE den Wert 100 
und die Variable KEYPRESS den Wert -1. Die Erhöhung der 
Schleifenvariablen auf ihren Maximalwert (100) bewirkt, daß 
die Schleife nicht erneut durchlaufen wird. Dieses ist in Basic 
der beste Weg, um eine Schleife vorzeitig zu beenden. KEY¬ 
PRESS wird auf -1 gesetzt, da -1 der Wahrheitswert für eine 
logisch wahre Bedingung ist. Wir haben dieses Thema in 
Kapitel 1 behandelt, bitte informieren Sie sich dort, wenn 
Ihnen etwas unklar ist. 

Zeile 1700 steuert den weiteren Programmablauf: 

1700 IF KEYPRESS THEN 1750 


war 1. Durch Multiplilation mit -1 wird er zu -1. Damit bewegt 
sich Sprite 0 in der vertikalen Schleife nach oben und in der 
horizontalen Schleife nach links. Ebenso läßt sich die 
Bewegungsrichtung von Sprite 1 ändern. Nach einer 
Multiplikation von Dl mit -1 bewegt es sich in der vertikalen 
Schleife nach unten und in der horizontalen Schleife nach 
rechts. Nach der Multiplikation beider Bewegungsvariablen 
mit -1 muß das Programm also nach Zeile 1678 
zurückspringen und die Bewegungsschleifen noch einmal 
durchlaufen. 

Die Zeilen 1742-1744 sorgen für die Bewegungsände¬ 
rung: 

1742 DO = -DO : Dl = -Dl 
1744 GOTO 1678 

Sobald das Programm die Zeile 1742 erneut erreicht, 
erfolgt wieder ein Richtungswechsel, denn die beiden Rich¬ 
tungswerte werden erneut umgekehrt, das heißt, auf ihren 
vorangegangenen Wert zurückgesetzt. Da sich beide Sprites 
in diesem Moment wieder in ihren Ausgangspositionen befin¬ 
den (Sprite 0 im linken oberen, Sprite 1 im rechten unteren 
Eckpunkt der Bahn), beginnt die Jagd erneut. 

Sie können nun mit dem Programm experimentieren. Wie 
muß die Änderung für eine Dreiecksbahn aussehen? Lassen 
sich auch vier Sprites auf der quadratischen Bahn bewegen? 
Wodurch ergeben sich Spiralbahnen in den Bildmittelpunkt 
und dann wieder heraus? Bedenken Sie bei größeren Ände¬ 
rungen, daß es wichtig ist, zunächst ein Konzept zu ent¬ 
wickeln und sich dann erst an den Rechner zu setzen. 

Zusammenfassung 


ln diesem Kapitel haben Sie sich mit einigen Techniken zur 
Steuerung mehrerer Sprites befaßt. Sie haben gelernt: 

unter Benutzung derselben 63 Sprite-Codes mehrere 
Sprite-Kopien auf dem Bildschirm darzustellen, 
wie mit Hilfe einzelner Bits in einigen VIC.II-Registern 
bestimmte Sprites gesteuert werden, 
wo die Datenblöcke für mehrere Sprites gespeichert 
werden können und wie die Datenzeiger in 2040-2047 
zu setzen sind, 

auf welche Weise mehrere Sprites gleichzeitig zu bewe¬ 
gen sind, 

wie eine Programmschleife verlassen und der Programm¬ 
ablauf mit Hilfe von Booleschen Variablen gesteuert 
werden kann. 

Im folgenden Kapitel lernen Sie weitere Tricks zur Program¬ 
mierung von Sprites kennen. Vorher sollten Sie jedoch noch 
Ihr in diesem Kapitel erworbenes Wissen überprüfen. 

Selbsttest 


Enthält KEYPRESS den Wert 0 (Wahrheitswert für» keine 
Taste gedrückt«), so beginnt das Programm mit der Schleife 
für die horizontale Bewegung. Wurde dagegen eine Taste 
betätigt, so enthält KEYPRESS den Wert -1 und das 
Programm endet mit dem Programmteil zur Rücksetzung der 
Register ab Zeile 1750. 

Die Abfrage eines Wahrheitswertes bezeichnet man 
übrigens nach dem englischen Mathematiker Boole als 
Booleschen Test und die logischen Werte WAHR und 
FALSCH als Boolesche Variable. 

Die Zeilen 1710-1722 bilden die Schleife für die horizontale 
Bewegung: 

1710 FOR MOVE = 1 TO 100 s * gB , 

1712 : POKE VIC, PEEK (VIC) + DO 
1714 : POKE VIC+2, PEEK (VIC+2) + Dl 
1716 : GET KP$ 

1718 : IF KP$ = "" THEN 1722 

1720 : MOVE = 100 : KEYPRESS = -1 

1722 NEXT MOVE 

Diese Schleife entspricht fast vollständig der Schleife für 
die vertikale Bewegung. Der einzige Unterschied ist, daß die 
Bewegungsvariablen nicht zu den vertikalen, sondern zu den 
horizontalen Registern addiert werden. 

Zeile 1732 prüft wieder, ob im vorangegangenen 
Durchgang eine Taste gedrückt worden ist: 

1732 IF KEYPRESS THEN 1750 

Wenn ja, endet das Programm mit der Rücksetzung der 
Register. Anderenfalls beginnt es mit der Änderung der 
Bewegungsrichtung. 

Richtungsänderung beim Bahndurchlauf 


Führen Sie sich noch einmal den Weg von Sprite 0 vor Augen. 
Es muß sich nach unten, nach rechts, nach oben und 
schließlich nach links bewegen. Anders ausgedrückt: 
vertikale Bewegung, horizontale Bewegung, vertikale 
Bewegung, horizontale Bewegung. Die Schleifen für die 
erste vertikale und horizontale Bewegung haben Sie bereits 
programmiert. Benötigen Sie nun noch zwei weitere 
Schleifen? 

Nein, Sie können darauf verzichten. Es genügt, die 
Bewegungsrichtung von Sprite 0 umzukehren und dann die 
vorhandene horizontale und vertikale Schleife noch einmal zu 
durchlaufen. Der bisherige Wert der Bewegungsvariablen DO 


1. Speicherzelle 2045 enthält normalerweise den Daten¬ 
zeiger für Sprite. 

2. Eine Gruppe von 8 Bit wird.genannt. 

3. Mit einem Byte können die Dezimalzahlen.bis. 

dargestellt werden. 

4. Um die Sprites 2, 4 und 7 sichtbar zu machen, müssen 

Sie den Dezimalwert . in das Register VIC+21 

schreiben. 

5. Um die Sprites 0,3 und 4 zu verlängern, müssen Sie den 

Wert.in Register VIC+23 schreiben. 

6. Die Daten zur Darstellung von acht Sprites werden am 

besten ab Adresse.gespeichert. 
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7. Um ein in beide Richtungen vergrößertes Sprite in Höhe 
der Bildschirmmitte darzustellen, müssen Sie den Wert 

. in das entsprechende vertikale Positionsregister 

schreiben. 

8. Wird der horizontale Positionswert eines Sprites vergrö¬ 
ßert, so bewegt sich das Sprite nach. 

9. Variable, deren Zahlenwert den logischen Wert WAHR 

oder FALSCH repräsentiert, heißen logische oder. 

Variable. 

10. Um den Wert einer Variablen abwechselnd auf -1 und 1 

zu setzen, muß diese jeweils mit der Zahl.multipli¬ 

ziert werden. 

Programmierübungen 


1516 POKE VIC+45,3 :REM 6 IST HELLBLAU 
1518 POKE VIC+46,1 :REM 7 IST WEISS 
1530 POKE VIC+21,255:REM SPRITES 0-7 AN 

2. Laden Sie das Programm »Sprite-Jagd« und geben Sie 
folgende Zeilen ein: 

1000 REM *** IM UHRZEIGERSINN *** 

1674 REM ** HORIZONTALE BEWEGUNG 
1680 : POKE VIC, PEEK(VIC) + DO 

1682 : POKE VIC+2, PEEK(VIC+2) + Dl 

1706 REM ** VERTIKALE BEWEGUNG 
1712 : POKE VIC+1, PEEK(VIC+1) + DO 

1714 : POKE VIC+3, PEEK(VIC+3) + Dl 


1. Modifizieren Sie das Programm »Einfache Kopien« der¬ 
art, daß vier weitere Kopien erscheinen, und zwar in 
jeder Bildschirmecke eine. 

2. Ändern Sie das Programm »Sprite-Jagd«, so daß sich 
das Sprite-Paar im Uhrzeigersinn bewegt. 

3. Ändern Sie das Programm »Sprite-Jagd«, so daß zwei 
weibliche Sprites zwei männliche Sprites umherjagen. 

Antworten zum Selbsttest 


Die folgenden Antworten dürften wiederum die zutreffend¬ 
sten sein. Möglicherweise finden Sie jedoch weitere. 

1. 5 

2. Byte 

3. 255 

4. 148 

5. 25 

6. 12288 

7. 129 

8. rechts 

9. Boolesche 

10 . -1 


:REM DATENZEIGER 1 
:REM DATENZEIGER 2 
:REM DATENZEIGER 3 
:REM HORIZONTAL 2 
:REM HORIZONTAL 3 


' 


3. Laden Sie das Programm »Sprite-Jagd« und geben Sie 
folgende Zeilen ein: 

1000 REM *** PAARWEISE JAGD *** 

1530 POKE 2041,14 
1533 POKE 2042,15 
1536 POKE 2043,15 
1563 POKE VIC-h4,110 
1566 POKE VIC-6,210 
1568 : 

1583 POKE VIC+5,179 
1586 POKE VIC+7,79 
1613 POKE VIC+4l,l 
1616 POKE VIC+42,5 
1630 POKE VIC+23,15 
1640 POKE VIC+29,15 
1660 POKE VIC+21,15 
1674 REM ** BEWEGUNG AUF EINER SEITE 
POKE VIC+4, PEEK(VIC+4) + DO 
POKE VIC+6, PEEK(VIC+6) + Dl 
1706 REM ** BEWEGUNG AUF ANDERER SEITE 


:REM VERTIKAL 2 
:REM VERTIKAL 3 
:REM 2 IST WEISS 
:REM 3 IST GRUEN 
:REM ALLE 4 SPRITES 
:REM DOPPELT GROSS 
:REM ALLE 4 SPR. AN 


1713 

1715 

1753 


POKE VIC+5, PEEK(VIC+5) + Dl 
POKE VIC+7, PEEK(VIC+7) + DO 
POKE VIC+7, PEEK(VIC+7) + DO 


Lösungsvorschläge für die 
Programmierübungen 


Kapitel 3: 

Weitere Sprite-Tricks 


Die Lösungen bestehen aus zusätzlichen oder geänderten 
Zeilen für die in diesem Kapitel vorgestellten Programme. 
Dabei handelt es sich nur um Vorschläge. Anderslautende 
Lösungen sind ebenfalls richtig, wenn sie den Anforderungen 
entsprechen. 

1. Laden Sie das Programm »Einfache Kopie« und geben 
Sie folgende Zeilen ein: 


1000 REM *** ACHT KOPIEN 
1362 POKE 2044,14 :REM 
1364 POKE 2045,14 :REM 
1366 POKE 2046,14 :REM 
1368 POKE 2047,14 :REM 
1412 POKE VIC+8,24 :REM 
l4l4 POKE VIC+10,64 :REM 
1416 POKE VIC+12,24 :REM 

1418 POKE VIC+14.64 :REM 

1419 POKE VIC+16,160:REM 
1462 POKE VIC+9,50 :REM 
1464 POKE VIC+11,50 :REM 
1466 POKE VIC+13,299:REM 
1468 POKE VIC+15,229:REM 
1512 POKE VIC+43,7 :REM 
1514 POKE VIC+44,5 :REM 


##* 

DATENZEIGER 4 
DATENZEIGER 5 
DATENZEIGER 6 
DATENZEIGER 7 
HORZNTL.POS. 4 
HORZNTL.POS. 5 
HORZNTL.POS. 6 
HORZNTL.POS. 7 
5&7 MIT 2.HR 
VERTKAL.POS. 4 
VERTKAL.POS. 5 
VERTKAL.POS. 6 
VERTKAL.POS. 7 

4 IST GELB 

5 IST GRUEN 


Interessiert es Sie, wie mehrfarbige Sprites erzeugt werden? 
In diesem Kapitel wefden Sie Näheres darüber erfahren. 
Außerdem lernen Sie, Sprites übereinander hinweg zu bewe¬ 
gen. Schließlich werden Sie sogar, mit Hilfe mehrerer sich 
überlagernder Grundfiguren, eine kleine Zirkusnummer pro¬ 
grammieren. Nebenbei gibt es weitere Experimente mit Bits, 
Bytes und Sprites. 

Ein normales Sprite ist durch 63 Bytes definiert, die ab 
einer bestimmten Adresse im Speicher abgelegt sind. Jedes 
Byte besteht aus acht Bits, und jedes Bit steuert einen Bild¬ 
punkt (sichtbar oder unsichtbar). Ein Sprite besteht somit aus 
(63 * 8) = 504 Bildpunkten. 

Hat das einem bestimmten Bildpunkt zugeordnete Bit den 
Wert 1, so wird der Bildpunkt in der im Farbregister des Spri¬ 
tes codierten Farbe ausgegeben. Ist der Wert 0, so wird der 
Bildpunkt in der Farbe des Bildschirmes angezeigt, das heißt, 
er ist unsichtbar. 

Im Normalfall gibt es für einen Bildpunkt also nur zwei 
Zustände: sichtbar oder unsichtbar. Der C64 bietet jedoch 
noch eine weitere Möglichkeit, den sogenannten Mehrfar¬ 
benmodus. In diesem Modus werden zwei Bits (ein Bitpaar) 
benutzt, um eine Farbe zu bestimmen. 

Zwei Bits lassen sich in vier unterschiedlichen Bitmustern 
darstellen (Bild 19). Damit können vier Farben für die beiden 
dem Bitpaar zugeordneten Bildpunkte definiert werden. 
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Selbstverständlich sind beide Bildpunkte von gleicher Farbe. 
Am einfachsten ist es, die beiden Bildpunkte als einen großen 
Bildpunkt doppelter Breite zu betrachten. Bei der Benutzung 
dieser Möglichkeit bestimmt dann ein Byte die Farbe für vier 
Doppelbildpunkte, und eine Sprite-Zeile besteht statt aus 24 
Bildpunkten nun aus 12 Doppelbildpunkten. Die horizontale 
Auflösung eines mehrfarbigen Sprites ist also nur halb so 
hoch wie die eines normalen Sprites. 



1 

1 : ° 

—i_ 


i 

o ! i 

i 
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i 

i 

o ! o 

i 
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Bild 19. Mit zwei Bit können vier unterschiedliche 
Bitmuster dargestellt werden 


Sprite mehrfarbig dargestellt. Ein Rücksetzen des Bits 
bewirkt wieder die normale Darstellung des Sprites. 

Der Entwurf eines mehrfarbigen Sprites 


Falls Sie nicht zu den wenigen Spezialisten gehören, die ein 
mehrfarbiges Sprite im Kopf entwerfen können, benutzen Sie 
bitte das Entwurfsblatt aus Bild 21. Es entspricht weitgehend 
dem Entwurfsblatt für einfarbige Sprites aus Kapitel 1. Wie 
dieses enthält es 21 Zeilen, die Bitwerte und drei Spalten für 
die Codezahlen. Allerdings sind nur 12 Spalten vorhanden, 
da in mehrfarbigen Sprites ja nur Doppelbildpunkte ange¬ 
sprochen werden können. 


Halbe Auflösung bedeutet, daß nicht mehr jeder einzelne 
Bildpunkt sichtbar oder unsichtbar gemacht werden kann, 
sondern nur noch Bildpunktpaare. Zur Wiederholung: Der 
Grund dafür ist, daß zwei Bits benötigt werden, um eine Farbe 
zu definieren, und ein Byte somit nur noch vier Doppelbild¬ 
punkte steuern kann (Bild 20). Eine Sprite-Reihe besteht 
jetzt also aus 12 Doppelbildpunkten. Die Gesamtgröße des 
Sprites wird dadurch nicht verändert. Ein mehrfarbiges Sprite 
besteht somit aus (63*4) 252 Doppelbildpunkten und wird 
nach wie vor durch 63 Datenbytes definiert. 


Standard-Sprite 


Der VIC-ll-Chip 
verwendet 8 Bits 


um 8 einfache 
Pixels zu steuern 



Bit¬ 

paar 


Beschreibung 


Blldschirmfarbo 


Sprite- Mehrfarbenregister 0 


Sprlte-Farbreglster 


Sprite- Mehrfarbenregister 1 


Adresse 


VC+33 (53281) 


VC+37 (53285 


eines der Register VC+39 - VC+46 
(53287 - 53294) 


VC+38 (53286) 


Tabelle 6. Das einem Doppelbildpunkt zugeordnete Bit¬ 
paar bestimmt das Farbcode-Register 
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Bild 20. In einem mehrfarbigen Sprite wird jeweils ein 
Doppelpunkt durch ein Bitpaar gesteuert 

Der Mehrfarbenmodus 


Welche Farben stehen für mehrfarbige Sprites zur Verfü¬ 
gung? Das Bitpaar 00 definiert die Farbe des Bildschirmes, 
die ja bekanntlich im Register VIC+33 (53281) codiert ist. 
Das Bitpaar 01 bedeutet, daß der Farbcode aus dem Mehr¬ 
farbenregister 0 mit der Adresse VIC+37 gelesen wird. Ein 
Bitpaar 10 veranlaßt den C64, das normale Farbregister des 
Sprites zu benutzen. Wie Sie sich erinnern, besitzt jedes 
Sprite sein eigenes Farbregister im Bereich VIC+39 bis 
VIC + 46. Das Bitpaar 11 schließlich verweist auf den Farb¬ 
code im Mehrfarbregister 1 mit der Adresse VIC + 38. Alle 
Zuordnungen sind in Tabelle 6 noch einmal zusammengefaßt. 

Auf welche Weise wird dem C64 nun mitgeteilt, daß er ein 
bestimmtes Sprite mehrfarbig darstellen soll? Das Steuerre¬ 
gister dafür ist VIC+28. Wie üblich, ist jedem Bit ein Sprite 
zugeordnet, Bit 0 steuert Sprite 1, und so weiter. Ist ein Bit 
dieses Registers auf 1 gesetzt, so wird das entsprechende 


Bild n Ein Entwurfsblatt für mehrfarbige Sprites 

Wie wird dieses Entwurfsblatt benutzt? Betrachten Sie 
dazu Bild 22, in dem ein ausgefülltes Entwurfsblatt darge¬ 
stellt ist. 



Bild 22. Ein ausgefülltes Entwurfsblatt 

Denken Sie sich zunächst für jede Farbe, die Sie benutzen 
wollen, ein Muster aus, und tragen Sie dieses in die Farbkäst- 
chen am unteren Rand des Blattes ein. Sie können auch Farb¬ 
stifte verwenden. Die Farbe des Bildschirmes wird am besten 
durch ein weißes Kästchen dargestellt. 

Nun setzen Sie das Sprite aus Doppelkästchen zusammen, 
wobei ein Doppelkästchen einem Doppelbildpunkt ent¬ 
spricht. Liegt die Form des Sprites fest, füllen Sie die Doppel¬ 
kästchen mit dem entsprechenden Farbmuster, am besten 
eine Farbe nach der anderen. Anschließend beginnen Sie 
dann mit der Berechnung der Zahlencodes. 

Dazu addieren Sie die in der zweiten Kopfzeile des Ent¬ 
wurfsblattes dargestellten Bitcodes aller mit einem Farbmu- 
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ster ausgefüllten Einzelkästchen (!) jeder Gruppe (jeder Zah¬ 
lencode gilt ja für eine Gruppe von 8 Bildpunkten bzw. 4 Dop¬ 
pelbildpunkten), wenn das entsprechende Bit in den Farb- 
kästchen den Wert 1 hat. Diese Addition entspricht der 
Addition bei einfarbigen Sprites, nur werden diesmal Doppel¬ 
kästchen betrachtet, deren Einzelkästchen bei der Berech¬ 
nung unberücksichtigt bleiben, wenn über dem entspre¬ 
chenden Einzelkästchen des Farbdoppelkästchens der Bit¬ 
wert 0 steht. 

Die errechneten Zahlencodes tragen Sie wie üblich in die 
am rechten Rand des Entwurfsblattes dafür vorgesehenen 
Spalten ein. 

Fertigen Sie sich mehrere Kopien des Entwurfsblattes an, 
und zeichnen Sie eigene Entwürfe. Vergewissern Sie sich, 
daß Sie die Berechnung der Zahlencodes in Bild 22 verstan¬ 
den haben, und berechnen Sie dann die Codes für Ihren eige¬ 
nen Entwurf. Sie benötigen diese Daten im folgenden Kapitel. 

Ein Programm zur Darstellung 
mehrfarbiger Sprites 


Listing 9 zeigt das Programm »Vierfarben-Sprite«. Es erzeugt 
das in Bild 22 gezeichnete Sprite. Die Betätigung einer belie¬ 
bigen Taste beendet das Programm. 

Das Programm entspricht weitgehend den bisherigen 
Sprite-Programmen, mit Ausnahme der Zeilen 1400-1440: 


1400 POKE VIC+28,1 
1410 POKE VIC+33,0 
1420 POKE VIC+37,7 
1430 POKE VIC+39,5 
1440 POKE VIC+38,6 


REM MEHRFARBMODUS 
REM HGRUND SCHWARZ 
REM MFREG 0 GELB 
REM SPRITE 0 GRUEN 
REM MFREG 1 BLAU 


S4€B C 


Zeile 1400 schreibt in das Auswahlregister den Wert 1, so 
daß Sprite 0 mehrfarbig dargestellt wird. Die Zeilen 1410 bis 
1440 bestimmen dann die zu benutzenden Farben: Schwarz, 
definiert durch das Bitpaar 00; Gelb, definiert durch das 
Bitpaar 01; Grün, definiert durch das Bitpaar 10; und Blau, 
definiert durch das Bitpaar 11. 

Am Ende des Programms wird das Mehrfarben-Sprite- 
Register MFSR zurückgesetzt: 


1580 POKE VIC+28,0 :REM MEHRFARB. AUS 


Die Benutzung eines normalen Sprites als mehrfarbiges 
Sprite ergibt eine sehr eigenartige Darstellung. Sie können 
sich davon überzeugen, indem Sie eines der vorangegange¬ 
nen Sprite-Programme laden und die Zeilen 1410-1440 hin¬ 
zufügen. 

Geben Sie das Programm »Vierfarben-Sprite« ein, 
speichern und starten Sie es anschließend. Versuchen Sie, 
die Farbwerte in den Zeilen 1410-1440 zu modifizieren und 
andere Kombinationen zu finden. 

Nachdem Sie diese Experimente beendet haben, ist es 
Zeit, Ihre eigenen Daten zu testen. Ersetzen Sie die 
Bildpunktdaten in den Zeilen 1150-1250 des Programms 
»Vierfarben-Sprite« durch die von Ihnen im letzten Abschnitt 
errechneten Werte, und starten Sie das Programm 
anschließend erneut. Entspricht das Ergebnis Ihren 
Erwartungen? Manchmal muß man etwas herumbasteln, ehe 
die Daten mit dem gewünschten Bild übereinstimmen. 


Sprites unterschiedlicher Prioritäten 


Wenn sich Sprites über den Bildschirm bewegen, kann es 
Vorkommen, daß sie miteinander kollidieren und sich 
überschneiden. In diesem Fall bestimmt der C 64, in welcher 

QSS3? 


1000 

rem »*» uier-tarben-sprite *«* 

<054> 

1010 

: 



<224> 

1020 




<234> 

1030 

rem ** ausgabe programmeldüng 

<013> 

1040 

: 



<000> 

1050 

print "Cclr.Bdownlbitte warten" 

<034> 

1060 

: 



<020> 

1070 

: 



<030> 

10B0 

rem sprite- 

daten laden 

<212> 

1090 

: 



<050> 

1100 

for n = B96 to 958 

<018> 

1110 

: read spdta 

<061 > 

1120 

: poke n, spdta 

<09B> 

1130 

next 

n 


<238> 

1140 

: 



<100> 

1150 

data 

1, 85, 

64, 1, 85, 64 

<234> 

1160 

data 

1, 20, 

64, 1, 20, 64 

<240> 

1170 

data 

1, 85, 

64, 1, 20, 64 

<252> 

11B0 

data 

1, 65, 

64, 1, 85, 64 

< 199> 

1190 

data 

0, 60, 

ia, 0 , 60 , 0 

<02B> 

1200 

data 

62,170,188, 62,170,188 

< 190> 

1210 

data 

40,170, 

12, 16,170, 4 

<203> 

1220 

data 

20,130, 

20, 20,130, 20 

<180> 

1230 

data 

16,195, 

4, 0,195, 0 

<184> 

1240 

data 

0, 65, 

0, 1, 65, 64 

< 106> 

1250 

data 

1, 65, 

64 

<0107 

1260 

: 



<220> 

1270 

: 



<230> 

1280 

rem ** sprite- 

register vorbereiten 

<000> 

1290 

print " (clr >■" 

:rem schirm loesch 






<069> 

1310 

pake 

2040,14 

:rem datenzeiger 

<243> 

1320 

vic = 53248 

srem grafikbaustein 

<135> 

1330 




< 036 > 

1340 

poke 

vic,160 

:rem horiz.position 

<007> 

1350 

pake 

vic+1,129 :rem vertk.positian 

<227> 

1360 

: 



<066> 

1370 

pake 

vic+23,1 

:rem ver 1 aengerung 

<026> 

1380 

poke 

vic+29,1 

:rem Verbreiterung 

<235> 

1390 

: 



<096> 

1400 

poke 

vic+28 ,1 

:rem mehrtarbmodus 

<190> 

1 Ms 

loke 

vi c-1-33,0 

:rem hgrund schwarz 

<070> 

pake 

vic+37,7 

:rem mfreg 0 gelb 

<1B2> 

1430 

pake 

vic+39,5 

srem sprite 0 gruen 

<078> 

1440 

poke 

vic+38,6 

:rem mfreg 1 blau 

< 119> 

1450 




< 156> 

1460 

poke 

vic+21,1 

:rem sprite 0 ein 

<225> 

1470 

: 



< 176> 

1480 

: 



<1B6> 

1490 

rem #* präg.ende mit tastendruck 

<255> 

1500 

: 



< 206 > 

1510 

get kp* 

0 

< 039 >* 

1520 

it kp* = then 1510 

< 191 > 

1530 

: 



<236> 

1540 

: 



<24B> 

1550 

rem ** ruecksetzen des registers 

<137> 

1560 

: 



<012> 

1570 

poke 

vic+21,0 

srem sprite aus 

< 133> 

1580 

poke 

vic+2B,0 

:rem mehrfarb.aus 

<233> 

1590 

pake 

vic+29,0 

srem verbreit.aus 

<011> 

1600 

: 



<052> 

1610 

s 



<062> 

1620 

end 



<09B> 


Listing 9. Ausdruck des Programms »Vierfarben-Sprite« 


Rangfolge die Sprites dargestellt werden, das heißt, welches 
der beiden Sprites verdeckt und welches angezeigt wird. Die 
höchste Priorität hat immer Sprite 0, die niedrigste Sprite 7. 
Bei einer Überlagerung von Sprite 0 und Sprite 7 wird also 
Sprite 0 dargestellt. Ebenso hat zum Beispiel Sprite 4 eine 
höhere Priorität als Sprite 5. Bild 23 zeigt die Rangfolge der 
Sprites. 

Bei der vollständigen oder teilweisen Überlagerung zweier 
Sprites werden alle Bildpunkte des Sprites mit der höheren 
Priorität, die unsichtbar, also in der Farbe des Bildschirmes 
dargestellt werden, sozusagen transparent, so daß die 
entsprechenden Teile des darunterliegenden Sprites wie 
durch ein Fenster sichtbar sind. 

Listing 10 zeigt das Programm »Sprite-Überlagerung«. 
Geben Sie es ein, speichern und starten Sie es. 

»Sprite Überlagerung« stellt vier gleichartige Sprites auf 
dem Bildschirm dar und verschiebt sie dann so lange überein- 
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Bild 23. Bei der Überla¬ 
gerung mehrerer Sprites 
erhalten die Sprites mit 
den kleinsten Nummern 
die höchsten Prioritäten 
und werden auf den 
Sprites mit den größe¬ 
ren Nummern dar¬ 
gestellt 


ander, bis eine Taste gedrückt wird. Beachten Sie, wie bei der 
Überlagerung Teile der unteren Sprites durch die transparen¬ 
ten Bereiche der Sprites 0 und 1 hindurch sichtbar werden. 

Abgesehen von der Überlagerung von Sprites ist in dem 
Programm auch interessant, auf welche Weise die Gestalt 
der Sprites definiert und der Bewegungsablauf programmiert 
wird. 


Die Zahlencodes für das Sprite im Programm »Sprite- 
Überlagerung« werden durch eine Programmschleife gene¬ 
riert: 

1100 FOR N = 832 TO 894 
1110 : POKE N, 60 
1120 NEXT N 

Eine ähnliche Technik haben Sie bereits im Programm »ein 
einfaches Sprite« benutzt. Dort enthielt der POKE-Befehl den 
Wert 255, und jeder Bildpunkt des Sprites wurde sichtbar. Im 
vorliegenden Fall bewirkt die Zahl 60, daß nur die mittleren 
vier von jeweils 8 Bildpunkten sichtbar werden. Dieser Effekt 
ist in Bild 24 dargestellt. Enthält jede Sprite-Zeile drei Muster 
dieser Art, so besteht das Sprite aus drei vertikal 
verlaufenden Streifen. 

Mit Hilfe einer Programmschleife lassen sich viele Sprites 
erzeugen. Testen Sie zum Beispiel folgende Zeilen: 

1100 FOR N = 832 T0 894 STEP 2 
1110 : POKE N, 255 : POKE N+l, 0 



32+16+8+4 =60 

Bild 24. Der Zahlencode 60 für ein Sprite bewirkt, daß 
die vier mittleren der acht Biidpunkte jeder Gruppe 
sichtbar werden 


1000 

rem **•* sprite- 

Lieberl agerunq ***■ 

<162> 

1490 

mr(0> = vic : mr(1) = vic+2 

< 154> 

1010 

: 




<224> 

1500 

mr(2) = vic+5 : mr(3) = vic+7 

<041 > 

1020 

; 




<234> 

1510 

■ 

<216> 

1030 

1040 

rem ** ausgabe 

pragrammel düng 

<013_> 

<000> 

SI 

mv(0> = -1 s mv ( 1 ) = 1 
.nv <2> = -1 : mv (3) = 1 

<201 > 

< 147> 

1050 

print 

“Cclr,8down>bitte warten" 

<034> 

1540 

: 

<248> 

1060 





<020> 

1550 

df = —1 :rem — l=n.innen 0=n.aussen 

<205> 

1070 

s 




< 030 > 

1560 

- 

<012> 

10B0 

rem ** sprite-daten 

1 aden 

<212> 

1570 

: 0 

<022> 

1090 

: 




< 050 > 

1580 

rem ** sprite bewegen 

<059> 

1100 

for n 

= B32 to 

894 


< 124 > 

1590 

: 

<042> 

1110 

: pake n. 60 



<016> 

1600 

for count = 1 to 200 

<007 > 

1120 

next 

n 



<228> 

1610 

: sprnum = int((count-1)/50> 

<150> 

1130 

: 




< 090 > 

1620 

: if df then sprnum = 3 — sprnum 

< 144> 

1 140 

: 




<100> 

1630 

: reg = mr(sprnum) 

<245> 

1150 

rem »* sprite-register vorbereiten 

<124> 

1640 

: move = mv(sprnum) 

< 140 > 

1160 

: 




<120> 

1650 

: poke reg, peek(reg) + move 

<084> 

1170 

print "Cclri" 


rem schirm loesch 


1660 

: get kp$ 

<068> 






<203> 

1670 

: if kp*= "" then 1690 

<025> 

1180 

vic = 53248 

: rem 

graf i kbaustei ri 

<249> 

1680 

: count = 200 : keypress = -1 

<009> 

1190 

• 




< 150> 

1690 

next count 

<037> 

1200 

poke 

2040,13 

: rem 

datenzeiger 1 

<025> 

1700 

: 

<152> 

1210 

pake 

2041,13 

: rem 

datenzeiger 2 

<228> 

1710 

: 

< 162> 

1220 

pake 

2042,13 

: rem 

datenzeiger 3 

< 174> 

1720 

rem prog.end nach tastendruck 

<246> 

1230 

poke 

2043,13 

: rem 

datenzeiger 4 

< 121 > 

1730 

: 

<182> 

1240 

: 




< 200 > 

1740 

if keypress then 1900 

<239> 

1250 

pake 

vic,226 

: rem 

horzntl.pos. 0 

<235> 

1750 

s 

<202> 

1260 

poke 

vic+2,94 

: rem 

horzntl.pas. 1 

<160> 

1760 

: 

<212> 

1270 

poke 

vic+4,144 

: rem 

horzntl.pos. 2 

< 1B2> 

1770 

rem ** pause, dann richtung um- 

<069> 

12B0 

poke 

vic+6,176 

: rem 

horzntl.pos. 3 

<227 > 

1780 

rem kehren und von vorn 

< 182> 

1290 

5 



<252> 

1790 

: 

<242> 

1300 

poke 

vic+l,140 

: rem 

vertal.pas. 0 

< 109> 

1800 

for delay = 1 to 400 : next delay 

<212> 

1310 

poke 

vic+3,118 

: rem 

vertal.pos. 1 

<174> 

1810 

for sprnum = 0 to 3 

<022> 

1320 

poke 

vic+5,190 

: rem 

vertal.pos. 2 

<155> 

1820 

: mv(sprnum) = -1 * mv(sprnum! 

<102> 

1330 

poke 

vic+7,68 

:rem 

vertal.pas. 3 

<150> 

1830 

next sprnum 

< 177> 

1340 

: 




<046> 

1840 

df = -1 - df 

<018> 

1350 

pake 

vic+39,7 

: rem 

0 ist gelb 

<083> 

1850 

goto 1600 

<10B> 

1360 

poke 

vic+40,5 

: rem 

1 ist gruen 

<09B> 

1860 

: 

<058> 

1370 

pake 

vic+41,3 

: rem 

2 ist hellblau 

<002> 

1870 

: 

<068> 

1380 

pake 

vic+42,1 

: rem 

3 ist weiss 

<182> 

1880 

rem ** register zuruecksetzen 

< 115> 

1390 

: 




<096> 

1890 

: 

< 088 > 

1400 

pake 

vic+23,15 

: rem 

alle sprites 

<080 > 

1900 

pake vic+21,0 

< 146> 

1410 

poke 

vic+29,15 

: rem 

dopp. groesse 

< 108 > 

1910 

poke vic+29,0 

<164> 

1420 

: 




< 126> 

1920 

poke vic+23,0 

<168> 

1430 

poke 

vic+21,15 

: rem 

sprite 0-3 an 

<182> 

1930 

s 

<128> 

1440 

: 




<146> 

1940 

end 

<164> 

1450 

: 




< 156 > 




1460 

1470 

rem ** beweg.register vorbereiten 
rem und anf.schritte zuweisen 

<144> 

< 208 > 

Listing 10. Ausdruck des Programms 


1480 

: 




<186> 

»Sprite-Überlagerung« 




74 


SONDERHEFT 









































C 64 


GRAFIK 


Sicherlich können Sie mit Hilfe dieser Technik noch eine 
Vielzahl weiterer Sprites erfinden. Starten Sie die neue 
Version Ihres Programms, und lassen Sie sich nicht 
hypnotisieren. Versuchen Sie, herauszufinden, wie viele 
weitere Sprites Sie durch den geschickten Einsatz von 
Programmschleifen erzeugen können. 


Der Bewegungsablauf 


Beim Start des Programmes »Sprite-Überlagerung« befinden 
sich die vier Sprites in den in Bild 25 dargestellten Grund¬ 
positionen. Nacheinander bewegen sie sich dann auf die 
Bildmitte zu, legen dort eine Pause ein, wandern anschlie¬ 
ßend auf ihre Ausgangspositionen zurück und beginnen den 
Reigen nach einer weiteren Pause erneut. 

Für die Programmierung von Bewegungsabläufen ist es 
von Vorteil, die auszuführende Bewegung auf gleichartige 
Abläufe hin zu untersuchen. Im vorliegenden Fall muß jedes 
Sprite nur zwei Bewegungen ausführen: sich in den 
Bildmittelpunkt bewegen und auf gleicher Bahn 
zurückkehren. Daher kann ein Programmsegment, das diese 
Bewegungen steuert, von allen vier Sprites benutzt werden. 
Sind diese Bewegungsvariablen als Feldvariable definiert, so 
sind die Bewegungen besonders einfach zu programmieren: 
für das entsprechende Sprite muß als Index nur die 
entsprechende Sprite-Nummer angegeben werden. 



Bild 25. Die Ausgangsposition der vier Sprites aus dem 
Programm »Sprite-Überlagerung«. Diese Pfeile geben 
die Bewegungsrichtung nach dem Programmstart an. 


Eine weitere Vereinfachung ergibt sich aus der Tatsache, 
daß die beiden Bewegungen, die ein Sprite auszuführen hat, 
sich nur in der Richtung unterscheiden. Nach Abschluß einer 
Bewegung muß also nur der Wert der Bewegungsvariablen 
umgekehrt werden. Damit ist dann im Prinzip die Steuerung 
aller vier Sprites durch ein Programmsegment möglich. Nur 
die Feinheiten müssen noch genauer ausgearbeitet werden 
(ein berühmtes letztes Wort vieler Programmierer). 

Da ein Sprite sich entweder nur horizontal oder nur vertikal 
bewegt, ist ein Positionsregister pro Sprite ausreichend. In 
den Zeilen 1490-1500 werden die entsprechenden Register¬ 
adressen an vier Variable übergeben: 

1490 MR(0) = VIC :MR(1) = VIC+2 
1500 MR(2) = VIC+5 :MR(3) = VIC+7 

Betrachten Sie noch einmal Bild 25. Sprite 0 und 1 
bewegen sich horizontal, Sprite 2 und 3 vertikal. Entspre¬ 


chend diesen Richtungen wurden die Positionsregister in 
den Zeilen 1490-1500 ausgewählt. 

In den Zeilen 1520-1530 werden die Bewegungsvariablen 
definiert: 

1520 MV(0) = -1 : MV(l) = 1 
1530 MV(2) = -1 : MV(3) = 1 

Der jeweilige Wert der Richtungsvariablen, addiert zum 
aktuellen Positionswert, ergibt die neue Position des 
entsprechenden Sprites. Betrachten Sie dazu noch einmal 
das Bild 25. Die Pfeile kennzeichnen die Richtung der Sprites 
zu Beginn des Programms. Sprite 3 zum Beispiel beginnt mit 
einer Bewegung nach unten. Nach jedem Schritt erhöht sich 
sein Positionswert, und genau diese Vergrößerung des 
Wertes wird in Zeile 1530 vorgenommen. Um die 
Bewegungsrichtung umzukehren, genügt es, den Wert der 
Variablen MV(3) mit -1 zu multiplizieren. Dann nämlich 
verkleinert sich der vertikale Positionswert bei jedem Schritt 
um 1, und Sprite 3 bewegt sich wieder hinauf. 

Es ist noch eine weitere Einzelheit zu berücksichtigen: die 
Reihenfolge der Sprites. Bei der Bewegung nach innen (auf 
den Mittelpunkt zu) soll die Bewegung in der Reihenfolge 3, 
2, 1, 0 erfolgen, bei der Bewegung nach außen (vom 
Mittelpunkt weg) dagegen in der Reihenfolge 0, 1, 2, 3. Zeile 
1550 initialisiert eine Variable DF, mit der die Reihenfolge 
gesteuert wird: 

1550 DF = -1 :REM. -1=N.INNEN 0=N.AUSSEN 


Die Zeilen 1600-1690 bilden die Bewegungsschleife: 

1600 F0R COUNT = 1 T0 200 

1610 : SPRNUM = INT((C0UNT-l)/50) 

1620 : IF DF THEN SPRNUM = 3 -SPRNUM 

1630 : REG = MR(SPRNUM) 

1640 : M0VE = MV(SPRNUM) 

1650 : P0KE REG, PEEK(REG) + M0VE 

1660 : GET KP$ 

1670 : IF KP$ = "" THEN 1690 

1680 : COUNT = 200 : KEYPRESS = -1 

1690 NEXT COUNT 

Die Zeilen 1600 und 1690 definieren eine Schleife, die 
200mal durchlaufen wird, falls Sie nicht zwischenzeitlich 
eine beliebige Taste betätigen. Die Schleifenvariable hat den 
Endwert 200, da jedes der vier Sprites einen Weg von 50 
Bildpunkten zurückzulegen hat (4 * 50 = 200). 

Die Zeilen 1610 und 1620 bestimmen, welches Sprite 
bewegt werden soll, und speichern die entsprechende 
Sprite-Nummer in der Variablen SPRNUM. Bei der Bewegung 
nach innen hat DF den Wert -1, und SPRNUM nimmt nachein¬ 
ander die Werte 3, 2, 1 und 0 an. Bei der Bewegung nach 
äußern, wenn DF den Wert 0 hat, erhält SPRNUM die Werte 
0^ 1, 2 und 3. 

Zeile 1630 wählt, entsprechend dem Wert von SPRNUM, 
das Positjonsregister, und Zeile 1640 die Schrittweite. In 
Zeile 1650 wird dann die Schrittweite zum alten Positions¬ 
wert addiert. 

Zeile 1660 überprüft die Tastatur. Wurde eine Taste betä¬ 
tigt, beendet Zeile 1670 die Schleife. Sie haben diese Tech¬ 
nik schon im vorhergehenden Abschnitt kennengelernt. 
Nachdem die Sprites ihre Bewegung nach innen oder außen 
beendet haben, muß die Bewegungsrichtung umgekehrt 
werden: 


Die allgemeine Bewegungsschleife 
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1000 

rem *** Jongleur **» 

<060> 

1010 

: 




<224> 

1020 

: 




< 234 > 

1030 

rem ** ausgabe programmeldung 

<013> 

1040 

: 




<000> 

1050 

print " Cclr ,8down>bitte warten"; 

< 152> 

1060 

: 




< 020 > 

1070 

: 




<030> 

1080 

rem ** sprite-daten■1aden 

<212> 

1090 

: 




< 050> 

1100 

for n = 832 to 1023 

<109> 

1110 

: read spdta 


<061 > 

1120 

: if spdta = -1 

then print " . "; s 



goto 

1 140 



< 121 > 

1130 

s poke n, spdta 


<108> 

1140 

next 

n 



<24B> 

1150 

s 




<110> 

1160 

data 

0, 16, 

0. 

0, 0, 0 

<231 > 

1170 

data 

1, 0,128, 

0, 0, 0 

<090> 

1180 

data 

0, 0, 

0, 

0,120, 0 

<047> 

1190 

data 

4,120, 

16, 

0,120, 0 

<229> 

1200 

data 

0,120, 

0, 

12, 24, 0 

< 114> 

1210 

data 

15,255, 

16, 

0, 61,128 

<16B> 

1220 

data 

0, 60, 

176, 

4, 24,240 

<044> 

1230 

data 

0, 61, 

0, 

0, 60, 0 

< 132> 

1240 

data 

0, 36, 

0 , 

0, 36, 0 

<255> 

1250 

data 

0, 36, 

0, 

0, 36, 0 

<B09> 

1260 

data 

0,102, 

0, 

-i 

<072> 

1270 

: 




<230> 

1280 

data 

0, B, 

0, 

0, 64, 0 

<070> 

1290 

data 

0, 0, 

Bi 

0, 0, 64 

<224> 

1300 

data 

0, 0, 

0, 

4, 60, 0 

<033> 

1310 

data 

0, 60, 

0, 

0, 60, 0 

<150> 

1320 

data 

0, 60, 

16, 

8, 24, 0 

<212> 

1330 

data 

13,255, 

0, 

15, 61, 48 

<0BB> 

1340 

data 

0, 61,240, 

0, 24, 0 

<052> 

1350 

data 

0,190, 

0, 

0, 60, 0 

<196> 

1360 

data 

0, 36, 

0, 

0, 36, 0 

< 121 > 

1370 

data 

0, 36, 

0, 

0, 36, 0 

< 131 > 

1380 

data 

0,102, 

0, 

-1 

< 194> 

1390 

: 




<096> 

1400 

data 

0, 32, 

0, 

0, 2, 0 

<056> 

1410 

data 

0, 0, 


2, 0, 0 

■C 1 43> 

1420 

data 

0, 0,- 

32, 

0, 60, 0 

< 200 > 

1430 

data 

0, 60, 

0, 

0, 60, 0 

<014> 

1440 

data 

8, 60, 

0, 

0, 24. 16 

<07B> 

1450 

data 

0,255,152, 

1,188,248 

<227> 

1460 

data 

13, 60, 

0, 

15, 24, 64 

<093> 

1470 

data 

0, 60, 

0 . 

0, 60, 0 

<054> 

1480 

data 

0, 36, 

0. 

0, 36, 0 

<241 > 

1490 

data 

0, 36, 

0, 

0, 3B, 0 

<060> 

1500 

data 

0, 96, 

0, 

-1 

<19B> 

1510 

: 




<216> 

1520 

: 




<226> 

1530 

rem ** Sprite 

register vorbereiten 

<1B0> 

1540 

: 




<24B> 

1550 

print " xclrJ" 


srem schirm loesch 



. 




<075> 

1560 

vic = 53248 

srem grafikbaustein 

< 121 > 

1570 

: 




<022> 

1580 

poke 

2040,13 

srem datenzeiger 0 

<025> 

1590 

poke 

vic,160 

srem horzntl.pos. 0 

<186> 

1600 

poke 

vic+1,129 :rem vertkal.pos. 0 

< 104 > 

1610 

poke 

vic+39,1 

srem 0 ist weiss 

<196> 

1620 

poke 

vic+29,1 

srem sprite 0 hat 

< 060 > 

1630 

poke 

vic+23,1 

srem dopp. groesse 

< 14 1 > 

1640 

poke 

vic+21,1 

:rem sprite 0 ein 

< 151 > 

1650 

: 




<102> 

1660 

: 




< 112> 

1670 

rem ** jonglieren 

beginnt 

< 141 > 

1680 

: 




<132> 

1690 

image = peek 

(2040) +1 

<079> 

1700 

if image = 16 

then image = 13 

<247 > 

1710 

poke 

2040, image 


<202> 

1720 

: 




< 1 72> 

1730 

•for delay = 1 

to 

30 s next delay 

<193> 

1740 

: 




<192> 

1750 

: 




< 202 > 

1760 

rem *■* prog.ende nach tastendruck 

<027> 

17 70 

: 




<222> 

1 780 

get kp$ 



<105> 

1790 

i-f kp* = "" then 

1690 

<087> 

1810 

poke 

vic+21,0 

srem Sprites aus 

<21S> 

1820 

poke 

vic+29,0 

srem und wieder 

<04B> 

1830 

poke 

vic+23,0 

srem normalgroesse 

<251 > 

1B40 

: 




<033> 

1850 

end 




<074> 

Listing 11 

Ausdruck des Programms »Jongleur« 


1810 FOR SPRNUM = 0 TO 3 

1820 : MV(SPRNUM) = -1 * MV(SPNUM) 

1830 NEXT SPRNUM 
1840 DF = -1 - DF 
1850 GOTO 1600 

Zunächst wird die Bewegungsrichtung jedes Sprites durch 
Multiplikation mit -1 umgekehrt, dann, in Zeile 1840, der 
Variablenwert für die Reihenfolge angepaßt. 0 wird zu -1, und 
-1 zu 0. Zeile 1850 schließlich übergibt die Steuerung 
wieder an die Bewegungsschleife, die in Zeile 1600 beginnt. 
Auf diese Weise bewegen sich die Sprites vor und zurück, bis 
ein Tastendruck ihren Tanz unterbricht. 

Die vorliegende Bewegungsschleife bietet eine Vielzahl 
von Variationsmöglichkeiten. Versuchen Sie, andere Bewe¬ 
gungsformen zu realisieren. Dazu einige Vorschläge: 

* Bewegen Sie zwei Sprites gleichzeitig. 

* Bewegen Sie die Sprites bei der Bewegung nach außen 
auf neue Ausgangspositionen zu. 

* Überlagern Sie die Sprites in der Bildmitte vollständig. 


Trickbilder 


ln allen bisherigen Programmen wurde die Bewegung der 
Sprites durch eine Veränderung des jeweiligen Positionswer¬ 
tes bewirkt. Das Sprite selbst änderte dabei seine Form nicht. 
Diesen Effekt können Sie jedoch hervorrufen, wenn Sie 
mehrere unterschiedliche Sprites laden und dann nachein¬ 
ander an derselben Bildschirmposition darstellen, indem Sie 
den Datenzeiger in einer Schleife nacheinander auf die 
Datenblöcke zeigen lassen. Erfolgt die Darstellung der 
einzelnen Sprites schnell genug, so entsteht, ähnlich wie 
beim Trickfilm, der Eindruck einer ständig die Form 
wechselnden Figur. 

Bild 26 zeigt drei Einzelbilder, die in schnellem Wechsel 
übereinandergeblendet werden sollen. Sie stellen einen 
Jongleur in drei verschiedenen Stellungen dar. Die Bewe¬ 
gungsfolge beginnt nach dem dritten Bild wieder mit dem 
ersten. Der Entwurf einer solchen Bildfolge gelingt meistens 
nicht auf Anhieb. Entwerfen Sie zunächst die Einzelbilder, 
wobei jedes Bild die Fortsetzung des vorangegangenen sein 
sollte. Die Bildpunktdaten berechnen Sie wie immer mit Hilfe 
der Entwurfsblätter. Sie benötigen diese Daten im folgenden 
Abschnitt. Hier einige Themen: ein springender Ball, ein 
zwinkerndes Auge, ein lachendes Gesicht, ein blinkender 
Stern, eine sich verlängernde und verkürzende Linie, ein 
Blizzard. 

Listing 11 enthält das Programm »Jongleur«. Es stellt die in 
Bild 26 gezeigten Bilder in der beschriebenen Weise auf dem 
Bildschirm dar. 

Die Zeilen 1100-1130 generieren die Sprite-Daten. Zeile 
1120 enthält eine interessante Einzelheit: 


1120 


IF SPDTA = -1 THEN PRINT 


GOTO 1140 


Ein Sprite wird durch 63 Datenbytes definiert. Wie 
inKapitel 2 beschrieben, zeigt der Datenzeiger jedoch immer 
auf einen Block von jeweils 64 Bytes. Liegen die Daten¬ 
blöcke direkt hintereinander, so lassen sich die Daten mit 
einer einzigen Schleife nacheinander laden, wenn jeder 
Datenblock mit einem vierundsechzigsten Füllbyte aufgefüllt 
wird. Geben Sie nun diesem Füllbyte einen Wert, der in einem 
Datenblock normalerweise nicht vorkommt, so kann das Pro¬ 
gramm das Ende jedes Datenbiocks erkennen und eine ent¬ 
sprechende Meldung ausgeben. Im vorliegenden Programm 
hat das Füllbyte den Wert -1. 

Die drei Datenblöcke der Sprite-Bilder haben die Adressen 
832-894, 896-958 und 960-1022. Durch Division der An- 
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fangsadresse jedes Blocks durch 64 ergeben sich die Werte 
13, 14 und 15 für die Datenzeiger. Das Programm führt die 
Überlagerung der Bilder aus, indem es dem Datenzeiger für 
Sprite 0 (Adresse 2040) in einer Schleife nacheinander die 
Werte 13, 14 und 15 zuordnet und diese Schleife ständig 
wiederholt. 

In den Zeilen 1580-1640 werden die Sprite-Register wie 
gewohnt initialisiert. Da der Datenzeiger für Sprite 0 hier den 
Wert 13 erhält, beginnt die Vorstellung mit dem im Datenblock 
832-894 gespeicherten Bild. 

Die Zeilen 1690-1710 tauschen die Bilder aus: 

1690 IMAGE = PEEK (2040) +1 
1700 IF IMAGE = 16 THEN IMAGE =13 
1710 P0KE 2040, IMAGE 

In Zeile 1690 wird der Wert des aktuellen Datenzeigers um 
1 erhöht. Hat er den Wert 16 erreicht, setzt Zeile 1700 ihn auf 
13 zurück. In Zeile 1710 erfolgt die Eintragung des Wertes in 
die entsprechende Speicherzelle. Der Zeiger durchläuft 
somit die Werte 13, 14, 15 und beginnt dann erneut mit 13. 

Zeile 1730 ist nur eine Verzögerungsschleife. Durch Ver¬ 
änderung des Schleifenendwertes wird der Jongleur 
schneller oder langsamer. 

Die Zeilen 1780-1790 enthalten schließlich die gewohnte 
Tastaturabfrage. Wurde keine Taste betätigt, so wird die 
Steuerung an Zeile 1690 übergeben und das nächste Bild 
angezeigt. Anderenfalls endet das Programm nach Rückset¬ 
zung der Datenzeiger. 

Ersetzen Sie im Programm »Jongleur« nun die Daten in den 


Zeilen 1160-1500 durch die Codes für Ihre eigenen Trickbil¬ 
der, und starten Sie das Programm. Stimmt der Ablauf mit 
Ihren Vorstellungen überein? Experimentieren Sie mit der 
Reihenfolge der Einzeldarstellungen, ändern Sie den 
Endwert der Verzögerungsschleife, benutzen Sie andere 
Daten. Durch derartige Experimente lernen Sie die Anwen¬ 
dung der beschriebenen Programmtechnik. 




Bild 26. 
Anfangsbild 
nach dem 
Start des 
Programms 


1000 

rem *** lustige kollision *** 

<044> 

1480 

- 

< 186> 

1010 

: 




<224> 

1490 

poke vic+39,3 srem 0 ist hellblau 

<193> 

1020 

: 




■ 234> 

15tnj joke vic+40,7 : rem 1 ist gelb 

<129> 

1030 

rem ** sprite- 

daten laden 

<162> 

1510 

poke vic+29,2 :rem nur 1 ist von 

< 187> 

1040 

: 




<000> 

1520 

poke vic+23,2 :rem dopp. groesse 

<033> 

1050 

print "{clr}" 



<022> 

1530 

: 

<236> 

1060 

for n = B32 to 

958 

< 102> 

1540 

poke vic+21,3 srem beide sichtb. 

<064 > 

1070 

: read spdta 



<021 > 

1550 


<002> 

10B0 

: poke n, spdta 


<05B> 

1560 

: 

<012> 

1090 

next 

n 



<198> 

1570 

rem ** bewegung sprite 0 

<223> 

1100 

: 




<060> 

1580 

s 

<032> 

1110 

data 

0,255, 

0 , 

1,129,128 

<200> 

1590 

jr = peek (56320) srem eingang 2 

<203> 

1120 

data 

3, 0,192, 

3, 0,192 

< 104> 

1600 

if (jr and 16) = 0 then 1870 

< 120> 

1130 

data 

3, 0,192, 

6,102, 96 

< 005> 

1610 

hd = sgn(jr and 4) - sgn(jr and 8) 

<172> 

1140 

data 

60,102, 

60, 

96, 0, 6 

<246> 

1620 

vd = sgn(jr and 1) - sgn(jr and 2) 

<202> 

1150 

data 

192, 0, 

3, 

192,102, 3 

<061 > 

1630 

: 

<082> 

1160 

data 

19B, 60, 

99, 

99, 0,198 

<001 > 

1640 

poke vic, peek(vic) + hd 

<026> 

1170 

data 

113,129,142, 

28,195, 56 

<052> 

1650 

pake vic+ 1 , peek(vic+l> + vd 

<006> 

1180 

data 

12,195, 

4B, 

12,102, 48 

< 119> 

1660 

s 

< 112> 

1190 

data 

6 , 60, 

96, 

6 , 0, 96 

< 194> 

1670 

s 

< 122> 

1200 

data 

3,129,192, 

0,195, 0 

< 177> 

1680 

rem ** zurueck, wenn keine kollis. 

<205> 

1210 

data 

0,126, 

0 , 

0 

< 157> 

1690 

s 

< 142> 

1220 

: 




<180> 

1700 

if peek(vic+30> = 0 then 1490 

<100> 

1230 

data 

0 , 0, 

0, 

0 , 16, 0 

<009> 

1710 

: 

< 162> 

1240 

data 

0, 56, 

0 , 

0, 84, 0 

<079> 

1720 

: 

< 172> 

1250 

data 

0 , 16, 

0 , 

2 , 16,128 

<211 > 

1730 

rem #* kollision s 1 wird weiss 


1260 

data 

1, 17, 

0 , 

0,146, 0 

<107> 


und 0 blinkt bunt 

<249> 

1270 

data 

16, 84, 

16, 

32, 56, 8 

<24S> 

1740 

: 

<192> 

12 B0 

data 

127,255,252, 

32, 56, B 

< 195> 

1750 

pake vic+40, 1 

<254> 

1290 

data 

16, B4, 

16, 

0,146, 0 

<190> 

1760 

s 

<212> 

1300 

data 

1, 17, 

0 , 

2 , 16,128 

<079> 

1770 

hue = peek(vic+39> and 15 

<143> 

1310 

data 

0 , 16, 

0 , 

0, 84, 0 

<023> 

1780 

hue = hue + 1 

< 143> 

1320 

data 

0, 56, 

0 , 

0 , 16, 0 

< 113> 

1790 

if hue = B then hue = 1 

<070> 

1330 

data 

0 , 0, 

0 


<182> 

1800 

poke vic+39, hue 

<021 > 

1340 

: 




<046> 

1810 

s 

<00B> 

1350 

: 




<056> 

1820 

goto 1590 

<095> 

1360 

rem ** sprites 

vorbereiten und ein 

<096> 

1830 

s 

<02B> 

1370 

: 




<076> 

1840 

: 

<03B> 

13B0 

vic - 53248 

:rem grafikbaustein 

<195> 

1850 

rem ** ausgangswert und ende 

< 157> 

1390 

poke 

vic+33,0 

srem hgrnd schwarz 

<092> 

1860 

s 

< 05B > 

1400 

: 




< 106> 

1870 

poke vic+ 21,0 

< 116> 

1410 

poke 

2040,13 

:rem datenzeiger 0 

<109> 

1880 

poke vic+29,0 

< 134> 

1420 

poke 

2041,14 

srem datenzeiger 1 

<057> 

1890 

poke vic+23,0 

<13B> 

1430 

: 




<136> 

1900 

s 

<09B> 

1440 

poke 

vic ,120 

srem horzntl.pos. 0 

<030> 

1910 

end 

<134> 

1450 

poke 

vic+2,160 

srem horzntl.pos. 1 

<079> 




1460 

poke 

vic+1,138 

srem vertkal.pos. 0 

<214> 




1470 

poke 

vic+3,126 

srem vertkal.pos. 1 

<209> 

Listing 12. Das Programm »Lustige Kollision« 
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Sprite-Kollisionen 


Es ist für viele Anwendungen nützlich zu wissen, wann 
bestimmte Objekte auf dem Bildschirm miteinander kollidie¬ 
ren. Bei den früheren Heimcomputern war dies sehr schwie¬ 
rig festzustellen. Der Commodore 64 enthält jedoch Schalt¬ 
kreise, die in der Lage sind, solche Kollisionen zu erkennen. 

Die Kollision zweier Sprites wird in Register VIC+30 
(Adresse 53278) registriert. Jedes Bit dieses Register ist 
einem Sprite zugeordnet. Ist ein Sprite in eine Kollision mit 
einem anderen Sprite verwickelt, erhält sein Bit den Wert 1. 
Kollidiert zum Beispiel Sprite 2 mit Sprite 7, so werden die 
Bits 2 und 7 des Registers VIC+30 auf 1 gesetzt. Eine Rück¬ 
setzung dieser Bits auf 0 erfolgt nicht dadurch, daß beide 
Sprites sich wieder voneinander entfernen, sondern nur 
durch einen PEEK-Befehl, mit dem das Register VIC+30 
gelesen wird. 

Das Register VIC+31 (Adresse 53279) registriert Kollisio¬ 
nen zwischen Sprites und Hintergrundobjekten. Hinter¬ 
grundobjekte sind entweder Textzeichen (Textmodus) oder 
Teile einer hochauflösenden Grafik (Grafikmodus). Wie¬ 
derum ist jedem Sprite ein Bit des Registers zugeordnet. Das 
Bit wird bei einer Kollision auf 1 gesetzt. Kollidiert zum Bei¬ 
spiel Sprite 5 im Textmodus mit einem Textzeichen, so erhält 
Bit 5 in Adresse VIC+31 den Wert 1. Das Bit behält diesen 
Wert, bis das Register mit einem PEEK-Befehl gelesen wird. 

Listing 12 enthält das Programm »Lustige Kollision«. Es ent¬ 
hält Beispiele zum Lesen der Steuerknüppelregister und zur 
Registrierung der Kollisionen zweier Sprites. Geben Sie das 
Programm ein, speichern und starten Sie es. Daraufhin wer¬ 
den die in Bild 27 dargestellten Sprites sichtbar. Benutzen 
Sie einen an Eingang 2 angeschiossenen Steuerknüppel, um 
das Gesicht auf der Wetterfahne zu bewegen. Beachten Sie, 
was geschieht, wenn die beiden Sprites kollidieren. Ein 
Druck auf den Feuerknopf beendet das Programm. 

Die Zeilen 1050-1090 laden die Daten für beide Sprites, 
die Zeilen 1380-1540 initialisieren die erforderlichen VIC- 
Register und aktivieren die Sprites. 


Bild 27. Anfangsbild nach dem Start des Programms 
»Lustige Kollision« 


der Wert in Klammern gleich oder größer als 0 ist. Je nach 
Stellung.des Steuerknüppels erhält HD, die Variable für die 
horizontale Bewegung, den Wert -1, 0 oder 1. Die gleichen 
Werte kann VD, die Variable für die vertikale Bewegung, 
annehmen. Beide Bewegungsvariablen werden dann be¬ 
nutzt, um die neue Position für Sprite 0 festzulegen. 

Zeile 1700 überprüft das Register, in dem die Kollision 
zweier Sprites registriert wird. Findet keine Kollision statt, 
springt das Programm zurück, aktiviert wieder die alten 
Sprite-Farben und fragt erneut das Steuerknüppelregister 
ab. Ist dagegen eine Kollision erfolgt, so werden in den Zeilen 
1750-1800 erst die Sprite-Farben geändert, ehe das Pro¬ 
gramm zur Abfrage des Steuerknüppels springt. 


Zusammenfassung 


ln diesem Kapitel haben Sie gelernt: 

die VIC.II-Register so zu programmieren, daß ein Sprite 

in vier Farben dargestellt wird, 

ein mehrfarbiges Sprite zu entwerfen, 

zu erkennen, welche Sprites bei einer Überlagerung 

sichtbar bleiben, 

weitere Einzelheiten, um mehrere Sprites gleichzeitig zu 
bewegen, 

mit Hilfe eines durch eine Programmschleife gesteuer¬ 
ten Datenzeigers eine Tricksequenz aus mehreren Spri¬ 
tes zu erzeugen. 

Sprite-Kollisionen abzufragen 

Ein Kurs dieses Umfangs kann Ihnen nur Anfangskenntnis¬ 
se : Jer Programmierung von Sprites vermitteln. Durch 
Experimente mit den vorgestellten und mit eigenen Program¬ 
men werden Sie Ihre Kenntnisse jedoch schnell vertiefen. 


Selbsttest 


1. Im Mehrfarbenmodus wird ein Doppelbildpunkt durch 

zwei Bits definiert. Damit lassen sich.Farben darstel¬ 

len. 

2. Da Sprites im Mehrfarbenmodus nur eine Breite von 12 

Doppelbildpunkten besitzen, ist ihre.Auflösung klei¬ 

ner als die eines einfarbigen Sprites. 

3. Welche Sprites werden durch den Befehl POKE 
VIC+28,15 im Mehrfarbenmodus dargestellt ? 

4. Welches Sprite hat bei der Überschneidung mehrerer 
Sprites die höchste Priorität ? 

5. Welches Aussehen haben die Sprites, die sich im Pro¬ 
gramm »Sprite-Überlagerung« durch folgende Pro¬ 
grammzeilen ergeben: 




Nun folgt der Hauptteil des Programms. Zeile 1590 liest 
den Wert des E/A-Registers mit der Adresse 56320. Wie Sie 
vielleicht wissen, ist diese Adresse dem Steuerknüppel in 
Eingang 2 zugeordnet. In Zeile 1600 wird eine AND-Funktion 
benutzt, um festzustellen, ob der Feuerknopf gedrückt ist. Ist 
das der Fall, so endet das Programm mit der Rücksetzungs¬ 
routine ab Zeile 1870. 

Die Zeilen 1610-1620 bestimmen aus dem Wert in Register 
56320 die auszuführende horizontale und vertikale Bewe¬ 
gung, und zwar auf eine schnelle und trickreiche Weise. Mit 
Hilfe der AND-Funktion ergeben sich die Werte der den ein¬ 
zelnen Schaltern zugeordneten Bits. Die SGN-Funktion lie¬ 
fert entweder den Wert 0 oder den Wert 1, je nachdem, ob 


1100 FOR N = 832 TO 894 STEP 3 
1105 : POKE N, 225 

1110 : POKE N+l, 195 

1115 : POKE N+2, 135 

6. Betrachten Sie die Zeilen 1610-1620 im Programm 

»Sprite-Überlagerung«. Welchen Wert erhält SPRNUM 
in den Zeilen 1610 und 1620, wenn COUNT den Wert 
120 und DF den Wert 0 hat ? 

7. Wie viele Punkte (.) werden neben der 
Programmeldung im Programm »Jongleur« auf dem 
Bildschirm ausgegeben, während die Sprite-Daten 
gelesen werden? 
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8. Welche Wirkung hat eine Änderung des Endwertes 
der Verzögerungsschleife von 30 auf 100 im 
Programm »Jongleur«? 


Programmierübungen 


1. Modifizieren Sie das Programm »Vierfarben-Sprite« 
derart, daß aus den vorhandenen Sprite-Codes ein 
zweites Sprite erzeugt und ebenfalls im Mehrfar¬ 
benmodus angezeigt wird. 

2. Modifizieren Sie das Programm »Sprite-Ueberlagerung« 
derart, daß sich die vier Sprites in der Bildschirmmitte 
vollständig überlagern. 

3. Ändern Sie das Programm »Jongleur«, so daß sich die 
Kugeln des Jongleurs zunächst im Uhrzeigersinn 
bewegen, nach einer Weile die Richtung ändern, sich 
dann wieder rechts herum bewegen, und so weiter. 


Antworten zum Selbsttest 


1000 REM *** ZWEI VIERFARBEN-SPRITES *** 


1315 POKE 2041,14 
1353 POKE VIC+2,160 
1356 POKE VIC+3,69 
1370 POKE VIC+23,3 
1380 POKE VIC+29,3 
1400 POKE VIC+28,3 
1435 POKE VIC+40,2 
1460 POKE VIC+21,3 


REM ZEIGER SPRITEI 
REM SPRITE 1 HPOS. 
REM SPRITE 1 VPOS. 
REM VERLAENGERN 
REM VERBREITERN 
REM 0+1 MEHRFARBEN 
REM SPRITE 1 ROT 
REM SPRITE 0+1 EIN 


2. Laden Sie das Programm »Sprite-Überlagerung« und 
geben Sie die folgenden Zeilen ein: 

1000 REM *** TOTALUEBERLAGERUNG *** 

1250 POKE VIC,210 :REM HORZNTL.POS. 0 
1260 POKE VIC+2,110 :REM HORZNTL.POS. 1 
1270 POKE VIC+4,160 :REM HORZNTL.POS. 2 
1280 POKE VIC+6,160 :REM HORZNTL.POS. 3 
1300 POKE VIC+1,129 :REM VERTKAL.POS. 0 
1310 POKE VIC+3,129 :REM VERTKAL.POS. 1 
1320 POKE VIC+5,179 :REM VERTKAL.POS. 2 
1330 POKE VIC+7,79 :REM VERTKAL.POS. 3 


1. vier 

2. horizontale 

3. 0, 1, 2 und 3 

4. 0 

5. Jedes Sprite besteht aus vier vertikalen Streifen 
(Bild 28). 

6 . 2 

7. 3 

8. Die Bewegungen verlangsamen sich. 


3. Laden Sie das Programm »Jongleur«, und geben Sie 
die folgenden Zeilen ein: 

1000 REM *** RECHTS-LINKS-JONGLEUR *** 

1655 JUGDIR =1 :REM IM UHRZEIGERS. 

1690 IMAGE = PEEK (2040) + JUGDIR 
1705 IF IMAGE = 12 THEN IMAGE = 15 
1712 : 


1 ■ 5 COUNT = COUNT + 1 

1718 IF INT (COUNT/27) = COUNT/27 

THEN JUGDIR = -JUGDIR : COUNT = 0 


Lösungsvorschläge für die 
Programmierübungen 


Die folgenden Lösungen sind Änderungen oder Erweiterun¬ 
gen der in diesem Kapitel besprochenen Programme. 

1. Laden Sie das Programm »Vierfarben-Sprite«, und geben 
Sie die folgenden Zeilen ein: 



Bild 28. Die in Aufgabe 5 des Selbsttests genannten 
Programmzeilen ergeben dieses Sprite 


Damit sind wir am Ende unseres Sprite-Kurses angelangt. 
Was Ihnen jetzt noch zu tun bleibt, ist das hier Gelernte in 
praktische Programme umzusetzen, etwa in Spiele. 
Natürlich können dabei noch Schwierigkeiten auftreten, aber 
mit diesem Kurs haben Sie alles nötige Wissen über Sprites 
an der Hand. (Stan Krute/ev) 
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Wie wär’s mit: 


IS löxetpn - r ponp« 4 ? 


Hätten Sie gewußt, daß die Hieroglyphen 
in der Überschrift »Zeichen selber 
machen« bedeuten? Wir zeigen Ihnen, wie 
Sie solche oder ähnliche Zeichen selbst 
gestalten können und was dabei zu be¬ 
rücksichtigen ist. 

E s gibt viele Anwendungen, die das Arbeiten mit einem 
abgeänderten Zeichensatz erforderlich machen. Viel¬ 
leicht wollen Sie mathematische Sonderzeichen 
darstellen, ein griechisches Textverarbeitungs-Programm 
schreiben oder Spiele programmieren, die einen abgeänder¬ 
ten Zeichensatz benutzen. Wie auch immer, zuerst müssen 
wir uns die Frage stellen: »Was ist bei der Gestaltung eines 
Zeichensatzes zu beachten?« 

Wir müssen uns überlegen, wo der neue Zeichensatz lie¬ 
gen soll. Möchte man kein vom Basic aus nutzbares RAM ver¬ 
wenden, bleibt nur der Bereich von $A000 bis $FFFF. Aber 
genau das ist für viele Programmierer die Schwierigkeit. Der 
Grund dafür ist der, daß der im C 64 eingebaute Videocon¬ 
troller immer nur eine 16-KByte-Bank »sieht«. Das heißt, daß 
der Bildschirm, also das Video-RAM und der Zeichensatz in 
dergleichen 16-KByte-Bank liegen müssen. Eine Ausnahme 
bildet dabei die Einschaltkonfiguration. Denn hier liegt der 
Bildschirm bekanntlich bei $400 und der Zeichensatz bei 
$D000 unter dem I/O-Bereich, in dem die Register der Peri¬ 
pheriebausteine liegen, zum Beispiel auch die des Videocon¬ 
trollers (Bild 1). Die Einschaltkonfiguration ist aber eine hard¬ 
waremäßige Maßnahme und läßt sich von einem Programm 
aus nicht nachbilden. Der Videocontroller beziehungsweise 
das Zeichensatz-ROM ist nämlich so verdrahtet, daß der Zei¬ 
chensatz vom Videocontroller aus gesehen bei $1000 liegt. 
Vom Prozessor aus gesehen liegt er aber bei $D000. Das ist 
übrigens auch der Grund dafür, warum sich ein beliebiger Zei¬ 
chensatz nicht ins RAM nach $1000 legen läßt. Denn die 
Register im Controller sind so gesetzt, als läge der Zeichen¬ 
satz tatsächlich ab $1000. 

Wir wollen den neuen Zeichensatz in das RAM nach 
$E000 legen und das Video-RAM nach $CC00. Das hat den 
Vorteil, daß kein nutzbares RAM verlorengeht. Wir müssen 
uns aber jetzt um zwei Dinge kümmern: 

1. Wie bekomme ich den Zeichensatz vom ROM ins RAM? 
2. Welche Speicherzellen müssen verändert werden, so 
daß der Computer den neuen Zeichensatz und das neue 
Video-RAM akzeptiert? 

Es ist unmöglich, mit einem Basic-Programm den Original¬ 
zeichensatz auszulesen. Denn das Basic-ROM und das 
Betriebssystem müssen ausgeblendet werden, um auf die 
Bank zu schalten, in der der Zeichensatz liegt (Bild 1). Dazu 
existiert im Computer die Speicherzelle 1. Wir wollen uns hier 
kurz mit den Bits 0,1 und 2 beschäftigen, die für das Ein- und 
Ausblenden der verschiedenen RAM- oder ROM-Konfigura- 
tionen verantwortlich sind. 

Bit 0: Ist dieses Bit auf »0« gesetzt, wird der Bereich von 
$A000 bis $BFFF auf RAM geschaltet. Daraus folgt, daß das 
Basic-ROM ausgeblendet wird (Bild 2). 

Bit 1 : Wird dieses Bit auf »0« gesetzt, so wird der Bereich 
von $A000 bis $BFFF und zusätzlich noch der Bereich von 
$E000 bis $FFFF auf RAM und der Bereich von $D000 bis 


$DFFF auf Zeichensatz-ROM geschaltet. Dies ist die Spei¬ 
cherbelegung, in der wir den Zeichensatz auslesen können. 
Bei dieser Konfiguration existiert aber weder das Basic noch 
das Betriebssystem (Bild 3). 

Bit 2: Dieses Bit blendet, wenn es auf »0« gesetzt ist, das 
gesamte ROM aus. Hier existieren also volle 64 KByte RAM 
(Bild 4). 

Die Routine zum Kopieren des Zeichensatzes läßt sich, wie 
oben erwähnt, nicht in Basic schreiben. Es bleibt also nur ein 
Maschinenprogramm. Um aber auch dem Anfänger das Pro¬ 
gramm verständlich zu machen, möchte ich zuerst ein Basic- 
Programm vorstellen, mit dem das Kopieren des Zeichensat¬ 
zes denkbar wäre. Anschließend wird dieses Programm in 
Maschinensprache umgesetzt. 

Also zuerst das Basic-Programm: 

10 P0KE1,PEEK(1)AND253:KEM BIT 1 AUSBLENDEN 
20 V0N=53248:NACH=57344 

30 FOR X=0 TO 4096: REM ANZAHL DER ZU KOPIERENDEN 
BYTES 

40 POKE NACH+X,PEEK(VON+X) 

50 NEXT 

60 POKE1,PEEK(1)0R2:REM BIT 1 EINBLENDEN 

Nun das entsprechende Assembler-Programm: 

10 -.EQ V0N=53248 
20 -.EQ NACH=57344 


30 

-.EQ X=4096 


40 

-.BA $0000 


50 

- 

LDA 

# <(V0N) 

;»VON« WIRD IM HI/L0-BYTE 





FORMAT 

60 

- 

LDX 

* 

V 

I 


70 

STA 

$FA 

;NACH $FA/$FB GESPEICHERT 

80 

- 

STX 

$FB 


90 

- 

LDA 

# <(NACH);DAS GLEICHE FUER »NACH« 

100 

- 

LDX 

# >(NACH) 

110 

- 

'STA 

$FC 


120 

- 

STX 

$FD 


130 

- 

LDY 

#0 

;ZAEHLER MIT NULL 





VORBELEGEN 

140 

- 

STY 

$FE 


150 

- 

STY 

$FF 


151 

- 

LDA 

1 

;BIT 2 AUSBLENDEN 

152 

- 

AND 

#253 


153 

- 

STA 

1 


160 

-LOOP 

LDA 

($FA),Y 

;DEN AKKU MIT »VON« LADEN 

170 

- 

STA 

($FC),Y 

;UND NACH »NACH« SPEICHERN 

180 

- 

INC 

$FA 

;»VON« UM 1 ERH0EHEN 

190 

- 

BNE 

WE 


200 

- 

INC 

$FB 


210 

-WE 

INC 

$FE 

;»NACH« UM 1 ERH0EHEN 

220 

- 

BNE 

WE1 


230 

- 

INC 

$FF 


240 

-WE1 

INC 

$FE 

;ZAEHLER UM 1 ERH0EHEN 

250 

- 

BNE 

WE2 


260 

- 

INC 

$FF 


270 

-WE2 

LDA 

$FE 

;ZAEHLER-»X« 

280 

- 

SEC 



290 

- 

SBC 

#<(x) 


300 

- 

LDA 

$FF 


310 

- 

SBC 

#>(x) 


320 

- 

BCC 

LOOP 

;IST DAS ERGEBNIS NEGATIV 





DANN NACH LOOP 

330 

- 

LDA 

1 

;ANSONSTEN BIT 2 WIEDER 





EINBLENDEN 

340 

- 

0RA 

#2 


350 

- 

STA 

1 


360 

- . 

RTS 


;UND ZURUECK INS BASIC 
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Bild 3. Speicherbelegung für den Fall, 
daß Bit 1 auf »0« gesetzt ist 


Natürlich läßt sich der Zeichensatz auch in jeden beliebi¬ 
gen RAM-Bereich verschieben. Dazu muß nur der Variablen 
»NACH« ein anderer Wert zugewiesen werden. 

Wird der oben stehende Quelltext mit »Hypra-Ass« assem- 
biiert, so kopiert der Befehl SYS 49152 den Zeichensatz an 
die Adresse, dessen Wert in der Variablen »NACH« abgelegt 
wurde. 

So, jetzt ist der Zeichensatz kopiert aber, noch nicht akti¬ 
viert. Dazu muß dem Videocontroller die neue Startadresse 
des Zeichensatzes mitgeteilt werden. 

Im Videocontroller existiert das Register 24 bei Adresse 
SD018 oder dezimal 53272. Dieses Register ist für die Lage 
des Zeichensatzes und des Video-RAMs verantworlich. Es 
besteht, wie alle anderen Register auch, aus 8 Bit. Die Bits 
1, 2 und 3 bestimmen die Lage des Zeichensatzes und die 
Bits 4, 5, 6 und 7 die Lage des Video-RAMs. Außerdem muß 
noch die 16 KByte-Bank, die der Videocontroller »sehen« 
soll, angewählt werden. Dazu dient die CIA2, und zwar das 
Register 0. Die entsprechende Adresse ist $DD00 bezie¬ 
hungsweise dezimal 56567. Die beiden niederwertigen Bits, 
also Bit 0 und 1 legen nun die entsprechende 16 KByte-Bank 
fest. Die Lage ist wie folgt definiert: 



Bild 4. Ist Bit 2 auf »0« gesetzt, dann liegt diese 
Speicherbelegung vor 


xxxx xxxOO: Bank 3 = Adresse $C000 (49152) bis 
$FFFF (65535) 

xxxx xxxOl: Bank 2 = Adresse $8000 (32768) bis 
$BFFF (49151) 

xxxx xxxlO: Bank 1 = Adresse $4000 (16384) bis $7FFF 
(32767) 

xxxx xxxll: Bank 0 = Adresse 0 bis $3FFF (16383) 

Soll nun der mit dem oben stehenden Programm verscho¬ 
bene Zeichensatz bei $E000 aktiviert werden, geben Sie die 
Zeile: POKE 56576,PEEK(56576)AND252:P0KE 53272,56 
ein. Der erste Teil der Zeile, bis zum Doppelpunkt, definiert die 
Lage der 16 KByte-Bank und der zweite Teil die Lage des Zei¬ 
chensatzes und des Video-RAMs. Die Zahl, die in das Regi¬ 
ster 24 gePOKEt wird, setzt sich wie folgt zusammen: 

Die Adresse des Zeichensatzes $E000 entspricht binär 

1110 0000 0000 0000 

Die Bits 14 und 15 werden bedingt durch die Wahl der 16 
KByte Bank auf »1« gesetzt. Die Bits 13, 12 und 11, also 
»100«, entsprechen nun den Bits 3, 2 und 1 im Register 24 
des Videocontrollers. Das Bit 0 ist nicht belegt. 

Die Adresse des Video-RAMs $CC00 entspricht binär 

1100 1100 0000 0000 
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Die Bits 14 und 15 werden wieder entsprechend auf 1 
gesetzt. Die nun folgenden 4 Bits 13, 12, 11 und 10, also 
»0011« tauchen wieder als Bit 7, 6, 5, 4 im Register 24 des 
Videocontrollers auf. 

Setzt man die Bits für den Zeichensatz und für das Video- 
RAM zusammen, ergibt sich die binäre Zahlenkombination 

0011 lOOx 

Das »x« steht für beliebig. Hier kann entweder eine »1«oder 
»0« eingesetzt werden. Daraus folgt, daß in das Register 24 
entweder hexadezimal 38 oder 39 beziehungsweise dezimal 
56 oder 57 gePOKEt werden muß. 

Wenn Sie voller Erwartung die oben stehenden POKEs ein¬ 
gegeben haben, waren Sie sicherlich enttäuscht; denn der 
Cursor war weder zu erkennen, noch ließ sich irgend etwas 
auf dem Bildschirm darstellen. Dem Betriebssystem fehlte 
nämlich noch die Information, an welcher Stelle im RAM der 
Bildschirm zu finden ist. Aber auch dafür existiert ein POKE. 
Ergänzen Sie die oben stehenden POKEs zu 
POKE 56576,PEEK(56576)AND252:POKE 53272,56:P0KE 
648,204 <RETURN> 

Die Zahl, die in die Speicherzelle 648 gePOKEt wird, setzt 
sich aus den oberen vier Bit der Adresse zusammen, bei der 
das Video-RAM beginnt. Also für $CC00 entsprechend $CC 
oder dezimal 204. 

Jetzt müßte es funktionieren. Das heißt, der neue Bild¬ 
schirm muß noch gelöscht werden. 

Der Zeichensatz ist nun verschoben und der Computer 
darauf abgestimmt. Wie aber lassen sich nun die Zeichen 
abändern, was ja schließlich der Sinn dieses Artikels sein 
sollte? 

Dazu müssen wir uns zuerst mit dem Aufbau eines Zei¬ 
chens und dem Aufbau des Zeichensatz-ROMs beschäfti¬ 
gen. 

Jedes einzelne Zeichen besteht aus einer 8*8 Punkt- 
Matrix. Alle in dieser Matrix enthaltenen Punkte können ent¬ 
weder gesetzt oder nicht gesetzt sein; ein nichtgesetzter 
Punkt entspricht einer »0« und ein gesetzter entsprechend 
einer »1«. Jedes Zeichen ist nun zeilenweise gespeichert zu 
je 8 Bit beziehungsweise einem Byte. Das soll an dem Buch¬ 
staben »A« demonstriert werden: 


** 

0001 1000 

18 

024 

**** 

0011 1100 

3C 

060 

** ** 

0110 0110 

66 

102 

****** 

= 0111 1110 

= 7E 

= 126 

** ** 

0110 0110 

66 

102 

** ** 

0110 0110 

66 

102 

** ** 

0110 0110 

66 

102 


0000 0000 

00 

000 


binär 

hex 

dez 


Die Bytes liegen nun von oben angefangen nacheinander 
im Speicher, also hexadezimal: 

18 3C 66 7E 66 66 66 00 

Um das zu kontrollieren, versuchen Sie einmal, den Zei¬ 
chensatz von $D000 nach $2000 zu verschieben und auch 
dort zu aktivieren. Für ganz Eilige schon hier die Lösung: 
Belegen Sie im oben stehenden Quelltext die Variable 
»NACH« mit $2000 beziehungsweise dezimal 8192 (Zeile 
20). Nach dem Assemblieren mit Hypra-Ass kann der Zei¬ 
chensatz mit SYS 49152 nach $2000 verschoben und mit 
den POKEs: 

POKE 56576,PEEK(56576)0R3:P0KE 53272,24.-P0KE 648,4 
<RETURN> 

aktiviert werden. Hatten Sie den Computer zwischenzeitlich 
mal ausgeschaltet, ist nur ein POKE 53272,24 erforderlich. 
Denn der erste und letzte POKE stellen den Computer wie¬ 
der auf die Einschaltkonfiguration. 

Setzen Sie einen Monitor (zum Beispiel SMON) ein, läßt 


sich die hexadezimale Darstellung des Zeichens »A« ab 
Adresse $2008 mit dem Befehl »M 2008« auflisten. Ändern 
Sie einmal den Inhalt einer Adresse zwischen $2008 und 
$2010 ab. Sie werden feststellen, daß sich alle »A« auf dem 
Bildschirm entsprechend verändern. 

Warum ist das Zeichen »A« ab Adresse $2008 zu finden? 
Wie schon beschrieben, werden die Zeichen byteweise hin¬ 
tereinander im Speicher zu je 8 Byte abgelegt. Ein Blick in 
das Bedienungshandbuch zum C 64 wird Ihnen zeigen, daß 
das Zeichen »A« den Bildschirmcode »1« hat. Mit 8 multipli¬ 
ziert und zur Startadresse $2000 hinzugezählt ergibt das die 
Startadresse $2008 für das Zeichen »A«. Die Startadresse 
der anderen darstellbaren Zeichen läßt sich genauso ermit¬ 
teln. 

Für diejenigen, die gerne Spiele programmieren, gibt es 
noch eine weitere interessante Möglichkeit, den Multicolor- 
Modus. Um diesen einzuschalten, existiert im Videocontrol¬ 
ler das Register 22 bei Adresse $D016 (53270), und zwar 
das Bit 4. Ist dieses Bit auf 1 gesetzt, befindet sich der Video¬ 
controller im Multicolor-Modus. Vom Basic aus läßt sich die¬ 
ser Modus mit: 

POKE 53270,PEEK(53270)0R16 <RETURN> 
einschalten und mit: 

POKE 53270,PEEK(53270)AND239 <RETURN> 
wieder ausschalten. 

Versuchen Sie doch gleich einmal, den Multicolor-Modus 
mit der ersten der beiden Zeilen einzugeben. Sie werden nur 
noch unleserliche Zeichen auf dem Bildschirm entdecken. 
Woran liegt das nun? 

Nun, wie Sie vielleicht wissen, existiert neben dem Video- 
RAM auch ein Farb-RAM, in dem der Computer die Farbinfor¬ 
mationen für die Bildschirmdarstellung speichert. Dieses 
Farb-RAM liegt im Bereich von $D800 bis $DBFF und kann 
nicht ••■rschoben werden. Da es vom Umfang her 1 KByte 
groß ist, kann im normalen Modus jedem Zeichen eine andere 
Farbe gegeben werden. Jede Bildschirmposition hat ein kor¬ 
respondierendes Byte im Farb-RAM. Auf die Farbgebung der 
Zeichen haben aber nur die vier unteren Bits, also Bit 3, 2, 1 
und 0 eine Wirkung. Dabei hat Bit 3 eine spezielle Bedeu¬ 
tung. Ist es gesetzt, so wird das Zeichen im Multicolor- 
Modus, ist es nicht gesetzt, im Normal-Modus dargestellt. 
Daher lassen sich Multicolor- und normale Zeichen beliebig 
auf dem Bildschirm mischen. Jedem Multicolor-Zeichen wer¬ 
den in Abhängigkeit von den im Zeichensatz gesetzten Bits 
drei Farben zugeordnet. Dazu wird jedes Byte in vier Bit- 
Paare aufgeteilt. Nehmen wir als Beispiel wieder das Zeichen 
»A«, dann würde das so aussehen: 


** 

00 01 10 00 

**** 

00 11 11 00 

** 

** 

01 10 01 10 

****** 

= 01 11 11 10 

** 

** 

01 10 01 10 

** 

** 

01 10 01 10 

** 

** 

01 10 01 10 

00 00 00 00 


Die Farbzuordnung der einzelnen Bit-Paare ist wie folgt 
definiert: 

00: Hintergrundfarbe 0 = Bildschirmfarbe = Adresse = 
$D021 (53281) 

01 : Hintergrundfarbe 1 = Adresse $D022 (53282) 

10: Hintergrundfarbe 2 = Adresse $D023 (53283) 

11: Sind diese beiden Bits in einem Bit-Paar gesetzt, wird 
die Farbe gesetzt, die durch die 3 unteren Bits, also Bit 2, 1 
und 0, im Farb-RAM definiert wurde. 

Mit den Informationen, die Sie hier erhalten haben, dürfte 
die Gestaltung eines Zeichensatz-Generators kein Problem 
mehr sein. Lassen Sie Ihrer Kreativität freien Lauf. 

(ah) 
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Graphic Art - 
die Antwort 
auf das 
Spriteproblem 

Einfarb- und Mehrfarbsprites lassen sich 
mit diesem Programm leicht, übersichtlich 
und vor allem schnell erstellen, bearbeiten 
und speichern. 

D ieser Sprite-Editor (Listing 1 und 2) besteht aus zwei 
Teilen: einem Maschinenspracheteil, der schnelle 
Routinen zur Cursorsteuerung und zum Verschieben 
enthält und einem Basic-Teil, der der Tastaturabfrage dient. 
Diese »Zweiteilung« wirkt sich aber in keiner Weise auf die 
Gesamtgeschwindigkeit des Programms aus. Vielmehr er¬ 
spart sie beim Abtippen die Eingabe stupider Zahlenkolon¬ 
nen. Das Basic-Programm baut das Menü auf und läßt die ver¬ 
wendeten Sprites an der richtigen Position erscheinen 
(Bild 1 rechts oben in den vier Kästchen). Malt man mit »Gra¬ 
phic Art« seine Figur, so wird sie gleich als Sprite oben in der 
rechten Ecke angezeigt (und zwar normal und in x-, y- und x/y- 
Richtung vergrößert). So hat man sein Ergebnis immer gleich 
vor Augen. 

Der Basic-Teil (Listing 1) steuert auch noch die Disketten- 
Operationen. So lassen sich die eben erstellten Sprites 
abspeichern oder alte zur weiteren Verschönerung einiesen. 
Man kann den Fehlerkanal abfragen und Disketten-Befehle 
senden. 

Im Maschinenteil sind all die Routinen untergebracht, die in 
Basic zu langsam wären. Dieses sind zum Beispiel die Cur¬ 
sorsteuerung und das eigentliche Zeichnen, der Aufbau der 
Zeichenmatrix und, nicht zu vergessen, die Scroll-Routinen. 
Mit »Graphic Art« lassen sich in Sekundenschnelle die Spri¬ 
tes in alle Richtungen verschieben (dieses ist sehr wichtig, 
wenn man sich beim Zeichnen mal um ein paar Bildschirmpo¬ 
sitionen geirrt hat). 

Die Bedienung von Graphic Art 


So, dieses erst einmal zu den Möglichkeiten und zum Aufbau 
des Programms. Doch nun zur Bedienung von »Graphic Art«. 
Nachdem man den Basic-Teil gestartet hat, wird der Maschi¬ 
nenspracheteil (Listing 2) nachgeladen (er steht dann von 
49152 -$C000- bis SC700- 50944). Anschließend 
erscheint das Menü im Mehrfarbmodus. Die Umschaltung in 
den Einfarbmodus (und wieder zurück) erfolgt durch 
Drücken der M-Taste. Es wird dann ein ähnliches Menü neu 
aufgebaut. 

Nachdem Sie sich für die Art der Sprites entschieden 
haben, kann es ans Zeichnen gehen. Gezeichnet wird nur mit 
dem Joystick (PORT 2), wobei ein Druck auf den Feuerknopf 
einen Punkt setzt beziehungsweise wieder löscht. Auf eine 
zusätzliche Steuerung mit den Cursor-Tasten wurde verzich¬ 
tet, da über diese Tasten das Verschieben der Sprites gere¬ 
gelt wird. Dieses geht nicht nur schnell, sondern damit auch 


in den gewohnten Richtungen besonders einfach und über¬ 
sichtlich. 

Die Spritefarben werden alle über die Funktionstasten 
gesteuert, wobei F1/F2 für die Hauptspritefarbe ($D027), 
F3/F4 für die Hintergrundfarbe (es erscheint ein Farbfenster 
direkt hinter den Sprites), F5/F6 für die erste Nebensprite- 
farbe ($D025 - nur wichtig für den Multicolour-Modus) und 
F7/F8 für die Nebenfarbe 2 ($D026) gilt. 

Im Multicolour-Modus werden alle drei Farben angezeigt 
(Multicolour-Sprites erlauben das Zeichnen mit höchstens 
drei Farben). Das gleiche gilt auch für die aktuelle Zeichen¬ 
farbe. Sie kann man aus den Spritefarben 1 bis 3 durch 
Drücken von SHIFT und der entsprechenden Farbnummer 
(also 1, 2 oder 3) herauswählen. Der Zeichenfarbwechsel 
wird dann angezeigt. 

Um im Multicolour-Modus Sprites zu erstellen, gehen Sie 
am besten so vor: Zuerst entscheiden Sie, welche drei Far¬ 
ben Ihr Sprite haben soll (mit F-Tasten). Anschließend wählen 
Sie die Zeichenfarbe und beginnen zu zeichnen. Achtung, 
wenn Sie eine der drei Farben wechseln wollen, so wird jeder 
Punkt, der mit dieser Farbe gezeichnet wurde, auf die neu 
eingestellte Farbe umgestellt! Sollte die Farbe, die geändert 
wird, die aktuelle Zeichenfarbe sein, so passen Sie bitte 
anschließend die Zeichenfarbe neu an (mit SHIFT und Farb¬ 
nummer), da sich das Programm nicht merkt, welche der drei 
Farben die Zeichenfarbe ist. 


Der Spritepuffer 


Mit »Graphic Art« lassen sich acht Sprites direkt im Computer 
ableaen. Dem Benutzer stehen folglich acht «Sprite- 
Ableg^jereiche« zur Verfügung, in die man durch Drücken 
der »t «-Taste den gerade sichtbaren Bereich hineinschreiben 
kann. Zurückholen läßt sich das Sprite mit der »««-Taste. 
Natürlich wird das gerade sichtbare Sprite dabei überschrie¬ 
ben. »Graphic Art« bietet auch die Möglichkeit des Spei- 
cherns der Spritedaten auf Diskette sowie (für nicht-Floppy- 
Besitzer) der Ausgabe der Daten auf Bildschirm und Drucker. 

Drücken Sie »A« für Ausgabe und im unteren Teil des 
Menüs erscheinen die drei Wahlmöglichkeiten. Drücken Sie 
nun »1« für Diskette, so wird das Sprite, nachdem ihm ein 
Name gegeben wurde, auf Diskette als SEQ-Datei gespei¬ 
chert und läßt sich nun leicht in eigene Programme nachladen 
(so erspart man sich die DATA-Zeilen - aber Achtung: die Far¬ 
ben werden nicht mit gespeichert! Sie müssen nach Laden 
der Daten in die entsprechenden Farbregister gePOKEt wer¬ 
den). 

Wer lieber DATAs mag oder kein Disketten-Laufwerk hat, 
der kann sich die Spritedaten ausdrucken oder auf dem Bild¬ 
schirm ausgeben lassen. In diesem Fall wird man noch 
gefragt, ob das Programm beendet werden soll. Wenn ja, so 
ist der Editor gelöscht. Dafür stehen nun in den Zeilen 1 bis 
6 die Spritedaten. Diese können nun mit einem MERGE in Ihr 
Programm übernommen werden. 

Natürlich ist es auch möglich, gespeicherte Sprites wieder 
zu laden und weiter zu bearbeiten. Dazu drückt man die 
—-Taste. 

Floppy-Besitzer werden sich freuen, denn »Graphic Art« 
läßt auch die Eingabe von Disketten-Befehlen zu. So kann 
man eine Diskette neu formatieren, ein File löschen und so 
weiter. Dieses und die Abfrage des Fehlerkanals wird durch 
den Druck auf die Klammeraffen-Taste ermöglicht (eine 
Anmerkung noch: alle Untermenüs können durch Drücken 
der RETURN-Taste verlassen werden). 

Damit ist die Bedienung der Aus- und Eingabegeräte 
erklärt. Ich will nun auf das Zeichnen selbst mit »Graphic Art« 
noch ein wenig genauer eingehen. 
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Normalerweise wird durch Drücken des Feuerknopfes ein 
Punkt gesetzt oder gelöscht. Durch ständiges Drücken kann 
das Ziehen einer horizontalen Linie erreicht werden. Ist 
jedoch das Zeichnen einer vertikalen Linie erwünscht, so 
schaltet man den DRAW-Modus ein (durch Drücken von D- 
an/Shift D-aus). Nun wird jeder Punkt, über den man mit dem 
Cursor fährt, gesetzt (oder gelöscht). So ist ein Zeichnen von 
Linien sehr einfach. 

So wird gezeichnet 


Manchmal ist das Löschen aber dabei nicht erwünscht (zum 
Beispiel wenn eine Fläche ausgefüllt werden soll). »Graphic 
Art« bietet hierfür die Möglichkeit, mit dem Feuerknopf 
(beziehungsweise im Draw-Modus bei Cursorbewegung) nur 
zu setzen und nicht zu löschen. Dieses Nur-Setzen wird im 
Menü durch den S-Modus gekennzeichnet - im Gegensatz 
dazu der Setzen/Löschen-(=S/L-)Modus. Durch Drücken 
der S-Taste kann man sich den gewünschten Modus auswäh¬ 
len. Der S-Modus funktioniert aber nur bei der Erstellung der 
Einfarbsprites. Allerdings ist es möglich, durch Drücken der 
SPACE-Taste doch noch einen Punkt zu löschen. 

Und nun noch ein paar Kleinigkeiten: 

Durch Drücken der Tasten 1 bis 9 wird eine Geschwindig- 
keitssänderung des Cursors erreicht. Auch eine Reverse- 
Funktion ist in »Graphic Art« mit eingebaut. Durch Betätigen 
der O-Taste erscheint das Sprite dann reverse. Dieses ist sehr 
angenehm und erspart viel Arbeit, wenn man ein fast ganz 
ausgefülltes Sprite malen will. Übrigens lassen sich einige 
Cursor-Bewegungen auch von der Tastatur aus steuern. So 
wird nach Drücken von CLR das Sprite gelöscht, ein HOME 
läßt den Cursor links oben in der Ecke erscheinen und ein 
RETURN setzt ihn an den Anfang der nächsten Zeile. 

Eine Sache noch, die besonders den Multicolour-Modus 
betrifft. Dabei kann es Vorkommen, daß die Cursor-Lupe, die 
eigentlich gelb ist, nicht mehr erkannt werden kann, wenn das 
gerade bearbeitete Sprite ebenfalls zum Teil die gleiche 
Farbe besitzt. Um dennoch immer über die genaue Zei¬ 
chenposition im klaren zu sein, kann durch Betätigen der 
+/-Tasten die Cursorfarbe geändert werden. 

Und nun zu guter Letzt noch zwei Hinweise zum Abtippen. 
Zum einen können die REMs alle weggelassen werden. Zum 
anderen ist in einige Basic-Zeilen so viel reingepreßt worden, 
daß die Befehle zum Teil verkürzt eingegeben werden müs¬ 
sen (für PRINT also »?« und so weiter - schauen Sie eventuell 
im Handbuch nach!). Vor dem Starten unbedingt beide Pro¬ 
gramme speichern!!! 

Ganz zum Schluß noch ein Tip: »Graphic Art« berechnet 
zwar Ihre Sprites, wie diese dann aber gesteuert werden, 
kann es nicht erraten. 

(Andreas Holz/ah) 
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Bild 1. Snoopy erstellt mit »Graphic Art« 


+ 
+ 
+ 

ANDREAS A. HOLZ + 
ZIKADENWEG 15 + 

1 BERLIN 19 + 

+ 


5 POKE 56,61:POKE 55,192 

10 POKE 53280,0:POKE 53281,0:POKE 650,128: 
POKE 53272,23:PRINT“<CLR>" 

11 :: 

12 IF A=0 THEN A= 1: LOAD " MT—GRAF IK—ART " , 8,1 

99 :: 

100 

101 REM+ 

102 REM+ GRAFIK-ART 

103 REM+ 

104 REM+ 

105 REM+ 

106 REM+ C3017728] 

107 REM+ 

108 
109 : : 

120 FOR X=704 TO 766:READ A:POKE X,A:NEXT: 

REM SINGLE CUSOUR tlj. BLOCK 1 
130 FOR X=896 TO 958:READ A:POKE X,A:NEXT: 

REM MULTI CUSOUR E14. BLOCK] 

135 FOR X=1 TO 9:READ SP(X):NEXT:REM +++++ 
SPEED-DATAS 

140 V=53248:POKE V+21,143:POKE V+14,0:POKE 
V+15,29:POKE V+46,7:P0KE V+29,134:P0K 
E V+23,140 

150 V*="CBLUE>7654321<LIG.BLUE>0":L*="C39S 
PACE>":POKE 198,0 

155 GOSUB 710:GOSUB 830:SYS 49702:REM BILD 
SCHIRMAUFBAU+SPRITE LOESCHEN CI3.BLOCK 
] 

170 POKE 2040,13:POKE V+16,6:P0KE V,255:P0 
KE V+l,51:POKE V+39,14:REM+ SPRITE 0 
180 POKE 2041,13:POKE V+2,28:P0KE V+3,51:P 
OKE V+40,14:REM+++++++++++ SPRITE 1 
190 POKE 2042,13:POKE V+4,28:P0KE V+5,80:P 
OKE V+41,14:REM+++++++++++ SPRITE 2 
200 POKE 2043,13:POKE V+6,255:POKE V+7,80: 
POKE V+42,14:REM++++++++++ SPRITE 3 

298 :: 

299 POKE 198,0 

300 SYS 49152 

3E2 SET AS:IF A*=""GOTO 300 
3110 IF A*="{F3>"THEN SYS 49682:G0T0 300 
320 IF A*="tF4>"THEN SYS 49692:GOTO 300 
322 IF A*="{RIGHT>“THEN SYS 50559:GOTO 300 
324 IF AS="CLEFT>"THEN SYS 50542:GOTO 300 
326 IF A*=” <DOWN>"THEN SYS 49B79:G0T0 300 
32B IF A*="CUP>"THEN SYS 49931:GOTO 300 
350 IF A*="D"THEN SYS 49778: GOSUB 800: GOTO 
299 

355 IF A*="a"THEN SYS 49794:GOSUB 800:GOTO 
299 

360 IF A*=“<CLR>"THEN SYS 49702:GOTO 299 
370 IF A*=“<HOME>"THEN POKE V+l4,0:POKE V+ 
15,29:GOTO 299 

380 IF A*=CHR*<131THEN IF PEEK(V+15)<>189 
THEN POKE V+14,0:POKE V+15,PEEK(V+15)+ 
8 :GOTO 299 

390 IF A*=“S"THEN SYS 49821: GOSUB 800: GOTO 
299 

392 IF A$=" <F 1 >"THEN SYS 49720:GOTO 300 

393 IF A*="tF2>"THEN SYS 49735:GOTO 300 

394 IF A$=" <F5 >"THEN SYS 50502:GOTO 300 

395 IF A*="CF6>"THEN SYS 50522:GOTO 300 

396 IF A*="<F7>"THEN SYS 50512:GOTO 300 

397 IF A*="tF8>"THEN SYS 50532:GOTO 300 
400 IF A$—" "THEN IF PEEK<49405)=176 THEN 

SYS 49844:GOTO 300 

410 IF A*="0"THEN FOR X=832 TO 894:POKE X, 
255—PEEK<X>:NEXT:SYS 4954B:G0T0 299 
490 IF A*="M"THEN SYS 50065:GOSUB 710:GOSU 
B 830:SYS 49548:GOTO 299 
495 IF A*="A"THEN GOSUB 1010:GOTO 300 
497 IF A*="@"GOTO 3005 

500 IF A$=“!“THEN IF PEEK (49236) = 15 THEN P 
OKE 49997,128:POKE 49996,PEEK(V+39):GO 
SUB 760:GOTO 299 

510 IF A*=CHR*(34)THEN IF PEEK(49236)=15 T 
HEN POKE 49997,64:POKE 49996,PEEK(V+37 
):GOSUB 760:GOTO 299 

520 IF A*="#"THEN IF PEEK(49236)=15 THEN P 
OKE 49997,192:POKE 49996,PEEK(V+38):GO 
SUB 760:GOTO 299 

525 IF A*="+"THEN GOSUB 4000:GOTO 299 

Listing 1. Basic-Listing zu »Graphic Art« 


<078> 

<014> 

< 196> 
<077> 
<028> 
< 101 > 

< 174> 
<06B> 

< 176> 
< 200 > 
<078> 
<160> 
<180> 

< 109> 
<03B> 

<063> 

<036> 

<099> 


< 113> 
<083> 

<127> 

<032> 

< 199> 

< 212 > 

< 212 > 

<229> 

<209> 

< 104> 
<018> 
<124> 
< 200 > 
<237> 
<10B> 
<084> 

< 177> 

<23B> 

<17B> 

<038> 

<032> 

< 185> 

<249> 

<234> 

< 175> 

< 166 > 
<041 > 
<105> 
<236> 

<027> 

<103> 

<142> 
< 155> 
<150> 


< 012 > 


<217> 


<096> 

<044> 
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527 IF ASC(AS)>48 AND ASC(ASX58 THEN PDKE 

1661,128+ASC(AS)sPDKE 49294,SP(ABC(AS 
)—48)s GÜTG 300 <075> 

528 IF AS="+"THEN IF PEEK(V+46X>255 THEN 

POKE V+46 ,PEEK(V+46)+12 BOTO 299 <226> 

529 IF AS="-"THEN IF PEEK(V+46X>0 THEN PO 

KE V+46,PEEK(V+46)—1:GOTO 299 <057> 

535 IF AS="f"GOTO 7010 <077> 

540 IF AS=“*"GOTO 7050 <120> 

550 GOTO 300 <242> 

700 REM++++++++++++++++++++++++ <242> 

701 REM+ + <010> 

702 REM+ BILOSCHIRMAUFBAU + <018> 

703 REM+ + <012> 

704 REM++++++++++++++++++++++++ <246> 

705 s s <126> 

710 POKE V+14,0:PDKE V+15,29 <0BB> 

715 PRINT"(CLR}";:IF PEEK(49236>=15 GOTO 7 

40 <093> 

720 FOR X=1 TO 21:PRINT"(REDI+++++++++++++ 
+++++++++++{BLUE>"X:NEXT:FOR X=0 TO 2: 

PRINT VS;:NEXT <057> 

730 POKE 2047,11:POKE V+28,0:GOTO 800 <039> 

740 FOR X=1 TO 21:PRINT“{REDJWBFSFWWB 
KSrartfKWW’tBLUE>"X: NEXT: FOR X=0 TO 2: 

PRINT VS;:NEXT <074> 

750 POKE 2047,14:POKE V+28,15 <078> 

760 POKE 214,17:POKE 211,2B:SYS 5B640:PRIN 
T"(CYAN>,2EICHEN= ";:POKE 646,PEEK(4999 
6 >:PRINT"(RVSON,2SPACE,DOWN,2LEFT,2SPA 
CE,RVOFF >" <19B> 

765 POKE 214,18:P0KE 211,31:SYS 58640:PRIN 

T"(CYAN>FARBE" <149 > 

770 POKE 214,20:POKE 211,28:SYS 58640:PRIN 
T"(LIG.RED}£ARBE #1 ";:POKE 646,PEEK<5 
3287>:PRINT"(RVSON,2SPACE,RVOFF >” <135> 

780 POKE 214,21:P0KE 211,28:SYS 5B640:PRIN 
T“(REDJfARBE #2 ";:POKE 646,PEEK(53285 
):PRINT"(RVSON,2SPACE,RVOFF>" <190> 

790 POKE 214,22:POKE 211,28:SYS 58640:PRIN 
T“(PURPLE>£ARBE #3 ";:POKE 646,PEEK(53 
286):PRINT“(RVSON,2SPACE,RVOFF>" <211> 

800 POKE 214,11:POKE 211,28:SYS 58640:PRIN 

T"(BLUE > A&HH(SPACE,RVSON,SPACE >A"; <154 > 

805 IF PEEK(49280)0234 GOTO 808 <120> 

806 PRINT"N(2SPACE,RVQFF>":GQTO 810 <18B> 

808 PRINT"US(SPACE,RVOFF>" <025> 

810 POKE 214,13:POKE 211,2B:SYS 58640:PRIN 

T" (LIG. BLUE>a/i.-aODUS-ä" : IF PEEK (49404 
)=43 THEN POKE 1582,12B+PEEK(1582) <033> 

820 IF PEEK(49404>043 THEN FOR X=1572 TO 

1574:POKE X,128+PEEK(X):NEXT:RETURN <1B7> 
825 RETURN <121> 

830 POKE 214,15:POKE 211,2B:SYS 58640:PRIN 
T " (GREEN } .S.PE£fl # (SPACE, RVSON , SPACE >5 (S 
PACE,RVOFF>":POKE 49294,64:RETURN <238> 

839 r: <006> 

840 REM++++ SINGLE-SPRITE-DATA-S ++++ <017> 

845 DATA,,,,,,,,,,,,,,,,,,,,,,,,,,,,7,,,8, 

128.. 16.64..16.64..8.192..7.224...48 <16B> 

850 DATA,,24. ,,,,, <035> 

900 : <114> 

905 REM++++ MULTI -SPRITE-DATA’S ++++ <039> 

910 DATA,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,31, 

252.. 32.2..32.2..32.2..32.2..31.252., <192> 

915 DATA,,,,,,,,,,,, <087> 

920 : <134> 

925 REM++++ SPEED - DATAS ++++++++++++ <16B> 

930 DATA 80,75,68,64,58,48,35,25,17 <193> 

935 :: <102> 

1000 REM+++++++++++++++++++++++ <116> 

1001 REM+ + <056> 

1002 REM+ AUSGABE + <239> 

1003 REM+ + <058> 

1004 REM+++++++++++++++++++++++ <120> 

1005 : <219> 

1010 POKE 198,0:POKE 214,23:POKE 211,0:SYS 

58640:PRINT"(LIG.BLUE >AUSGABE..." <124 > 

1020 PRINT"1. AISK(3SPACE>2. JRUCKER(3SPAC 

E>3. ACREEN"; <172> 

1030 GET AS:IF AS="1"G0T0 2001 <204> 

1035 IF AS="2"GOTO 1050 <087> 

1040 IF AS="3"THEN GOSUB 1055:GOTO 1080 <1B7> 

1042 IF AS=CHRS(13)THEN GOSUB 1095:GOTO 30 

0 <126> 

1045 GOTO 1030 <065> 


1050 


1055 

1060 


1065 

1070 


1080 

1090 

1095 

1097 

1098 

1099 

1100 
1101 


2000 

2001 

2010 

2015 

2020 

2025 

3000 

3001 

3002 

3003 

3004 

3005 


3010 

3015 

3016 

3020 

3050 


3055 

3070 

3100 

3101 

3102 

3103 

3104 

3998 

3999 


4000 

4001 
4005 
4010 

4091 

4092 

4093 

4100 

4101 

4105 

4110 

4114 

4120 


OPEN 4,4:CMD 4:GOSUB 1060:PRINT#4:CLO 

SE 4:GOSUB 1095:RETURN 

PRINT”(CLR>";:POKE V+21,0 

FOR X=0 TO 4:PRINT X+l“DATA";:FOR Xl= 

0 TO 10:PRINT PEEK(832+X1+X*12)"(LEFT 

NEXT:PRINT PEEK(832+Xl+X#12) 

NEXT:PRINT X+l"DATA"FOR X=892 TO 89 
3:PRINT PEEK(X>",";:NEXT:PRINT PEEK(8 
94):RETURN 

INPUT"(2D0WN>£R0GRAMM £NDE";AS:IF MID 
S(AS,1,1)="J"G0T0 5000 
GOSUB 710:GOSUB 830:POKE V+21,143:SYS 
49548:RETURN 

FOR X=0 TO 1:POKE 214,23+X:P0KE 211,0 
:SYS 58640:PRINT LS;:NEXT:RETURN 
POKE 53280,2:POKE 53265,PEEK(53265)AN 
D 239:RETURN 

POKE 53265,PEEK(53265)OR 16:POKE 5328 
0,0:RETURN 

OPEN 2,B,2,NS+" ,S, W" : RETURN 
:: 

CLOSE 2:GOSUB 1099:GOSUB 1095:SYS 506 
07:GOSUB 1098:WAIT 198,1:GQSUB 1095:S 
YS 65511:RETURN 

GOSUB 1095:GOSUB 4101:IF NS=“"THEN GO 
SUB 1095:GOTO 300 

GOSUB 1097:GOSUB 1099:OPEN 15,8,15:IN 
PUT#15,AS:IF ASO"00"GOTO 1101 
FOR X=B32 TO 832+62:PRINT#2,PEEK(X) 
NEXT 

CLOSE 2:CLOSE 15:GOSUB 1095:GOSUB 109 
8:RETURN 

REM+++++++++++++++++++++++++++ 

REM+ + 

REM+ DISK. + 

REM+ + 

REM+++++++++++++++++++++++++++ 

POKE 214,23:P0KE 211,0:SYS 58640:PRIN 

T“ (LIG. BLUE} AI SK “ : PRINT" 1. J.05 (3SP 

.~CE>2. AI SK-STATUS" ; 

GET AS:IF AS="1"G0T0 3050 
IF AS="2"G0T0 3070 

IF AS=CHRS(13)THEN GOSUB 1095:GOTO 29 
9 

GOTO 3010 

GOSUB 1095:POKE 214,23:P0KE 211,0:SYS 
58640:GOSUB 4100:IF NS=“"THEN GOSUB 
1095:GOTO 300 

OPEN 1,8,15,NS:CLOSE 1:GOSUB 1095:GOT 
O 300 

GOSUB 1095:SYS 50709:WAIT 198,1:GOSUB 
1095:POKE 198,0:GOTO 299 


REM+ 

REM+ 

REM+ 


EINGABE 


+ 

+ 


OPEN 2, B,2,NS+" , S,R" : RETURN 
CLOSE 2:GOSUB 3998:GOSUB 1095:SYS 506 
07:GOSUB 109B:WAIT 198,1:G0SUB 1095:S 
YS 65511:RETURN 

GOSUB 4101:IF NS=""THEN GOSUB 1095:GO 
TO 300 

GOSUB 1097:GOSUB 3998:OPEN 15,8,15:IN 
PUT# 15,AS: IF ASO"00“GOTO 3999 
FOR X=832 TO 832+62:INPUT#2,A:POKE X, 
A:NEXT 

CLOSE 2:CLOSE 15:GOSUB 1095:SYS 49548 
:GOSUB 1098:RETURN 

REM +++ GET NAME +++ 

:: 

NS="":POKE 214,23:POKE 211,0:SYS 5864 
0:PRINT"(LIG.BLUETAEFEHL? ";:N=29:G0T 
O 4105 

NS="":POKE 214,23:P0KE 211,0:SYS 5864 

0:PRINT“(LIG.BLUE}£ILENAME? ";:N=16 

AS="":POKE 198,0:POKE 204,0 

GET AS:IF AS=""THEN 4110 

IF AS—CHRS(13)THEN POKE 204,1:PRINT" 

";:RETURN 

IF AS=CHRS(20)THEN IF NS<>""THEN POKE 


<223> 

<040> 


< 197> 
<051 > 


< 179> 
<209> 

< 172> 

< 146> 
<201 > 

<1B9> 

< 132> 
<013> 


< 163> 

< 151 > 

<156> 

<214> 

<239> 

<252> 

< 120 > 
< 112 > 
<024> 

< 113> 
<026> 

< 116> 


<136> 

<217> 

<073> 

<235> 

<214> 


<137> 

<028> 

< 202 > 
<214> 
< 126> 

< 179> 

< 128> 
<214> 
<232> 


<013> 

< 126> 

<059> 

<078> 

<067> 

< 210 > 

<178> 

< 212 > 

< 123> 

<123> 

<232> 

<255> 

< 133> 


Listing 1. Basic-Listing zu »Graphic Art«. 
(Fortsetzung) 



SONDERHEFT 


85 















GRAFIK 


C 64 


204 , 1PR I NT " CLEFT , 2SPACE , 2LEFT >"; :N* 


=LEFT*<N*,LEN(N*)-1):GOTO 4105 <035> 

4125 IF N*=""THEN IF A*=CHR*(20)THEN 4110 <0&2> 

4130 IF LEN(N* )=N THEN 4110 <072> 

4135 POKE 204,1:PRINT A*;:N*=N#+A*:GOTO 41 

05 <176> 

5000 POKE 631,19:FOR X=632 TO 632+6:POKE X 

,13:NEXT:POKE 198,7:NEW <217> 

7003 :: <074> 

7004 REM ***# SPRITE—SPEICHER <175> 

7005 :: <076> 

7010 POKE 214,23:POKE 211,0:SYS 5B640:PRIN 

T“<LIG.BLUEJSPRITE SPEICHERN" <128> 

7015 N*="":N=1:PRINT"SPRITENR. ( 1 - 8 )? " 5:8 

OSUB 4105:IF N*=""THEN BOTO 7065 <125> 


7016 X=VAL(N*):IF X<1 OR X >8 GOTO 7065 <246> 

7020 FOR X1=0 TO 62: POKE 15808+(64*(X-l)) + 

XI,PEEK(832+X1):NEXT:GOSUB 1095:BOTO 
299 <052> 

7030 :: <101> 

7050 POKE 214,23: POKE 2U,0:SYS 58640:PRIN 

T"tLIG.BLUE>5PRITE EINLESEN" <006> 

7055 ... (l- 8 >? ";:G 

OSUB 4105:IF N#=""THEN GOSUB 1095:GOT 
O 299 <11S> 

7060 X=VAL(N*>:FOR X1=0 TO 62:P0KE 832+X1, 

PEEK(15808+(64*(X-l>)+X1>:NEXT <054 > 

7065 GOSUB 1095:SYS 49548:GOTO 299 <217> 


Listing 1. Basic-Listing zu »Graphic Art«. (Schluß) 


Programm : mt-grafik-art c000 c700 


C000 

: 

a 5 

cb 

c9 

40 

f0 

01 

60 

ad 

f 9 

C008 

: 

00 

de 

aa 

a8 

29 

01 

ta 

la 

c9 

C010 

: 

Ba 

29 

02 

f0 

26 

98 

29 

134 

al 

C018 

: 

f0 

32 

ad 

00 

de 

aa 

29 

08 

65 

C020 

: 

f0 

44 

Ba 

29 

10 

f0 

59 

4c 

81 

C028 

: 

00 

C0 

ad 

0 f 

d0 

c9 

ld 

f 0 

87 

0030 

: 

52 

38 

e9 

08 

38 

8 d 

Bf 

d0 

eS 

C03B 

: 

4c 

83 

C0 

ad 

0 f 

d0 

c9 

bd 

46 

C040 

: 

f0 

41 

18 

69 

08 

18 

Bd 

0 f 

9a 

0048 

: 

d0 

4c 

83 

C0 

ad 

0 e 

dB 

c9 

59 

C050 

: 

00 

f0 

30 

c9 

0 f 

d0 

05 

a9 

ec 

0058 

: 

00 

4c 

60 

C0 

38 

e9 

10 

38 

32 

0060 

: 

Bd 

0e 

d0 

4c 

83 

C0 

ad 

0 e 

03 

C06B 


d0 

c9 

af 

f 0 

16 

c9 

00 

d0 

78 

0070 

: 

05 

a9 

0 f 

4c 

7a 

c0 

18 

69 

78 

0078 

: 

10 

18 

8d 

0 e 

d0 

4c 

B3 

C0 

b8 

0080 

: 

4c 

94 

C0 

a 2 

00 

a0 

00 

c8 

31 

0088 

: 

C0 

ff 

d0 

fb 

e8 

e0 

40 

d0 

34 

0090 

: 

f 4 

4c 

07 

C0 

ae 

06 

dB 

e8 

f 5 

0098 

: 

Ba 

a2 

00 

c9 

08 

90 

0d 

38 

56 

C0a0 

: 

e9 

08 

38 

c9 

08 

90 

04 

eB 

bo 

C0a8 

: 

4c 

9f 

C0 

e8 

ac 

0 f 

dB 

c8 

29 

C0b0 

: 

9S 

a0 

00 

38 

e9 

08 

38 

c9 

f 3 

C0b8 

: 

0 B 

90 

04 

c8 

4c 

b3 

C0 

88 

99 

O0C0 


88 

a9 

04 

85 

fb 

a9 

00 

85 

e7 

C0c8 

: 

f a 

4c 

ce 

C0 

06 

06 

Be 

cc 

1B 

c0d0 

: 

c 0 

8 c 

cd 

c 0 

18 

6 d 

cc 

C0 

03 

O0d8 

: 

B5 

fa 

a9 

00 

65 

fb 

18 

85 

e6 

C0e0 

: 

fb 

a2 

00 

a5 

fa 

18 

6 d 

cd 

a3 

c0eB 

s 

C0 

85 

fa 

a9 

00 

65 

fb 

B5 

85 

C0f0 


fb 

18 

e8 

60 

28 

d0 

ec 

80 

4b 

C0f 8 


00 

bl 

fa 

c9 

a0 

d0 

07 

4c 

0 e 

O100 


5 c 

c4 

f a 

4c 

40 

cl 

4c 

lc 

82 

Cl08 


c4 

Ta 

4c 

0e 

cl 

06 

ad 

cc 

bb 

Cll0 


C0 

a 2 

00 

c9 

08 

90 

08 

38 

f0 

cl 18 


e9 

08 

38 

eB 

4c 

13 

cl 

Bd 

b0 

0120 


0 d 

cl 

8 a 

a0 

00 

18 

6 d 

cd 

d7 

cl2B 


C0 

18 

c8 

C0 

03 

d0 

f 6 

aa 

26 

c 130 


ac 

0 d 

cl 

60 

71 

cl 

ld 

40 

f 9 

0138 


03 

Vd 

40 

03 

4c 

65 

c2 

07 

83 

0140 


ad 

cc 

C0 

a 2 

00 

c9 

08 

90 

67 

cl4B 


08 

38 

e9 

08 

38 

68 

4c 

45 

6 e 

c 150 


cl 

8 d 

3f 

Cl 

Ba 

aa 

00 

18 

be 

C15B 


6 d 

cd 

C0 

18 

c8 

ca 

03 

d0 

If 

0160 


f 6 

aa 

ac 

3f 

cl 

b9 

79 

cl 

12 

0168 


3d 

40 

03 

9d 

40 

03 

60 

65 

*2 

c 170 


c 2 

80 

40 

20 

10 

08 

04 

02 

de 

Cl7B 


01 

7f 

bf 

df 

ef 

f 7 

fb 

fd 

cf 

c 1B0 


fe 

a9 

00 

a2 

0 a 

9d 

76 

02 

13 

clBB 


ca 

d0 

fa 

60 

4c 

89 

c4 

04 

bl 

Cl90 


85 

f a 

84 

fb 

a9 

40 

a0 

03 

58 

0198 


85 

fc 

84 

fd 

a2 

00 

a0 

00 

29 

Cla0 


bl 

fc 

0a 

85 

02 

90 

07 

a9 

17 

claB 


a0 

91 

fa 

4c 

b2 

Cl 

a9 

2 b 

Bf 

Clb0 


91 

fa 

c8 

ab 

02 

C0 

08 

d0 

8 d 

clb8 


b9 

e6 

fc 

18 

a9 

0 B 

65 

fa 

bd 

ClC0 


85 

f* 

.«9 

00 

65 

fb 

85 

fb 

71 

clc8 


eB 

D0 

03 

d0 

dl 

a? 

10 

18 

d6 

cld0 


65 

fa 

85 

fa 

a9 

00 

65 

fb 

9b 

cldB 


85 

fb 

a5 

fc 

c9 

7f 

dB 

bc 

b9 

c le0 


60 

ad 

0 f 

c 2 

Bd 

86 

02 

a2 

Bd 

cleB 


00 

a0 

lc 

18 

20 

f0 

ff 

ea 

a2 

Clf0 


ea 

20 

ff 

cl 

c8 

C0 

27 

d0 

f 3 

c 1 f 8 


f 2 

eB 

(V0 

0 a 

d0 

eb 

60 

a9 

19 

0200 


12 

20 

d2 

ff 

a9 

20 

20 

d2 

99 

0 208 


ff 

a9 

92 

20 

d2 

ff 

60 

ad 

8e 

0210 


ea 

ea 

ee 

0 f 

c2 

20 

• I 

cl 

45 

c218 


20 

81 

cl 

60 

ce 

0 f 

c2 

20 

26 

c220 


el 

cl 

20 

81 

cl 

60 

a9 

00 

e0 

c228 


aa 

9d 

40 

03 

e8 

60 

3f 

d0 

45 

c230 


fB 

20 

8c 

cl 

20 

81 

cl 

60 

69 

0238 


ee 

27 

d0 

ee 

28 

d0 

ee 

29 

e3 

0240 


d0 

ee 

2 a 

d0 

4c 

53 

c2 

ce 

34 


C24B 

: 

27 

d0 

ce 

2B 

dB 

ce 

29 

d0 

5a 

0 250 

E 

ce 

2a 

d0 


00 

a0 

00 

c8 

52 

0258 

: 

C0 

ff 

d0 

fb 

eB 

60 

01 

dB 

07 

0 260 

: 

f 4 

4 c: 

45 

c3 

ea 

ad 

91 

C0 

2B 

c26B 

s 

c9 

ea 

»10 

03 

4c 

07 

C0 

4c 

d3 

c270 

s 

66 

C0 

a2 

00 

a9 

ea 

9d 

91 

6a 

C278 

: 

C0 

9d 

80 

C0 

eB 

e0 

03 

d0 

B2 

C2B0 


f 5 

60 

«9 

4c 

a2 

07 

a0 

C0 

00 

C2B8 


Bd 

91 

C0 

8e 

92 

C0 

8c 

93 

68 

c290 

: 

C0 

8d 

80 

C0 

8c 

82 

C0 

a2 

74 

C298 

8 

94 

8e 

81 

C0 

60 

a2 

00 

bd 

B2 

o2a0 

: 

fc 

c0 

bc 

b2 

c2 

9d 

b2 

c2 

eb 

o2aB 

: 

98 

9d 

fc 

C0 

e8 

60 

02 

dB 

aS 

o2b0 

s 

ee 

60 

2b 

b0 

a9 

60 

8d 

3c 

fb 

c2b8 

: 

cl 

8d 

6e 

cl 

Bd 

7d 

C0 

20 

lc 

c2c0 


9d 

c2 

20 

94 

C0 

20 

9d 

c2 

62 

c2cB 

: 

20 

66 

C0 

a9 

4c 

Bd 

3c 

cl 

26 

c2d0 


Bd 

6e 

cl 

Bd 

7d 

C0 

60 

a0 

57 

c2dB 

: 

3c 

a2 

00 

b9 

40 

03 

95 

fa 

05 

c2e0 


cB 

eB 

e0 

03 

d0 

f 5 

a0 

00 

f 4 

o2e8 


a2 

00 

b9 

40 

03 

85 

fd 

b5 

C0 

c2f 0 


fa 

99 

40 

03 

a5 

fd 

95 

fa 

be 

c2f 8 


e8 

cB 

e0 

03 

dB 

ec 

a2 

00 

de 

c300 


C0 

3f 

d0 

e6 

20 

Bc 

cl 

20 

le 

c30B 


Bl 

cl 

60 

a0 

00 

a2 

00 

b9 

lf 

0310 

: 

40 

03 

95 

fa 

c8 

e8 

e0 

03 

f 4 

c318 


d0 

f 5 

a0 

3c 

a2 

00 

b9 

40 

24 

c320 


03 

85 

fd 

b5 

fa 

9° 

fl 

03 

9+ 

c328 


a5 

fd 

95 

f a 

e8 

c8 

60 

03 

ef 

c330 

: 

d0 

ec 

88 

88 

BB 

88 

88 

88 

a9 

C33B 


a2 

00 

C0 

fd 

d0 

e0 

20 

8c 

78 

0340 

: 

cl 

20 

81 

cl 

60 

20 

81 

cl 

3a 

c34B 


20 

90 

c5 

60 

fe 

80 

ea 

ea 

a3 

0350 

: 

a2 

00 

bd 

40 

03 

0a 

e8 

eB 

60 

0358 

8 

3e 

40 

03 

ca 

3e 

40 

03 

ca 

5B 

c360 


3e 

40 

03 

eB 

eB 

e8 

e0 

3f 

74 

0368 

S 

90 

e8 

20 

81 

cl 

60 

ea 

ea 

45 

C370 


a2 

02 

bd 

40 

03 

4a 

ca 

ca 

ce 

0378 

8 

7e 

40 

03 

68 

7e 

40 

03 

eB 

bc 

O3B0 

8 

7e 

40 

03 

eB 

e8 

e8 

e0 

3f 

d4 

0388 

8 

90 

e8 

20 

Bl 

cl 

60 

ea 

ea 

65 

0390 

8 

ea 

a2 

0f 

ec 

54 

C0 

f0 

40 

bc 

c39B 

: 

Be 

54 

C0 

0p 

72 

c 0 

eB 

8e 

40 

c3a0 

8 

5e 

C0 

8e 

78 

C0 

a9 

5c 

a2 

21 

c3aB 

8 

4c 

a0 

c4 

Bd 

00 

cl 

Be 

ff 

6f 

c3b0 

8 

C0 

8e 

06 

cl 

8e 

8c 

cl 

Bc 

de 

C3b8 

8 

01 

cl 

Bc 

00 

cl 

Bc 

Be 

cl 

fc 

C3c0 

8 

a9 

60 

8d 

33 

cl 

8d 

6e 

cl 

29 

c3cB 

8 

a9 

89 

Bd 

Bd 

cl 

a2 

af 

a0 

7c 

c3d0 

8 

lc 

Bc 

07 

cl 

8e 

6a 

C0 

60 

2 c 

c3d8 

8 

a 2 

07 

8e 

54 

C0 

Be 

72 

C0 

fS 

c3e0 

8 

e8 

Be 

5a 

C0 

8e 

78 

C0 

a9 

c2 

c3eB 

8 

a9 

a0 

2b 

a2 

91 

Bd 

ff 

c0 

07 

c3f 0 

8 

Bd 

06 

cl 

Bd 

8c 

cl 

Bc 

00 

ab 

c3f 8 

8 

cl 

Be 

01 

cl 

Be 

0B 

cl 

a9 

fc 

0400 

8 

a0 

Bd 

07 

cl 

8d 

Be 

cl 

a9 

08 

c408 

8 

00 

Bd 

8d 

cl 

a 2 

b9 

Be 

33 

03 

0410 

8 

cl 

ca 

ca 

0p 

6a 

C0 

a9 

4c 

a7 

C41B 

1 

Bd 

6e 

cl 

60 

a0 

01 

a9 

a0 

53 

c420 

8 

91 

fa 

a9 

d4 

18 

65 

fb 

18 

00 

0428 

8 

85 

fb 

ad 

4c 

c3 

91 

fa 

aS 

a0 

c430 

3 

fb 

38 

■9 

d4 

3B 

85 

fb 

88 

0d 

C43B 

8 

ea 

ea 

C0 

00 

f0 

e0 

20 

0e 

7a 

c440 

8 

cl 

ad 

4d 

c3 

C0 

02 

90 

07 

10 

c44B 

8 

88 

88 

4a 

4a 

4c 

44 

c4 

ld 

24 

c450 

8 

40 

03 

9d 

40 

03 

4 c. 

65 

c2 

2f 

c45B 

8 

00 

02 

ea 

ea 

20 

40 

cl 

ee 

5a 

c460 

8 

CC 

C0 

20 

40 

cl 

a0 

01 

a9 

15 

0468 

8 

7b 

91 

f a 

a9 

d4 

10 

65 

fb 

3b 

C470 


18 

85 

fb 

a9 

02 

91 

fa 

a5 

63 

C47B 

8 

fb 

38 

e9 

d4 

38 

85 

fb 

88 

55 

0480 

8 

d0 

04 

a9 

6c 

d0 

e3 

4c 

65 

72 

0488 

8 

c2 

a9 

00 

a0 

04 

85 

fa 

84 

94 

c490 

3 

fb 

a9 

40 

a 0 

03 

85 

fc 

84 

dd 

0498 


fd 

a2 

00 

Be 

58 

c4 

aB 

00 

e6 

C4a0 

8 

bl 

fc 

0a 

2e 

58 

c4 

18 

20 

64 


C4a8 

3 

3c 

c5 

d0 

15 

a9 

6c 

91 

fa 

dB 

c4b0 

3 

OB 

a9 

7b 

91 

fa 

a9 

02 

Bd 

7e 

c4b8 

3 

59 

c4 

20 

lf 

c5 

cB 

4c 

ec 

0d 

c4c0 

8 

c4 

c9 

01 

dB 

09 

ad 

25 

dB 

f 7 

c4cB 

8 

Bd 

59 

c4 

4c 

el 

c4 

c9 

02 

2c 

O4d0 


d0 

09 

ad 

27 

d0 

8d 

59 

c4 

dd 

c4dB 

3 

4c 

el 

c4 

ad 

26 

d0 

Bd 

59 

cd 

c4e0 

3 

c4 

a9 

a0 

91 

fa 
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C 64 


GRAFIK 


3D-Grafik für 
Schachspiele 

Wollen Sie Ihrem Schachprogramm zu 
einer räumlichen Darstellung verhelfen 
oder wichtige Schachpartien speichern? 
Hier finden Sie wertvolle Routinen dafür. 

H aben Sie sich schon häufig über die zweidimensio¬ 
nale Darstellung bei Schachspielen geärgert? Das 
Programm »Schachgrafik« (Listing) beendet diese 
Misere. Sie können damit ein perspektivisches Schachbrett 
erzeugen, wie es im Bild zu sehen ist. 

Das Programm ist vollständig in Maschinensprache 
geschrieben und belegt den Speicherbereich SCOOO bis 
$C9BE. Der Basic-Speicher bleibt auch bei eingeschalteter 
Grafik frei. Nachdem Sie das Programm mit dem MSE einge¬ 
geben haben, stehen Ihnen zwölf Routinen zur Verfügung, 
die mit dem SYS-Befehl aufgerufen werden können. Schach¬ 
programmen wie »Schachmeister« (Ausgabe 11/84) oder 
»Schach dem C 64« (Ausgabe 8/85) verhelfen Sie mit die¬ 
sem Programm zu einer hervorragenden Grafik. 

So, nun zu den einzelnen Routinen, die Ihnen nach der Ein¬ 
gabe von »Schachgrafik« zur Verfügung stehen. 

SYS 50000 

Hiermit schalten Sie die Grafik ein. Weder die Bitmap wird 
gelöscht, noch werden die Farben der Grafik gesetzt. Die Bit¬ 
map liegt bei $E000, der Farbspeicher bei $CC00. 

SYS 50003,FLAG 

Schaltet die Grafik aus. Bei FLAG=0 geht der Computer in 
den Großschrift-Grafikmodus, bei FLAG=1 in den 
Kleinschrift-Großschrift-Modus. 


Alle weiteren Codes sind nicht erlaubt. Die Felder sind von 
0 bis 63 durchnumeriert. Dabei liegt Feld 0 links oben. 

SYS 50018,FELD 

Zeichnet nur das Feld mit der Nummer FELD neu. 

SYS 50021,FELDA,FELDB 

Setzt die Figur auf FELDA nach FELDB und zeichnet beide 
Felder neu. 

SYS 50024 

Zeichnet alle Felder neu. Nach dem Laden der Schachgra¬ 
fik ist das Schachbrett in der Anfangssteilung besetzt. 

SYS 50027 

Rotiert das Brett einmal gegen den Uhrzeigersinn. Hierbei 
werden auch synchron die Nummern der Felder geändert. 
Nach einmaligem Drehen befindet sich das Feld 0 links unten, 
nach zweimaligem Drehen rechts unten etc. 

SYS 50030 

Nach Ausführung dieses Befehls sind die Feldnummern 
wieder so, als sei das Brett bisher nicht gedreht worden. Feld 
Nr. 0 ist wieder links oben. 

SYS 50033,TEXT,ZEILE,SPALTE 

Gibt den TEXT an der durch ZEILE und SPALTE bestimm¬ 
ten Position in der Bitmap aus. Alle Zeichen erscheinen im 
Großschrift-Grafikmodus. Steuerzeichen werden als Leerzei¬ 
chen interpretiert. 

Es muß gelten: 0 <=ZEILE <=24 und 0 <=SPALTE 
<=39. 

Bei ?'>en Befehlen können alle zu übergebenden Werte in 
beliebigen Formen, zum Beispiel als Variablen, Formeln oder 
ähnliches auftauchen. 

Leider schreibt bei einem RUN/STOP-RESTORE eine 
ROM-Routine (bei $FD15) 32 Bytes in die Bitmap, die man 
aber mit SYS 50033," ",23,14 löschen kann. Trotzdem 
sollte man RUN/STOP-RESTORE vermeiden oder sogar soft¬ 
waremäßig unterbinden. 


SYS 50006 
Löschen der Bitmap 

SYS 50009,Byte 

Setzen der Grafikfarben. Werte zwischen 0 und 255 kön¬ 
nen eingegeben werden. Das obere Nibble des Bytes 
bestimmt die Zeichen-, das untere die Hintergrundfarbe. 

SYS 50012,FLAG 

Zeichnen eines leeren Brettes. Bei FLAG=0 ist die untere 
linke Ecke in der Zeichen-, bei FLAG = 1 in der Hintergrund¬ 
farbe gezeichnet. 

SYS 50015,FIG, FELD 

Dieser Befehl setzt die Figur mit dem Code FIG auf das Feld 
mit der Nummer FELD. Die Figurencodes: 


Farbe 1 

Farbe 2 Bedeutung 

0 

oder 

128 

Leeres Feld 

1 

oder 

129 

Bauer 

2 

oder 

130 

Pferd 

3 

oder 

131 

Läufer 

4 

oder 

132 

Turm 

5 

oder 

133 

Dame 

6 

oder 

134 

König 


Liste aller Datensätze und Routinen 


$C000-$C29F 

$C2A0-$C2FF 

$C300-$C30F 

$C310-$C34F 

$C350-$C373 

$C374-$C4FE 

$C4FF-$C607 

$C608-$C62C 

$C62D-$C696 

$C697-$C752 


$C753-$C76E 

$C76F-$C7B1 


AND- und OR-Masken (je 48 Bytes) 
von Unterteil, Bauer, Pferd, Läufer, 

Turm, Dame und König. 
3*4-Grafikausschnitt Brett (als Hinter¬ 
grund). 

2 quadratische Grafikausschnitte, die in 
einer Routine benötigt werden. 
Speicher des Feldes 
Sprungtabelle zu den Hauptroutinen. 
Die Hauptroutinen aller Befehle, Beginn 
der einzelnen Routinen siehe Sprung¬ 
tabelle. 

Zeichnet Text in Bitmap. Leicht korri¬ 
giert übernommen von Heimo Ponnath, 
64’er, 8/85. 

4 Routinen, die prüfen, ob ein Feld am 
Rand des Brettes liegt. 

Hier werden alle Teile des Brettes, die 
in keinem 3*4-Feldausschnitt enthalten 
sind, gezeichnet. 

überträgt 3*4-Brettausschnitt (der 
Feldnummer entsprechend modifiziert) 
in den Puffer. 

Rotiert einmal das gesamte Feld. 
Errechnet Adresse eines Grafikaus¬ 
schnittes in der Bitmap abhängig von 
der Feldnummer. 
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$C7B2-$C7E2 

$C7E3-$C80F 

$C810-$C847 

$C848-$C87A 

$C87B-$C8AD 

$C8AE-$C8E5 

$C8E6-$C8F9 

$C8FA-$C914 

$C915-$C923 

$C924-$C949 


Überträgt Pufferinhalt in die Bitmap. 
Überträgt Figur eines Feldes in den 
Puffer. 

Überträgt unteren rechten Ausschnitt 
der Figur, die im Grafikausschnitt oben 
links auftaucht, in den Puffer. 

Überträgt unteren linken Ausschnitt der 
Figur, die im Grafikausschnitt oben 
rechts auftaucht, in den Puffer. 
Überträgt oberen rechten Ausschnitt 
der Figur, die im Grafikausschnitt unten 
links auftaucht, in den Puffer. 

Überträgt oberen linken Ausschnitt der 
Figur, die im Grafikausschnitt unten 
rechts auftaucht, in den Puffer. 

Rotiert eine im X-Register stehende 
Feldnummer ein- oder mehrmals gegen 
den Uhrzeigersinn. 

Verknüpft zwei Bytes aus zwei AND- 
bzw. OR-Masken mit dem Pufferinhalt. 
Adressen der Unterteilmasken. 

Ermittelt Adressen der Masken beliebi¬ 
ger Figuren und schreibt sie in zwei 
Zeiger. 


$C94A-$C95C 

$C95D-$C95E 

$C95F-$C9BE 


Rotiert eine im X-Register stehende 
Feldnummer einmal gegen den Uhrzei¬ 
gersinn. 

Zwei Flags. 

Puffer. 


Auf der Leserservice-Diskette finden Sie zusätzlich ein 
Demonstrationsprogramm, das Ihnen alle Möglichkeiten von 
»Schachgrafik« aufzeigt. (Frithof Dau/kn) 


ANDERSSEN - STAUNTON 

TURNIER ZU LONDON 1851 ZUG NR 11:0-0 



Bild: Hardcopy zu »Schachgrafik« 
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Super Hard¬ 
copy für den 

MPS 802 

Ein fantastisches Hardcopy-Programm für 
den MPS 802. Es druckt genau das aus, 
was im Moment auf dem Bildschirm zu 
sehen ist - egal, ob es der Text-Bildschirm 
oder eine HiRes-Grafik ist. 


O bwohl der MPS 802 in der Grundausstattung nicht 
grafikfähig ist, gibt es seit kurzer Zeit schon Hard¬ 
copy-Programme, die einen Grafikausdruck mit 
diesem Drucker ermöglichen. Viele jedoch sind entweder nur 
sehr beschränkt anwendbar oder aber teilweise fehlerhaft. 
Dieses Programm bietet Ihnen folgende Vorzüge: 

1. Es wird wirklich das aufs Papier gebracht, was sich zur 
Zeit des Drucks am Bildschirm befindet. Es ist hierbei egal, 
ob es sich um eine HiRes-Grafik handelt oder um den norma¬ 
len Textbildschirm. 


2. Der Beginn des Bildschirmspeichers beziehungsweise 
des HiRes-Bit-Map wird in jedem Fall vom Programm selbst 
ermittelt. (Im Speicher befindliche Bilder müssen zuerst auf 
den Bildschirm gebracht werden.) 

3. Im Falle einer LowRes-Hardcopy kann durch einfaches 
Drücken der SHIFT- und COMMODORE-Taste gleichzeitig 
zwischen Großschrift/Grafik-Modus und Klein/Großschrift- 
Modus gewählt werden. (Natürlich vor dem Aufruf der Rou¬ 
tine.) 

4. Alle möglichen Parameter gelten sowohl für eine Hard¬ 
copy des LowRes- als auch des HiRes-Bildschirms. 

5. Einen besonderen Leckerbissen bietet das Programm 
im Erstellen von 4mal so großen HiRes-Hardcopys, ohne daß 
sich die Proportion im Vergleich zum Bildschirm ändert. Eine 
normale Hardcopy dieser Art benötigt zirka 15 bis 45 Minu¬ 
ten. 

6. Ein weiterer Vorteil besteht im Verbinden mehrerer Hard¬ 
copybilder, was sowohl längs mit Hilfe des Tabulators 
geschieht als auch untereinander, da nach beendetem Aus¬ 
druck des ersten Bildes kein Zeilenvorschub getätigt wird. 

7. Die Invertierung des HiRes-Bildes kann oft von Vorteil 
sein (siehe Bild 1 und 2). Bei Invertierung des LowRes-Bildes 
ist jedoch Vorsicht geboten, da der Druckknopf und das Fahr¬ 
band hierbei sehr in Mitleidenschaft gezogen werden. 

8. Durch ein spezielles Unterprogramm kann auch die 
HiRes-Bit-Map unter dem ROM gelesen werden, das heißt, 
daß die HiRes-Bit-Map in jedem Bereich außer zwischen 
$C000 und $DFFF liegen darf (also auch für die bekannten 
Befehlserweiterungen wie Simons Basic geeignet!), da sich 
in diesem Bereich das Programm und der VIC-Steuerchip 
befinden. 
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Bild 1. Hardcopy: invertiert... 


Bild 2. ...oder normal 


Programmbeschreibung 

1. Programmierung: Das Programm (Listing 1) ist in 6510 
Maschinensprache geschrieben und auf Grund seiner Viel¬ 
fältigkeit stark in Unterprogramme gegliedert. Im Prinzip 
besteht es aber aus drei großen Hauptabschnitten, nämlich 
der normalen Low- beziehungsweise HiRes-Hardcopy sowie 
der vierfach vergrößerten HiRes-Hardcopy, der wegen ihrer 
außergewöhnlichen Ausführung ein extra Programmab¬ 
schnitt zugewiesen worden ist. Einzelheiten hierzu können 
aus dem kommentierten Assemblerlisting (Listing 2) entnom¬ 
men werden, das wir Ihnen nicht vorenthalten möchten. 

2. Ausführungsdaten: Das Programm läuft erwartungsge¬ 
mäß sehr schnell ab und benötigt für eine einfache HiRes- 
Hardcopy je nach Größe zwischen einer und fünf Minuten. 
Eine LowRes-Hardcopy dauert maximal eine Minute. Hinge¬ 
gen braucht der Drucker für eine vierfache HiRes-Hardcopy 
zwischen 5 und 45 Minuten, weil der Weg, den der Druck¬ 
kopf zurücklegt, sich vervielfacht. 

3. Speicheraufteilung: Das als MSE-Listing abgedruckte 
Programm startet bei $C000 und endet bei $C332. Sollte 
dieser Bereich bei Ihnen belegt sein, so ändern Sie die Start¬ 
adresse des Assemblerprogramms und assemblieren es neu. 


4. Syntax: SYS 49152, Größe, Invertierung, Tabulator 
Parameter: a) Größe: 1 = normal (9,5 x 6,2 cm - 

320 x 200 einfache 

Nadelpunkte) 

2 = doppelt (19 x 12,4 cm - 

320 x 200 vierfache 

Nadelpunkte) 

b) Invertierung: 0 = ohne Invertierung 

1 = mit Invertierung 

c) Tabulator: von 0 bis 40 wenn 

Größe = 1, 

fällt weg, wenn Größe = 2 

5. Verwendung: Das auf Diskette (oder Kassette) durch 
den MSE abgespeicherte Programm mit LOAD "HC 
MPS-802" ,8,1 laden, danach NEW zur Rückstellung der Zei¬ 
ger eingeben. Sobald Sie das Programm gestartet haben, 
können Sie es jederzeit mit einem einfachen Druck auf die 
STOP-Taste unterbrechen, alle geöffneten Kanäle werden 
ordnungsgemäß wieder geschlossen. 

Nun ist der letzte Zweifel über die Grafikfähigkeit des 
MPS-802 beseitigt. Viel Vergnügen mit Ihrem neuen Hard¬ 
copy-Programm! (R. Sucher/og) 
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Listing 1. »HC MPS-802«, die Super-Hardcopy geben Sie bitte mit dem MSE ein 
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hi mode 

beq 

next2 

jsr 

part2 

jsr 

print5 

jsr 

print4 

jsr 

char 

bne 

1 ine2 

jsr 

carrige 

jsr 

1 ine 

bne 

hires4 

jmp 

close 

lda 

*d018 

and 

#*fO 

lsr 


lsr 


ora 

*ff 

sta 

*ff 

ldx 

#*06 

jsr 

*-f f c9 

lda 

#*1B 

jsr 

*ffd2 

lda 

#*0d 

jsr 

*ffd2 

jsr 

tffee 

ldx 

#*04 

jsr 

*ffc9 

ldx 

#*19 

jsr 

tffe 1 

beq 

close 

jsr 

lowmode 

ldy 

#*00 

lda 

(tfe),y 

jsr 

ascii 

jsr 

*f f d2 

iny 


cpy 

#*28 

bne 

Zeichen 

lda 

#*0d 

jsr 

*ffd2 

tya 


clc 


ade 

tfe 

sta 

tfe 

bcc 

again 

inc 

*ff 

dex 


bne 

zeile 

jsr 

tffee 

ldx 

#*06 

jsr 

*ffc9 

lda 

#*24 

jsr 

*ffd2 

lda 

#*0d 

jsr 

*ffd2 

jsr 

tffee 

ldx 

#*06 


beq hires4 
1380 —hiresl ldc i*00 


Listing 2. Das Quell-Code-Listing zu »HC MPS-802«. Sollte sich die Hardcopy-Routine mit einem anderen Pro¬ 
gramm überschneiden, können Sie es damit in einen anderen Bereich assemblieren lassen. 
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TIPS&TRICKS 


C 64 


1B50 

- 

jsr 

*ffc3 

1B55 

- 

lda 

#*05 

1860 

- 

jsr 

*ffc3 

1865 

- 

lda 

#*04 

1870 

- 

jsr 

*ffc3 

1875 

- 

jmp 

*ffe7 

1880 

—himode 

sei 


1885 

- 

lda 

#*34 

1890 

- 

sta 

*01 

1895 

- 

lda 

#*oo 

1900 

- 

tax 


1905 

-clear 

sta 

*0334,x 

1910 

— 

inx 


1915 

- 

cpx 

#*08 

1920 

- 

bne 

clear 

1925 

- 

lda 

#*80 

1930 

- 

sta 

*02 

1935 

- 

ldy 

#*00 

1940 

-move 

lda 

<*fe>,y 

1945 

- 

ldx 

#*00 

1950 

-turn 

asl 


1955 

- 

bcc 

weiter 

1960 

- 

pha 


1965 

- 

lda 

*0334,x 

1970 

- 

ora 

*02 

1975 

- 

sta 

*0334,x 

1980 

- 

pla 


1985 

-weiter 

inx 


1990 

- 

cpx 

#*08 

1995 

- 

bne 

turn 

2000 

- 

lsr 

*02 

2005 

- 

iny 


2010 

- 

cpy 

#*08 

2015 

- 

bne 

move 

2020 

- 

lda 

#*37 

2025 

- 

sta 

*01 

2030 

- 

cli 


2035 

- 

lda 

*fc 

2040 

- 

beq 

space 

2045 

— 

ldx 

#00 

2050 

—revers 

lda 

*0334,x 

2055 

- 

eor 

#*ff 

2060 

- 

sta 

*0334,x 

2065 

— 

inx 


2070 

- 

cpx 

#08 

2075 

— 

bne 

revers 

2080 

-space 

lda 

#*oo 

2085 

— 

tax 


2090 

—zero 

cmp 

*0334,x 

2095 

- 

bne 

return 

2100 

- 

inx 


2105 

- 

cpx 

#*08 

2110 

- 

bne 

zero 

2115 

-return 

rts 


2120 

-print5 

ldx 

#*05 

2125 

- 

jsr 

*ttc9 

2130 

- 

ldy 

#*00 

2135 

-print 

lda 

*0334,y 

2140 

- 

jsr 

*ffd2 

2145 

- 

iny 


2150 

- 

cpy 

#*08 

2155 

- 

bne 

print 

2160 

- 

lda 

#*0d 

2165 

- 

jsr 

*ttd2 

2170 

- 

jmp 

*ffcc 

2175 

-printl 

ldx 

#*04 

2180 

- 

jsr 

*ffc9 

2185 

- 

clc 


2190 

- 

lda 

*fd 

2195 

- 

ade 

*71 

2200 

- 

tax 


2205 

- 

beq 

goon 

2210 

— 

lda 

#*20 

2215 

-goto 

jsr 

*ffd2 


2220 

- 

dex 


2225 

- 

bne 

goto 

2230 

—goon 

lda 

#*f e 

2235 

- 

jsr 

*f-f d2 

2240 

- 

lda 

#*Bd 

2245 

- 

jsr 

*f-f d2 

2250 

- 

jmp 

*ffcc 

2255 

—char 

clc 


2260 

- 

lda 

*fe 

2265 

- 

ade 

#*08 

2270 

- 

sta 

*te 

2275 

- 

bcc 

hei p 

2280 

- 

inc 


2285 

-help 

inc 

*71 

2290 

- 

lda 

*71 

2295 

- 

cmp 

#*2B 

2300 

- 

rts 


2305 

—carrige 

ldx 

#*04 

2310 

- 

jsr 

*ffc9 

2315 

- 

lda 

#*0d 

2320 

- 

jsr 

*ffd2 

2325 

- 

jmp 

*ffcc 

2330 

-1 ine 

inc 

*72 

2335 

- 

lda 

*72 

2340 

- 

cmp 

#*19 

2345 

- 

rts 


2350 

-print4 

ldx 

#*04 

2355 

- 

jsr 

*ffc9 

2360 

- 

lda 

#*0e 

2365 

- 

jsr 

*t + d2 

2370 

- 

lda 

*71 

2375 

- 

tax 


2380 

- 

beq 

out 

2385 

- 

lda 

#*20 

2390 

-rueck 

jsr 

*ffd2 

2395 

— 

dex 


2400 

.s-*eR onunqnffi* 

rueck 

2405 

—out 

lda 

#*fe 

2410 

- 

jsr 

*ffd2 

2415 

- 

lda 

#*Bd 

2420 

- 

jsr 

*ffd2 

2425 

— 

jmp 

*ffcc 

2430 

-partl 

jsr 

clm 

2435 

— savel 

ldx 

#*oo 

2440 

- 

lda 

#*c0 

2445 

- 

sta 

*02 

2450 

- 

lda 

*0334,y 

2455 

— neul 

clc 


2460 

- 

asl 


2465 

- 

bcc 

oldl 

2470 

- 

pha 


2475 

- 

lda 

*02 

2480 

- 

ora 

*0340,y 

2485 

- 

sta 

*0340,y 

2490 

- 

pla 


2495 

-ol dl 

lsr 

*02 

2500 

- 

lsr 

*02 

2505 

— 

inx 


2510 


cpx 

#*04 

2515 

- 

bne 

neul 

2520 

- 

iny 


2525 

- 

cpy 

#*08 

2530 

- 

bne 

savel 

2535 

- 

jmp 

change 

2540 

-part2 

jsr 

clm 

2545 

-save2 

ldx 

#*00 

2550 

- 

lda 

#*03 

2555 

- 

sta 

*02 

2560 

- 

lda 

*0334,y 

2565 

—neu2 

clc 


2570 

- 

lsr 


2575 

- 

bcc 

old2 

2580 

- 

pha 


2585 

- 

lda 

*02 


2590 

— 

ora 

*0340,y 

2595 

- 

sta 

*0340,y 

2600 

- 

pla 


2605 

—old2 

asl 

*02 

2610 

- 

asl 

*02 

2615 

— 

inx 


2620 

- 

cpx 

#*04 

2625 

— 

bne 

neu2 

2630 

- 

iny 


2635 

- 

cpy 

#*08 

2640 

- 

bne 

save2 

2645 

-change 

ldy 

#*oo 

2650 

-chagain 

lda 

*0340,y 

2655 

- 

sta 

*0334,y 

2660 

- 

iny 


2665 

- 

cpy 

#*08 

2670 

- 

bne 

chagain 

2675 

- 

rts 


2680 

-clm 

lda 

#*00 

2685 

- 

tax 


2690 

-clr 

sta 

*0340,x 

2695 

- 

inx 


2700 

- ' 

cpx 

#*08 

2705 

- 

bne 

clr 

2710 

- 

tay 


2715 

- 

rts 


2720 

-lowmode 

lda 

*fd 

2725 

- 

beq 

shi-f t 

2730 

- 

tay 


2735 

- 

lda 

#*20 

2740 

-tab 

jsr 

*-ffd2 

2745 

- 

dey 


2750 

— 

bne 

tab 

2755 

-shi-ft 

lda 

*d01B 

2760 

- 

and 

#*02 

2765 

- 

cmp 

#*02 

2770 

— 

bne 

gross 

2775 

— 

lda 

#*11 

2780 

- 

jsr 

*ftd2 

2785 

-gross 

lda 

S-fb 

2790 

- 

cmp 

#*02 

2795 

- 

bne 

invers 

2800 

- 

lda 

#*0e 

2805 

- 

jsr 

*ffd2 

2810 

-invers 

lda 

*fc 

2815 

- 

beq 

rts 

2820 

- 

lda 

#*12 

2825 

- 

jsr 

*f-f d2 

2830 

-rts 

rts 


2835 

-ascii 

and 

#*7-f 

2B40 

- 

pha 


2845 

- 

and 

#*20 

2850 

- 

bne 

cont 

2855 

- 

pl a 


2860 

- 

pha 


2865 

- 

and 

#*40 

2870 

- 

bne 

up 1 

2B75 

- 

pla 


28B0 

- 

ora 

#*40 

2885 

- 

rts 


2890 

-cont 

pla 


2895 

- 

pha 


2900 

- 

and 

#*40 

2905 

- 

bne 

up2 

2910 

- 

pla 


2915 

- 

rts 


2920 

-upl 

pla 


2925 

— 

ora 

#*20 

2930 

- 

rts 


2935 

—up2 

pla 


2940 

- 

and 

#*3f 

2945 

- 

ora 

#*80 

2950 

_ 

rts 



Listing 2. Quell-Code-Listing zu »HC MPS-802« (Schluß) 
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Grund genug 

f ürs neue I ^ ^ ^ r*« 

Die brandaktuellen 
Informationen zum Thema 
Datenfernübertragung! 


★ Was bringt uns BTX? 

Softwareeinkauf per 
Bildschirm. 

Weltweiter Datenverkehr 
zum Billigtarif mit Datex P. 

★ Im Test: 

Akustikkoppler und 
Terminalprogramme. 

★ Großer Testbericht: 

Was leistet der Amiga? 
Lohnt sich der Kauf? 


★ Künstliche Intelligenz: 

»Prolog 64« im Test. * 



Falls Sie 64’er noch nicht regelmäßig beziehen, si¬ 
chern Sie sich jetzt Ihr persönliches Abonnement. 


Wenn Sie zur Anforderung den nebenstehenden 
Gutschein benutzen, genießen sie nicht nur die 
Äbonnentenvorzüge, sondern erhalten außerdem 
die neueste Ausgabe kostenlos und unverbindlich 
als Probeheft! 


★ Die wichtigsten 
Programmiersprachen 
für den C64. 

Ihre Vorteile - ihre Nachteile. 
Pascal-Kurs für Anfänger. 

Ist »C« nur eine Sprache für Profis? 
Was ist ein Compiler? 

★ Schon getestet: 

Die ersten Mäuse für den C64 von 
Rushware und NCE. 

★ •..und natürlich — wie in jeder 
Ausgabe - jede Menge Tips& 
Tricks für den C64 und C128. 



Gutschein 



FÜR EIN KOSTENLOSES PROBEEXEMPLAR DES 64'er-MAGAZINS 


JA, ich möchte das »64'er-Magazin« kennenlemen. 

Senden Sie mir bitte die aktuellste Ausgabe kostenlos als Probeexemplar. Wenn mir »64'er« gefällt 
und ich es regelmäßig weiterbeziehen möchte, brauche ich nichts zu nut Ich erhalte »64'er« dann 
regelmäßig frei Haus per Post und bezahle pro Jahr DM 78,— (Ausland auf Anfrage) 


Vorname, Name 


Straße PLZ, Ort 


Datum l. Unterschrift 

Mir ist bekannt, daß ich diese Bestellung innerhalb von 8 Tagen bei der Bestelladresse widerru¬ 
fen kann und bestätige dies durch meine zweite Unterschrift. Zur Wahrung der Frist genügt die 
rechtzeitige Absendung des Widerrufs. 


Datum 2. Unterschrift 

Gutschein ausfüllen, ausschneiden, in ein Kuvert stecken und absenden an: Markts,Technik n 
Verlag Aktiengesellschaft, Vertrieb, Postfach 1304, 8013 Haar g 












TIPS & TRICKS C 64 


Disketten- 


Diesen Programmpunkt kann man durch Drücken der 
»—«-Taste vorzeitig verlassen. Am Schluß dieses Programm¬ 
teils kommt man durch einen Tastendruck wieder ins Aus¬ 


Reparatur 
mit Reformat 

Haben Sie auch schon einmal versehent¬ 
lich eine Diskette neu formatiert? Wenn ja, 
dann brauchen Sie »Reformat«. Denn mit 
diesem Programm läßt sich die Diskette 
sehr einfach »reparieren«. 

W 1 enn eine bespielte Diskette ohne Angabe einer ID 
formatiert wurde, präsentiert sich das Directory in 
jungfräulichem Zustand mit friedlichen 646 freien 
Blöcken. Doch dieser Zustand trügt, denn in Wirklichkeit sind 
noch alle Daten auf der Diskette vorhanden, nur der Zugang 
dazu ist verbaut. Es werden bei der Formatierung ohne ID nur 
die BAM (18,0) und der erste Sektor der Directory (18,1) for¬ 
matiert. Deshalb dauert dieser Vorgang auch nur einige 
Sekunden, während die Formatierung mit ID, bei der alle 
Blöcke formatiert werden, eine halbe Ewigkeit braucht. Da in 
jedem Sektor der Directory 8 Files verwaltet werden, sind 
außer den ersten 8 Filenamen alle weiteren Filenamen noch 
vorhanden. 


wahlmenü. 

Mit Fl wird die eigentliche Rekonstruktion des Directory 
gestartet. Es werden zuerst die Block-Zeiger eingelesen. 

Als nächstes werden die kritischen Blöcke, das heißt die 
Blöcke, auf die mehrere Blöcke zeigen, aufgelistet. Diese 
Blöcke sollte man sich notieren. Nun muß man entscheiden, 
ob man die noch vorhandenen Programmnamen im Directory 
für die Rekonstruktion hernehmen will. Wenn ja, dann wird 
zusätzlich das Directory auf noch vorhandene Namen hin 
untersucht. Im Anschluß daran werden die gefundenen Pro¬ 
gramme aufgelistet. Man hat nun zu entscheiden, welche 
Programme man wieder übernehmen möchte. Beantwortet 
man die Frage »WRITE BACK IN DIRECTORY« mit ja, dann 
wird das Programm in die BAM eingetragen. 

Hierbei können einige Probleme auftreten. Kritische 
Blöcke sollten nicht in das Directory zurückgeschrieben wer¬ 
den, da Blöcke, die als belegt gekennzeichnet werden sollten 
und schon belegt sind, die Fehlermeldung »no block« auslö- 
sen. In diesem Fäll kann man durch das im Programm vorge¬ 
schlagene Drücken der F7-Taste sich durch die kritischen 
Blöcke hangeln, bis ein normales Programm gefunden wird. 
Wichtig ist, daß auf der zu reformatierenden Diskette 664 
Blöcke frei sind, da sonst die gefundenen Programme nicht 
richtig in die BAM eingetragen werden können, was ebenfalls 
die Fehlermeldung »no block« zur Folge hat. 

Wenn im Directory noch der alte Name zu finden war, wird 
dieser vom Programm vorgeschlagen, wenn der alte Name 
schon gelöscht war, muß ein neuer Name eingegeben wer¬ 
den. 


Um die Programme auf der Diskette zu retten, muß man 
»nur« die gelöschten Sektoren 18,0 und 18,1 in der Directory 
wieder rekonstruieren. Man benötigt dazu vor allem die Start- 
Blöcke der Programme. 

Um die Start-Blöcke zu finden, müssen die ersten beiden 
Byte aller Blöcke von der Diskette eingelesen werden. Da 
diese Byte die Zeiger auf die folgenden Blöcke enthalten, 
kann man durch Zuordnen die Programmanfänge herausfin¬ 
den. Diesen Vorgang erledigt »Reformat«. 

Die Bedienung 

Zum Ausprobieren legen wir uns eine »absichtlich« forma¬ 
tierte Diskette zu. Machen Sie sich eine Kopie von einer Dis¬ 
kette mit mehr als 8 Programmen. Diese Kopie formatieren 
Sie mit OPEN 1,8,15, "N:TEST". 

Wenn Sie nun das Directory dieser Diskette betrachten, 
haben Sie ein leeres Inhaltsverzeichnis auf dem Bildschirm. 

Nun laden Sie »Reformat« (siehe Listing) und legen nach 
dem Start mit RUN die Test-Diskette in das Laufwerk. 

Sie befinden sich nun im Auswahlmenü. Mit F7 können Sie 
die Sektoren 1 bis 18 der Spur 18 untersuchen. Es werden 
in diesem Programmpunkt die untersuchten Blöcke mit den 
Zeigern auf die nächsten Blöcke aufgelistet. Zeigt ein Sektor 
auf 0,255, so ist dieser Sektor der letzte Sektor mit Einträ¬ 
gen. Die Reihenfolge der Sektoren ist dabei nicht linear 
(1,2,3,4,..), sondern geht in Dreierschritten von 1 bis 18 
(1,4,7,10,13,16;2,5,8,11,14,17;3,6,9...). Zeigt ein Sektor auf 
7 5,1, dann ist dieser Sektor nicht benutzt, also noch im frisch 
formatierten Zustand und hat deshalb keine Daten gespei¬ 
chert. 

»NO MORE FILES IN SEKTOR x« weist darauf hin, daß in 
diesem Sektor nicht alle 8 Einträge vorhanden sind. 

Hatte das Directory nicht mehr als 8 Einträge, so wird man 
keine Programmnamen mehr finden; hatte sie jedoch mehr 
als 8 Einträge, so sind ab Sektor 4 (dem Folge-Sektor vom 
gelöschten Sektor 1) die restlichen Einträge mit Namen, 
Anzahl der Blöcke, Programmtyp und Startspur und -Sektor 
angegeben. 


Ist das gesuchte Programm eingetragen, läßt sich die 
Refc. latierung ohne weiteres beenden. 

Programme mit nur einem Block werden ignoriert. 

Bei auftretenden Fehlern (zum Beispiel: read error oder no 
block) kann man das Programm durch F7 fortsetzen oder 
durch die —-Taste neu starten. Bei der Fortsetzung mit F7 
muß man sich unter Umständen durch mehrmaliges Drücken 
von F7 durch eine ganze Spur wurschteln. 

Aus Geschwindigkeitsgründen ist es empfehlenswert, das 
Programm zu compilieren. 

(G. Burger/ah) 


1 REM ******************************* <139> 

2 REM * REFORMAT V4.0 * <225> 

3 REM * * <052> 

4 REM * 1985 BY GEORG BURGER * <13B> 

5 REM * ROIDERSTRASSE 18 * <144> 

6 REM * 8051 ZOLLING * <209> 

7 REM ******************************* <145> 

8 S <240> 

9 : <241> 

10 POKE 53280,0:POKE 532B1,0:PDKE 646,5:PR 

INT CHR$ <142) <119> 

20 OPEN 1,8,15,"I":CLOSE 1:GOTO 1000 <170> 

97 <073> 

98 REM -ROUTINEN- <217> 

99 : <075> 

100 CLOSE 5sOPEN 5,8,5,“#2":RETURN <199> 

200 INPUT#15,Y1*,Y2*,Y3*,Y4* <021> 

210 IF VAL(Y1*>=0 THEN RETURN <172> 

220 PRINT"{D0WN>"Y1*" "Y2*" "Y3*“ "Y4* <092> 

230 PRINT"CDOWN,3SPACE}USE CSPACE,RVSON,SPA 

CE>«-CSPACE,RVOFF,SPACE>TO EXIT OR£SPAC 
E,RVSON,SPACE >F7 <SPACE,RVOFF,SPACE >TO 
CONTINUE <DOWN >" <161> 

240 POKE 19B,0 <148> 

250 GET A*:IF A*=""THEN 250 <220> 

260 IF A*="<-"THEN RUN <168> 

270 IF ASC(A*)=136 THEN RETURN <151> 

280 GOTO 250 <042> 

Listing zum Programm »Reformat«. 

Bitte mit dem Checksummer eingeben. 
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TIPS&TRICKS 


300 

310 


320 



PRINT" 


.0{4SPACE>BY(2SPACE >GEORG BURGER{3SPAC 
E,RVOFF>"; 

FÜR 1 = 1 TO 7:PRINT"S{38SPACE J W"; :NE X T 
I 


<225> 


<183> 

<134> 


330 PRINT"TTTTTTTTTTTTTYTTTT YTTTTTTTTTTTTT 
TTTTTTTT": RETURN 

400 PRINT"OLD DIRECTORY-REGISTER:":PRINT 
410 PRINT"NAME",DN*(Dl) 

420 PRINT"BLOCKS",DL(Dl) 

430 PRINT"TRACK" f DS(Dl) 

440 PRINT"SECTOR",DB(Dl) 

450 EF*="Y":RETURN 

500 PRINT"{DOWN,13SPACE,RVSON,SPACEJPRESS 
ANY KEY{SPACE,RVOFF>":PDKE 198,0 
510 GET A*:IF A*=""THEN 510 
520 RETURN 
600 D1=0 

610 IF(DS(Dl)=AS)AND(DB(Dl)=AB)THEN 400 

620 D1=D1+1:IF Dl>=DP THEN RETURN 

630 GOTO 610 

700 MB=NB:NB=NB+3 

710 IF NB=19 THEN NB=2 

720 IF NB=20 THEN NB=3 

730 RETURN 

997 : 

998 REM-MENUE- 

999 : 

1000 OPEN 15,8,15:OPEN 5,8,5,"#2" 

1010 DIM S(35,21),B(35,21),BL(35),DI*(29), 
DI(29), A*(255) 

1020 DIM SV(35,21),BV(35,21),US(35,21),DS( 
144),DB(144),DL(144),DN*(144>,DT(144) 
1030 FOR 1=1 TO 17:BL(I)=20:NEXT:FOR 1=18 
TO 24:BL(I)=18:NEXT 


< 187> 
<208> 
<042> 

< 148> 
< 020 > 
<031 > 

< 167> 

<046> 

<065> 

<070> 

<039> 

<073> 

<067> 

< 106> 
<251 > 
<208> 
<166> 
<024> 
<211 > 
<088> 
<213> 
< 001 > 

<139> 

< 190> 


<192> 


1040 FOR 1=25 TO 30:BL(I)=17:NEXT:FOR 1=31 

TO 35:BL(I> = 16:NEXT <24B> 

1050 GOSUB 300:POKE 214,4:POKE 211,0:SYS 5 

8640 <161> 

1060 PRINT"{RIGHT,3SPACE,RVSON,SPACE>F1{SP 
ACE,RVOFF,3SPACEJRECONSTRUCT DIRECTOR 
Y <156> 

1070 PRINT"{RIGHT,3SPACE,RVSON,SPACEJF7{SP 
ACE,RVOFF,3SPACE>EXAMINE DIRECTORY":P 
OKE 198,0 <119> 

1080 GET A*:IF A*=""THEN 1080 <245> 

1090 IF ASC(Ai)=133 THEN GOSUB 100:GOTO 20 

00 <109> 

1100 IF ASC(A*)=136 THEN GOSUB 100:GOSUB 4 

000:GOTO 1050 <035> 

1110 GOTO 1080 <035> 

1997 : <195> 

1998 REM - RECONSTRUCT DIRECTORY - <012> 

1999 : <197> 


2000 GOSUB 300:POKE 214,4:P0KE 211,0:SYS 5 
8640 

2010 PRINT"{RIGHT,9SPACEJREC0NSTRUCT DIREC 
TORY 

2020 PRINT"<RIGHT,12SPACE>USE{SPACE.RVSON, 
SPACE>t-{SPACE.RVOFF,SPACE>TO EXIT 

2030 print"{ 2DowN>geE@@@eee@e@gsge@@e@g@@e 

2040 PRINT"{RVSON,SPACE>TRACK{3SPACE1SECTO 
R{3SPACETT0{3SPACE >TRACK{5SPACE >SECTO 
R{SPACE,RVOFF>" 

2050 FOR S=1 TO 35:FOR B=0 TO BL(S) 

2060 PRINT#15,"B-R:"5j0;S;B:GOSUB 200 
2070 PRINT#15,"B-P:”5;0:GOSUB 200 
20B0 GET#5,E* 

2090 GET#5,F* 

2100 E=ASC(E*+CHR*(0>> 

2110 F=ASC(F*+CHR*(0>) 

2120 PRINT"{2SPACE>"S,B,"{4SPACE>"E,“{4SPA 
CE>"F 

2130 GET A*:IF A*=""THEN 2150 
2140 IF A*="*-"THEN CLOSE 15: RUN 
2150 IF E=75 AND F=1 THEN US(S,B)=-2:GOTO 
2200 

2160 IF E>35 THEN E=0 
2170 IF F>21 THEN F=21 
2180 S(S,B)=E:B(S,B)=F 

2190 SV(E,F)=S:BV(E,F)=B:US(E,F> =US(E,F)+1 
2200 NEXT:NEXT 

2210 REM-CRITICAL BLOCKS- 


<093> 

< 107> 

< 192> 
<188> 


< 199> 
<051 > 

< 154> 

< 109> 
<243> 
<0B4> 
<211 > 
<033> 

<090> 

<245> 

<043> 

<051 > 
<227> 

< 102 > 
<245> 
<214> 

< 171 > 

< 114> 


2220 GOSUB 300:POKE 214,5:P0KE 211,0:SYS 5 

B640 <075> 


2230 

2240 


2250 

2260 

2270 

2280 

2290 

2300 

2310 

2320 

2330 

2340 

2350 

2360 

2370 

23B0 

2390 

2400 

2410 

2420 

2430 


2440 

2450 

2460 

2470 


2^75 

2480 

2490 

2500 


PRINT"{RIGHT,12SPACEJCRITICAL BLOCKS <151> 
PRINT"{4D0WN,RVSON,SPACE >TRACK{3SPACE 
JSECTOR{3SPACEILENGHT{SPACE,RVOFF >":P 


RINT <227> 

FOR S=1 TO 35 <194> 

FOR B=0 TO BL(S) <169> 

IF US(S,B)<2 THEN 2290 <245> 

PRINT"{2SPACE>"S,B,US(S,B) <105> 

NEXT:NEXT <005> 

PRINT“{DOWN,9SPACE,RVSON,SPACE>END OF 
CRITICAL BLOCKS{SPACE,RVOFF>“ <14B> 

GOSUB 500«GOSUB 300:POKE 214,4:POKE 2 
11,0:SYS 58640 <181> 

PRINT"{RIGHT,3SPACEJUSE OLD DIRECTORY 
TO NAME FILES ? <243> 

PRINT" {RIGHT, 16SPACEXY/N) <006> 

GET DA*:IF DA*=""THEN 2340 <119> 

IF D A*< >“N"THEN DA*="Y": GOSUB 4030 <157> 

FOR S=1 TO 35 <050> 

IF S=1B THEN 2550 <063> 

FOR B=0 TO BL(S) <035> 

S1=S:B1=B <033> 

IF(S=l)AND(S(S,B)=0>AND(B(S,B)=1>THEN 
2540 <231> 

IF US(S1,Bl)<0 THEN 2540 <087> 

IF US(S1,Bl)>0 THEN S2=SV(S1,Bl):B2=B 
V(S1,B1):S1=S2:B1=B2:GOTO 2420 <173> 




>F ILE-START {SPACE , RVOFF > »_»■».♦«»«»»»««» 

i";:BA=1:AS=S1:AB=B1 

PRINT S1,B1:US(S1,B1)=—1 

S2=S(S1,Bl):B2=B(S1,B1):S1=S2:B1=B2 

IF S1O0 THEN BA=BA+1: GOTO 2440 


< 184> 
<016> 
<235> 
<213> 


E-END {SPACE, RVOFF ? <nnw 


N>“ <119> 
PRINT"LENGHT:“;BA;"BLOCKS":PRINT <231> 
IF BA<2 THEN 2540 <216> 
IF DA*="Y"THEN EF*=”N":GOSUB 600 <214> 


PRINT”{DOWNJWRITE BACK IN DIRECTORY ( 


Y/N)“:POKE 198,0:PRINT 
2510 GET E*:IF ES=""THEN 2510 
252'» IF E*=" Y"THEN 2570 
2530 IF E*< >“N"THEN 2510 
2540 NEXT B 
2550 NEXT S 
2560 GOTO 1050 

2570 REM-WRITE BAM- 

2580 S1=AS:B1=AB 

2590 PRINT#15,"B-A:"0;S1;Bl:GOSUB 200 
2600 S2=S(S1,B1):B2=B(S1,Bl):S1=S2:B1=B2 
2610 IF S1O0 THEN 2590 

2620 REM-WRITE DIRECTORY- 

2630 MB=1:NB=4 

2640 PRINT#15,"Ul:"5;0;18;MB:GOSUB 200 
2650 PRINT#15,"B-P:"5;0:GOSUB 200 
2660 GET#5,NS*,NB* 

2670 NS=ASC(NSS+CHR*(0)> 

2680 IF NS< >0 THEN GOSUB 700:GOTO 2640 
2690 C=0 

2700 GET#5,A*,B*,C* 

2710 IF A*=“"THEN A*="0" 

2720 IF B*=""THEN B*="0” 

2730 IF 'C*=""THEN C*="0" 

2740 IF A*="0"THEN IF B*="0"THEN IF C*="0" 
THEN 2910 

2750 FOR 1=1 TO 27:BET#5,A*:NEXT 

2760 C=C+1:IF C<8 THEN GET#5,A*,A*:GOTO 27 

00 

2770 IF MB<18 THEN 2810 

2780 PRINT"DIRECTORY IS FULL !" 

2790 BET A*:IF A*=""THEN 2790 
2800 GOTO 1050 

2B10 PRINT#15,"B—P:"5;0:GOSUB 200 
2820 PRINT#5,CHR*(18); 

2830 PRINT#5,CHR*(NB >; 

2840 PRINT#15,"U2:"5;0;18;MB:GOSUB 200 
2850 GOSUB 700 

2860 PRINT#15,"Ul:”5;0;18;MB:GOSUB 200 
2870 PRINT#15,"B-P:"5;0:GOSUB 200 
2880 PRINT#5,CHR»(0);CHR*(255);:FOR 1=0 TO 
253:PRINT#5,CHR*(0);:NEXT 
2890 PRINT#15,"U2:"5;0;18;MB:GOSUB 200 
2900 GDTO 2640 

2910 PRINT"TRACK 18 SECTOR"MB"POSITION"C+l 
:PRINT 

2920 P=2+C*32 


< 127> 

< 148> 

< 105 > 

< 199> 
<026> 

< 172> 

< 120 > 
<236> 
< 222 > 
<17B> 

< 131 > 
<19B> 
<074> 
<030> 

< 107> 

< 181 > 
<052> 

< 114> 

< 157> 
<059> 
< 210 > 
<017> 
<037> 
<057> 

<045> 

< 120 > 

< 138> 
<247> 

< 194> 
<016> 
<104> 
<085> 
<247> 
<154> 
<054> 
<048> 
<073> 

< 147> 

<227> 

<104> 

< 022 > 

< 119> 

< 137> 
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C 64 


2930 

2940 

2950 

2960 

2970 

2980 

2990 

3000 

3010 

3020 

3030 

3040 

3050 

3060 

3070 

3080 

3090 

3100 

3110 

3120 

3997 

3998 

3999 

4000 

4010 

4020 

4030 

4040 

4050 

4060 

4070 

4080 

4090 

4100 


PRINT#15,"B—P:"5;P:GOSUB 200 
DI*(0)=CHR*<130) 

DI*(1)=CHR*(AS> 

DI*(2)=CHR*<AB> 

FOR 1=3 TO 18:DI*<I)=CHR*<160):NEXT 
IF DA*="Y"AND EF*="Y"THEN PRINT"C7BPA 
CE>"DN*(D1)"<UP>" 

INPUT"NAME ";N* 

N*=LEFT*(N*,16> 

FOR 1=0 TO LEN <N*> —1 
DI* <3+1)=MID* <N*,1 + 1,1) 

NEXT 

FOR 1 = 19 TO 27:DI*(I)=CHR* <0):NEXT 
BH=INT(BA/256):BL=BA-256»BH 
DI*(28)=CHR* <BL> 

DI * < 29 )=CHR*(BH) 

FOR 1=0 TO 29 
PRINT#5,DI*(I )5 
NEXT 

PRINT#15,"U2:"5;0;18;MB:G0SUB 200 
GOTO 2540 


REM - EXAMINE DIRECTORY 


GOSUB 300:POKE 214,4:P0KE 211,0:SYS 5 
8640 

PRINT"{RIGHT,11SPACEJEXAMINE DIRECTOR 
Y 

PRINT"{RIGHT,12SPACE1USE{SPACE,RVSÜN, 
SPACE> + {SPACE,RVOFF,SPACE>TO EXIT 
PRINT 
MB=1:DP=0 

PRINT#15,"Ul:"5;0;18;MB:GOSUB 200 
PRINT#15,“B—P:"5;0:GOSUB 200 
GET #5,NS*,NB* 

NB=ASC < NB*+CHR*(0)) 

NS=ASC <NS*+CHR*(0)) 

PRINT"{D0WNJTTTTTTTTTTTTTTTTTTTTTTT77 


4110 PRINT"{5SPACEJTRACK 18{2SPACE>SECT0R" 
MB"—>"NS" "NB 
PRINT 


4120 

4130 

4140 

4150 

4160 

4170 


4180 

4190 

4200 

421.0 

4220 

4230 

4240 

4250 

4260 

4270 


4280 

4290 

4300 

4310 

4320 

4330 

4340 

4350 

4360 

4370 

4380 

4390 

4400 

4410 

4420 

4430 

4440 

4450 

4460 


GET A*:IF A*=""THEN 4150 
IF A*="+"THEN CLOSE 15:RUN 
IF NS=75 AND NB=1 THEN 4440 
PRINT 

PRINT”{RVSON5BLQCKS"TAB <7)"NAME"TAB <2 
6)"TYP"TAB <31)"TRA."TAB <36>"SEC.{RVOF 
F>" 

FOR C=0 TO 7 

GET A*:IF A*=""THEN 4210 
IF A*="+"THEN CLOSE 15:RUN 
FOR 1=0 TO 29 
GET#5,DI*(I) 

NEXT I 

IF C<>7 THEN BET#5,A*,A* 

FOR 1=0 TO 29:DI<I>=ASC<DI*<I>+CHR*<0 
>):NEXT 

KW*=" NO MORE FILES IN SECTOR" 

IF DI<0> =0 AND DI<1)=0 AND DI<2>=0 TH 
EN PRINT"{DOWN,6SPACE,RVSON>"KW*;MB“{ 
LEFT,SPACE,RVOFF >":PRINT:GOTO 4440 
DS < DP) =D I < 1 > : DB < DP) =D I < 2 ) 

DL(DP)=DI<29)*256+DI(28) 

DN*(DP) ="":FOR 1=3 TO 18: IF DI <1)016 
0 THEN DN*(DP)=DN*(DP)+DI*<I> 

NEXT I 
DT(DP)=DI(0) 

DP=DP+1 

PRINT DI(29)*256+DI(28);TAB(7);CHR*(3 
4); 

FOR 1=3 TO 18: IF DI (1)0160 THEN PRIN 
T DI*(I>; 

NEXT:PRINT CHR*(34); 

BY=DI(0)AND(NOT 128):IF BY=0 THEN PRI 
NT TAB(26);"DEL"; 

IF BY=1 THEN PRINT TAB(26);"SEQ"; 

IF BY=2 THEN PRINT TAB(26);"PRB"; 

IF BY=3 THEN PRINT TAB(26);"USR"; 

IF BY=4 THEN PRINT TAB(26);"REL"; 
PRINT TAB(30);DI(1>;TAB(35);DI(2) 

NEXT C 

MB=MB+1:IF MB<>19 THEN 4050 
IF DA*="Y"THEN RETURN 
GOSUB 500:RETURN 


<215> 

<193> 

<099> 

< 156> 
<066> 

< 135> 
< 222 > 
<032> 
<224> 

< 197> 
<246> 

< 140> 
<024 > 
<057> 
<067> 
<028> 
<026> 
<062> 
<070> 
<228> 
<163> 
<049> 
<165> 

<061 > 

< 162> 

< 160> 
<066> 

< 163> 
<247> 
<065> 

< 192> 
< 101 > 
<008> 

<170> 

< 105> 

<041 >; 
<021 > 
< 011 > 
<147> 

< 198> 


< 141 > 

< 137> 
<143> 
<071 > 
<142> 

< 170> 
<250> 

< 140> 

<081 > 
<018> 


< 175> 

< 175> 

< 116> 

<045> 
<074 > 
<045> 
<234 > 

<051 > 

< 1B5> 

< 171 > 

<218> 
<083> 
<021 > 
<248> 

< 16B> 
<208> 
<148> 

< 135> 
<216> 
<075> 


Listing zum Programm »Reformat« (Schluß) 


Spline - 
das computer¬ 
gesteuerte 
Kurvenlineal 

Durch wenige Stützstellen lassen sich 
beliebige Kurven sehr exakt ermitteln und 
darstellen. Daher ist das Programm für all 
diejenigen interessant, die in irgendeiner 
Form etwas mit der grafischen Auswertung 
von Meßwerten zu tun haben. 

D ie Motivation zum Erstellen einer ersten Version des 
Programms »SPLINE« erhielt ich während meiner 
Diplomarbeit. Große Mengen an Meßwerten waren 
innerhalb kurzer Zeit grafisch zu verarbeiten, um weiterfüh¬ 
rende Versuche planen zu können. 

Die konventionelle Methode einer grafischen Versuchs¬ 
auswertung besteht darin, die Meßwerte (Stützstellen) von 
Hand in ein entsprechend dimensioniertes Koordinatensy¬ 
stem einzutragen und in einem weiteren Arbeitsschritt mittels 
eines Kurvenlineals (Spline) zu einem stetigen Kurvenzug zu 
verbinden. 

üuich den Einsatz des Programms »SPLINE« (Listing) in 
Verbindung mit Simons Basic, einem C 64, einer Floppy 
1541 und einem Drucker MPS 801 verringert sich der 
Arbeitsaufwand auf das Eintippen der Wertepaare. Sind die 
Stützstellen erst einmal in einer Datei abgelegt, bestehen die 
verschiedensten Möglichkeiten, die Ergebniskurven zu kom¬ 
binieren und darzustellen. 

Ein Nachteil mit Vorteilen 


Gemeint ist die bei zahlreichen Stützstellen erhebliche 
Rechenzeit, bedingt durch die reine Basic-Programmierung. 
Für alle jene, die einen Blick hinter die Kulissen werfen möch¬ 
ten, also den Berechnungsalgorithmus der Splines ergrün¬ 
den wollen, ist die Bearbeitung in Basic sicherlich leichter 
nachvollziehbar. 

Was Ist ein Spline? 

Nur die im vorliegenden Programm verwendeten »kubi¬ 
schen Splines« sollen hier etwas näher erläutert werden. Der 
Graph einer kubischen Splinefunktion verhält sich wie eine 
Kurve, die mit einem elastischen Kurvenlineal (Spline) 
gezeichnet wird, so daß sie die vorgegebenen Punkte (Stütz¬ 
stellen) ohne Knick durchläuft. 

Eine Splinefunktion besteht aus einer Anzahl von Teilfunk¬ 
tionen, die jeweils durch ein Polynom 3. Grades beschrieben 
werden. 

y = a + b*x + c*x 2 + d*x 3 

Die Anzahl dieser Polynome richtet sich nach der Anzahl 
der Stützstellen; je zwei Stützstellen werden durch ein Poly¬ 
nom verbunden (Bild 1). 

Der glatte Übergang der Polynomgraphen an den Stützstel¬ 
len hängt allein von der Bestimmung geeigneter Koeffizien¬ 
ten (a, b, c, d) ab. Zu diesem Zweck stellt man an den Berühr¬ 
punkt zweier benachbarter Polynome vier Bedingungen: 
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Bild 1. Mit Hilfe von nur 4 Stützstelien 
wird eine solche Kurve ermittelt 


KEY 

<l> < 

TAPE 


GRAPHIC 

<2> 

B-FILE 


DISK 


GRAPHIC 

■.4> 

D-FILE 

15) 

FKT-SPL 

C6> 


Bild 2. Hauptmenü 


NEW 

<1> 

TAB 

<2> 

COPY 

<3> 

GRAPH 

C4) 

OLD 

<5> 

COF'V 

(6> 

TAPE 

<7> 

DISK 

<8> 



Bild 4. Wertverlust zweier 
Mittelklasse-Pkws 


Bild 7. 

Beide Parabeln: deutlich 
erkennt man die geringe Abweichung 



Bild 5. Mit »Spline« erzeugte Parabel 


10 



Bild 6. Tatsächlicher Kurvenverlauf 
der Parabel 



1. Der Funktionswert des Polynoms entspricht an den Stütz¬ 
stelien dem y-Wert dieser Punkte. 

2. Die y-Werte zweier Polynome im Berührpunkt sind gleich 
klar, sonst würden sie sich nicht berühren. 

3. Die Steigung und... 

4. die Krümmung der Polynomgraphen im Berührpunkt sol¬ 
len gleich sein. 

Aus diesen vier Bedingungen lassen sich für jedes Polynom 
vier Gleichungen ableiten - man erhält also pro Polynom ein 
Gleichungssystem. Ein Gleichungssystem, in dem die Anzahl 
der Gleichungen gleich der Zahl der Unbekannten ist, kann 
eindeutig gelöst werden. Die Unbekannten sind in unserem 
Fall die vier Koeffizienten a, b, c, d der Polynome. 

Programmbeschreibung 


Das Programm »SPLINE« arbeitet menügesteuert - die Ein¬ 
gabe erfolgt im Dialogbetrieb. Nach dem Start des Pro¬ 
gramms erscheint das Eingabemenü (Bild 2). 

KEY 

Eingabe eines neuen Datenfiles über die Tastatur. 

TAPE-GRAPHIC 


onunsp*'.' 

über die einzugebenden Stützstellen beziehungsweise die 
nach der entsprechenden Splinefunktion zu berechnenden 
Zwischenwerte. 

ANZAHL DER KURVEN, 

deren Stützstellen eingegeben werden sollen. 

ANZAHL DER INT.POL.SCHRITTE? 

Anzahl der Interpolationsschritte, also Anzahl der Werte¬ 
paare, die vom Computer nach der ermittelten Splinefunktion 
zwischen zwei Stützstellen berechnet werden sollen. Bei 
einer zu geringen Zahl von Interpolationsschritten wird der 
Kurvenverlauf in der Grafik eckig - bei einer großen Anzahl 
erhöht sich die Rechenzeit. 

EINGABE STÜTZSTELLEN 

Die Eingabe der Stützstellen erfolgt entsprechend dem fol¬ 
genden Beispiel: 


Stützstellen 

Anzeige 

Eingabe 

X 

y 



1 

2 

X(1),Y(1) 

1,2 

1.5 

2.4 

X(2),Y(2) 

1.5,2.4 

3.75 

5.12 

X(3),Y(3) 

3.75,5.12 


Abrufen einer vollständigen Grafik vom Band. 

TAPE-D-FILE 

Abrufen eines einzelnen (oder mehrerer) Datenfiles vom 
Band 

DISK-GRAPHIC 
DISK-D-FILE 
siehe TAPE. 

FKT-SPL. 

Diese Option ermöglicht den Vergleich zwischen dem Gra¬ 
phen einer mathematischen Funktion und dem Kurvenverlauf 
eines durch Splines dargestellten Zusammenhangs. 

KEY (1) 

Nach Wahl der Option 1 erwartet das Programm Angaben 


FKT-SPL (6) 

Nach Wahl der Option 6 erwartet das Programm die Eingabe 
einer mathematischen Funktion in Basic-Syntax. 

Beispiele: 


math. Fkt. 

Eingabe 

f(x)=x 2 

Xt2 

f(x)=]/82x+3 

SQR(82*X+3) 


Des weiteren müssen als Funktionsdaten der Anfangs-x- 
Wert, der End-x-Wert und die Anzahl der Zwischenwerte 
innerhalb der Definitionsmenge (Anf.-x-Wert bis End-x-Wert) 
spezifiziert werden. 
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Ergänzen 

Sie jetzt Ihre Cl 


-Sammlung 


Schaffen Sie sich ein interessantes Nachschlagewerk und gleichzeitig ein 
wertvolles Archiv! 


Kennen Sie alle Ausgaben von 64’er? Suchen Sie einen ganz bestimmten Testbericht? Oder haben Sie einen Teil 
eines interessanten Kurses versäumt? Suchen Sie nach einer speziellen Anwendung? 

Damit Sie jetzt fehlende Hefte mit »Ihrem« Artikel nachbestellen können, finden Sie auf diesen Seiten eine 
Zusammenstellung aller wesentlichen Artikel der Ausgaben 01 bis 12/85. 

Und so kommen Sie schnell an die noch lieferbaren Ausgaben: Prüfen Sie, welche Ausgabe in Ihrer Sammlung 
noch fehlt, oder welches Thema Sie interessiert. Tragen Sie die Nummer dieser Ausgabe und das Erscheinungs¬ 
jahr (z.R 2/85) auf dem Bestellabschnitt der hier eingehefteten Bestell-Zahlkarte ein. Die ausgefüllte Zahlkarte ein¬ 
fach heraustrennen und Rechnungsbetrag beim nächsten Postamt einzahlen. Ihre Bestellung wird nach Zahlungs¬ 
eingang umgehend zur Auslieferung gebracht. 
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B4 

09/06 

Grafik 


92 

10/86 

Sound 

Dor SlDChlp seine Rogistor und Programmiorung 

92 

11/86 

Spolchor 

Die Speicherbelegung dos C 64 

96 

12/88 

Abenteuerlösungen 



Ulsungon 

Dallas-Quost L06ung 

90 

01/85 


Lösung The Hobhit 

49 

02/83 


Guncho Krill-Enchanter ist aolöst 

44 

03/85 


Infocom-Ceholmnlaso gelüftet? 

49 

05/83 


Des Rütaols Lösung: Amaron 

145 

Oti/83 


Activisten-Advonturos entschleiert (Mindshadow. 

36 

12/83 


Tracer Sonetten) 




Eurokal - ich habV 

37 

13/85 


LöBungon «u Hitchhlkor 1 « Guido und Sorcorer 

39 

12/85 

Spiele-Tests 



007 

Jarnos Bond - A View lo a KUl 

156 

09/83 

Abontouor 

Abentouerpakot l 

48 

00/85 


Amaxon — das bo sondere Ad venture 

49 

04/85 


Gardon Saga 

4B 

02/86 


Shado-Arftro 

146 

09/85 


The Quott — mit C 64 auf 5ucho nach Drachen 

47 

01/85 

Action 

Heaenkuehe 

50 

07/85 


Impotsiblo Mission 

46 

02/85 


Master ot the Lemps 

48 

07/88 



150 

10/85 


Stellar 7 

49 

C8/35 

Constructlon Mall Ordor Monsters 

49 

00/85 

Set 

Racing Destrucbon Set 

50 

00/85 

Geschick- 

Australopedieus Robuatus 

50 

C8/85 

lichkelt 





Bouldor Dash II 

159 

10/85 


Crystal Castles 

50 

07/85 


Stichwort 

Titel 

Sötte 

Ausgabe 


Oribbljr’s Day out 

140 

09/85 


Rock’n Bolt 

48 

00/85 


Thing on a Spring 

15» 

10/85 


Tom . Zaga 

40 

01/85 


Roland'o Rat Raco 

4!) 

OB/85 


Fourth Protocol und Frank)o gi.H. 

162 

11/83 

Renner 

Die Ronnor 1963: Meist verkaufte Spiele 

34 

12/83 

Simulation 

Elite 

146 

OB/05 


Jump Jot 

140 

09/85 


Supor Huoy Hubflchraubenlmulatar 

4» 

07/B3 

Sport 

Bexspiole: Frank Bruno's B * Bany McCuignn 
Champions. B 

49 

12/85 


ding Hst 

165 

11/85 


Nick raldo Playa the Open (Golf) 

159 

10/85 


Rallye Speedway 

49 

07/05 


Slapshot (Eishockey) 

50 

07/05 


Summer Games II 

146 

09/85 


World Senos Basebail 

49 

07/05 

Divcraos 

New York City und Ali Support 

143 

06/85 


Hardware-Tips und Bauanleitungen 



Audio/Vidoo 


90 

02/85 


Richtig verbunden — Video/Audio «uioel C 64 
(+ Fehlcneulol 3/85) 

22 

02/85 


Mit 5 Mark «u neuen Dimensionen (Stereoanlage 
am C 64) 

34 

05/85 


Ein Monitor ist genug (EGB-t-Componte an C 123) 

16 

10/85 

C 16 

Alto Datasone am C 16 

31 

04/85 


Alter Joystick am C IC 

35 

03/88 

Eingabe¬ 

geräte 

Der Hörer — Zusatrrastaiur für den MSE 

43 

10/85 

EPROM 

EPROMs im EspanBon-Pon 

46 

10/85 


EPROM-Trans - Die Supor-Erwoiterung 

42 

10/85 


Das €4'er EPROM-Piogrammieigcnlt. TbU 1 

44 

12/8S 

Floppy/Data- 

Diskettenlaufwerk 1541 selbst Justiert 

33 

10/85 

sotto 

Die Datasette streikt nie wieder (Anpassung des 
Tbnkopf») 

34 

10/85 

IEC-Hun 

Auf *u nouon Wollen: lEC-Bus Im Solbstbau 
(4-Fohlortoufel I0/8S) 

44 

07/88 

Joystick 

Joystick im Selbstbau 

33 

03/65 


Dauerfeuer-Adapter 

46 

09/85 

RS232/V.24 

Das 30-Marklnlerfaco (Selbslhau RS233) 

29 

03/85 


Conau betrachtet: Die RS232/V24-5chnntswllo 

DO 

03/83 

VC 20 

16 KByte-Erweiterung umsc haltbar 

20 

02/85 


Der VC 20 steuert Supor 8-Kamera 

70 

02/83 

Divoraos 

Usorpon-Displiiy 

56 

03/63 


Rcoot-Taster für alle Fülle (. Fehlert. 9/B5) 

130 

Ofl/83 


Aus eins mach vier (absturxfrele Bemebasystem- 

41 

07/85 


umscholtung) 


Hardware-Grandlagen 


C W 

C 18 — großer oder kleiner Brudor des C 6«? 

29 

04/85 

Computer 

WM bringt dorC 1287 

28 

11/89 

Drucker 

Wolcher Druckor Ist dor Richtige? (Grundlagen) 

18 

00/18 


Hammerwerke — wie funktionieren Typenrad- 
druckor 

32 

08/BS 


Dlo Altomatlvon: Thormo-, Tmtenntrahldruckor 

4 Plotter 

24 

07/83 

Elngabe- 

geiüte 

Versteht Clo Ihr Computer? (Wie funktionieren 
Eingabegeräte) 

44 

09/85 

Floppy 

Floppy oder Datasette? 

129 

06/85 

Monitor«» 

Wio funktionieren sie. was Ist beim Kauf xu beachten? 

18 

12/83 


Dua Kabel tum Monitor. Wolcho Normon gibt oo? 

28 

12/85 

Peripherie 

CraflkolngabogortU: Wio funktionieren sie? 

30 

08/85 


Hardware-Tests 



80 Zeichen 

Mit 60 (Engt das Loben an (TOsl Bö-Zelchtm-Karten) 
(»Fohlort 6/85) 

17 

04/88 

Computer 

Coneratianswachsol: TOot C 18 

18 

01/88 

Plus und Minus beim PIub/4 

14 

02/85 


PC 128 - dor Profi (Hardwaretest) 

13 

04/86 


Enter ausführlicher Tost C 128 PC (Teil 1) 

18 

08/85 


Enter ausführlicher Tbst C 128 PC (Toil 2) 

17 

07/85 

DFÜ 

MaiktUbondcht Modoms & Akustikkoppler 

32 

07/85 

Druckor 

Vergleich: Druckor unter 700 Mark (Turfs und 

Mar krübe reicht) 

18 

05/88 


Tests und MarktUbenacht Typenraddrucker 

38 

00/85 


TO«: Brothor EP 44 

27 

07/83 


Rrothar TC-000 

118 

08/63 


Rite man Ce 

133 

09/88 


Panasonic KX-P1091 

134 

09/BS 


Star SO 10C 

132 

09/05 


Molchen CP-80X — wio hätten Sie’s denn gern? 

SS 

I0/BS 


Geheimtip: Der RFI DP 165 

24 

10/BS 


Epson GX 80 — einer für alle 

26 

10/BS 


MPS 003 - ein Drucker für allo Gelegenheiten? 

40 

1/8S 


Epson JX-80 das vlolfarblge Druck-Gonio 

38 

11/05 


Epson FX-83 neue Referens 

42 

11/85 


SP 1000 VC - Supentar mit Haken 

41 

11/85 


Der NEC-P3 — das fernöstliche Wundor 

159 

12/88 


DMPC9 - eine solide Sache 

162 

12/85 


Stichwort 

Titel 

Seite 

Ausgabe 

Eingabe- 

Der BÜdochUm wird «ur Lolnwand (TbchSketch- 

21 

04/86 

gortte 

Llghtpon) 

Das DoppoUobcndoeJoystick-Port* lOor-Tbstaturen 

30 

09/83 


Joysticks Tost und MarktUbcralcht (.Fohlorteufo) 

19 

11/83 


12/83) 

En geht auch andere. Ughtpona und Trackballs 

22 

11/85 

EPROMer 

Frisch gebrannt ist halb gespeichert (EPROM- 

39 

07/85 


Programmiergeräte Im Test) 

QuickByto n - das Kraftpaket 

14 

10/83 

Flopp//Data- 

Schnell wie der Wmdflbst Spoeddoo. Turbo-Acceas) 

22 

04/85 

settc 

Turbo-Flopplco. «weite Generation: Spoeddoo plus 

28 

10/85 


+ Prologlc DOS 

Das große Rennen. SchneUo Bandlaufwerke 

37 

10/85 


Profeosionolle Floppylaufworko für don C 64 (IEC- 

30 

10/85 


Floppios) 

Gut gokauft ist halb gespeichert (Maiktüboreicht 

38 

10/85 

Grafik 

Disketten) 

Dlo Vidooworkstatt (DigltixorTost) 

32 

05/63 


Digitalbildor rr.d. C 64. PitntTecluuk Digitirei 

24 

01/55 

Intortacn 

Hardware-Interface gana weich Tbst EC 64 

23 

01/85 


Gute Connections — Übersicht Schnittstellen 

21 

03/65 


Card/Pnnt -.6 - Das ADround-lnterfaco 

20 

03/65 


Das Wiesomann-Contronics-Interface 

16 

03/85 


Erat ein lEC-Bus öffnet Tür und Tür 

24 

03/85 

Morutorc 

(+Fehlert4/6-85) 

Eino klare Sache Test Phönix-Monitor 

28 

04/85 


Marktilfcc reicht: Monochrome Monitoxe 

30 

12/85 

Musik 

Die Stimme des Meralera: Test Vcice Master 

19 

02/85 


Trommelwirbel: Test Digital Drums 

45 

08/85 


Die Musikhardware «um C 64 

17 

09/85 

Oaalloskop 

Dor C 64 als Speichcrosrrliookop 

26 

04/B5 

Roboter 

Roboter selbst gebaut (Fischcrtochnsk) 

167 

10/85 

Scanner 

So lernt Ihr Drucker losen 

30 

OE/85 

Speicher 

Spoichortuning VC 20: Tost 64 KByte Karte 

26 

01/85 

Steuern 

Flottes Türmchen: MEA-lntorface 

116 

06/85 


Kurse 




Aauemhler 

Assembler Ist keine Alchimie, TBU 5 

142 

01/85 


ABSomblor ist keine Alclumio, Tbil 6 

134 

02/85 


Aasomblor ist keine Alclumio, Tbil 7 

134 

03/85 


Assembler ist keine Alchlmlo, fbü 8 

138 

04/85 


Aasomblor lat koine Alchimie. Toll 9 

138 

00/83 


Assembler ist keine Alchimie, Teil 10 

137 

07/86 


Assembler ist koine Alchimie, TbÜ II 

136 

00/06 


Assembler lat keino Alchimie, TbU 12 

109 

09/85 


Assembler ist keine Alchimie, Tbil 13 (Schluß) 

143 

10/86 

C 126 


43 

12/86 

Comal 

Comal - Eine Einführung. Teil 3 

130 

02/86 

Elfektives 

Müllabfuhr Im Computer. Carbege Collocuon. 

122 

01/05 

Program- 

TbÜ 1 



mioron 

Stringprogrammlerung in Maschinensprache, Teil 2 

147 

02/85 


Finden mH System, eine neuartige Suchmethodo. 

TbU 3 

140 

03/88 


Somoron mit dom Computer, Tbil 1 

140 

04/05 


Sortieren mH dom Computer, Teil 3 

159 

05/05 


Sortieren mH dem Computer. Tbil 3 

134 

08/116 


Sortioron mit dem Computer, Tbil 4 

138 

08/05 


Sortloron mit dem Computer. TbU 5 

124 

09/03 


Sortieren mit dem Computer. TbU 6 (SclüuB) 

150 

12/06 

Extom 

C 64 extern - Der Wog nach draußen. TbU 1 

144 

06/05 


C 84 extern - Dor Weg nach draußen, TbU 2 

133 

09/05 


C84extern—Dor Weg nach draußen.Toll3(Schluß) 

139 

I0/B8 

Floppy 

ln dlo Cehotmnlroe dor Floppy elngouucht. Teil 4 

148 

01/85 

In die Coholmnixo dor Floppy elngouucht. TbU 5 

130 

03/83 



145 

OB/65 


In die Cehelmnlaae der Floppy elngotaucht. T0U 7 

118 

06/B5 


Directory-Manipulationen I 

140 

06/85 

Hoppy 

Directory Manipulationen 11 

183 

10/85 

Grafik 

Hlros 3 - die Crafikerwoiterung xum Grafikkure, 
TbU 1 

133 

02/80 


Hlros 3 - 18 nouo Baslc-Bolohlo, TbU 3 

130 

03/88 


Hlros 3 - OralUdrure Anwendung, TbU 3 (SchluB) 

152 

08/85 


Sprito» ohne GohoimnWoe 

40 

06/85 


Stmifrtigo durch die Gratlkwclt. TbU 1 

100 

OT/86 


Streifzügo durch dlo Crafikwolf, TbU 2 

149 

il/85 

Logoloion 

Logelelen, TbÜ 1 

143 

07/85 


logoloien, TbU 2 

136 

00/86 


Logoloion. TbÜ 3 (SchluB) 

115 

09/88 

Musik 

Dom Klang auf dor Spur, ToU 2 

136 

01/85 


Dem Klang auf der Spur. Tbil 3 

152 

02/85 


Dom Klang auf der Spur. TbU 4 

131 

04/85 


Dem Hang auf dor Spur. TbU 5 

153 

05/B5 


Dem Klang auf der Spur, TbU 7 

132 

07/85 


Dom Klang auf dor Spur. Toü 8 

133 

OB/85 


Dem Klang auf der Spur, TbU 9 

126 

10/85 


Dem Klang auf dor Spur. TbU 10 (SchluB) 

157 

11/85 

Speicher 

Memory Map mit Wandorvorachlägen, TbU 3 

126 

01/85 


Memory Map mH Wandcrvorachlttgen. TBÜ 4 

150 

03/85 


Memory Map mit Wai-.dervorechlägon. ToU 3 

144 

03/86 


Memory Map mit Wandorrorschiagon. Teil 6 

144 

04/85 


Momory Map mit Wandorvorachlägen. Tbü 7 

130 

C6/85 


Momory Map mit WandorvorachlUgon. ToU G 

140 

07/86 


Memory Map mH Wur.dcrvorechlilgen. Teil B 

129 

00/85 


Momory Map mit Wandervorachlägon. TbU 10 

112 

09/86 



133 

10/85 


Momory Map mit Wandorvorachlägon. TbU US 

145 

11/85 




























Thal 


Thal 


Momory Map ml! Wandonorachlägen. Teil 13 
Sprachen Basic irrt out — es lebe Förth 
VC ao Der gläserno VC 20, TVrü 4 

Der gläserne VC 20. TbÜ S 
Dor glüsome VC 20. Teü 6 (Schluß) 


13/SS 

01/flS 

01/ES 

02/BS 

03/35 


Software-Tips 


C 128 

Erato Fragen und Antworten rum C 128 

14 

09/88 


Fragon und Antworten rum 120er 

30 

10/85 


Fragon und Antworten sum 128er 

40 

12/65 

Drucker 

Dor MPS B02 lornt Deutsch 

30 

05/88 


Centronics Intnrfaco für joden Bedarf 

78 

07/53 

Tbxtvomrboi 


174 

12/ES 

tung 

richtig elngooetst (Virawnto-Tips) 



7ps & Tricks 

Autoboot beim C Ö4 

86 

03/85 



03/06 


Undefiniert» Opcodoa doo 6502 

84 

03/88 


Durch POKEo «um Erfolg (Spiolo-POKEo) 

83 

03/65 


Tips und Erwnitniungnn tu Hi EddlundSunona Basic 

06 

03/35 


Hardcopy mit einer Zeile (MPS 601) 

83 

04/85 



83 

04/85 


G-l-Tutnturtndorung 

63 

04/05 


Bamc-Bofohlo im Gnff 

79 

05/85 


Durch POJCEa rum Erfolg: Sploio-POKEa 

71) 

06/35 


Fannattoite Eingabe 

Mil 

06/83 


HiText (Text ln Hires) 

70 

00/05 


Verbotene Variablen 

66 

09/83 


Verachiodono Routinen ftlr AnQngor und Pioflo 

BH 

11/85 


(«Fohlertoufol 12/BS) 




Dor Trick mit dom Joystick (Joyotlckobfrago) 

24 

11/38 


Verachiodono Tipo für Anfänger und Fbiigo- 

IW 

12/85 


■chrittono 




Software-Grandlagen 

Asaomblor Anemblor? Anoembloi! (Einhüllung) 


CompUor 

DFO 


So arbeiten CompUor 39 

Ein modemoD Abontouer - Mallbarnn ln Deutschland «3 

40 
4« 


Der orata Kontakt mit DFO 
Dlo Notte dor Po«: Btt. Datox P. Tolobos 
DFÜ - Waa Ist dao? 

Mallbox für AnOngor 

Dlo wichtigsten BogriKo dor Datei Verwaltung 
Datei Verwaltung 1« nicht glotch Datonbank 
Datolverwaltung*. Was Sht beim JCaufboachtenoallton 


01/85 

12/85 

03/83 

04/85 

06/89 

06/85 

00/85 

07/85 

05/85 

05/88 

06/85 


Transfer 

Unter- 


Parametoiübargabo an MatichinenaumcnopTogramroe 8ö 

01/88 

Cumomtouorung leichi gemacht 

ß8 

02/85 

Maschinensprachopiogramme auf Dfcfc apeichorn 

91 

02/BS 

Baaic-Zeilen genau botmchi»: 

67 

02/65 

RAM-FToppy 

92 

02/53 

22 Read Error - Theono und Praxia 

41 

03/65 

Floppy-Liuter (. Fohlertoufol 4/85) 

62 

03/65 

Langscroen boim VC 20 

63 

08/BS 

C IG: Help und Trace verbessert 

54 

05/65 

Ordnung ist das halbo Loben (Duoctory-Sortor) 

77 

05/65 


155 

06/65 

(Wett bo worb) 



Prost mit dom C 64. CerHieBtouomng übor 

76 

06/35 

Uoerport (.Fohlertoufol 9/35) 



Foncter-Befehle für den C If. 

M 

07/05 

Elnlrtronucho Morkaottol 

33 

07/88 

File-Compactor 

82 

07/88 

REM-Killer (.Fehlortoufol 9/8S) 

76 

07/86 

Pjzjc Suui Generator 

74 

07/B5 

Xomfortoblo Ein-/AuBgabeioutine 

77 

07/85 

Bildnchirmmanlinn leicht oratnll! 

86 

06/65 

Der Bitmap-Compander (HiRoe-Bildor komprimloron) 

81 

08/65 

Hypra-Savo 

79 

08/115 

Piocodurn - odor der C 64 kann lernen 

78 

08/65 

Aufgewickelt - Ustingscrolling für VC 20 

63 

09/B5 

Progrnmmgonoratci Mi den C 64 

66 

10/BS 

Croso-Rof optimiert 

B3 

10/65 

Spielctrainor: Spntekill 

86 

11/05 

Tipp-Utillty 

09 

12/55 

Der EPROM-Automat (wie man Modulo macht) 

90 

12/33 

flOZoichon-Oratlk für den C 128 

78 

12/85 

Hyper Scroon (SpritnB auf dom BUdachtrmrand) 

76 

12/BS 

Dor C M uli PET PETSimulaloi 

07 

01/05 

Formitlorto Ein gab o 

ISO 

01/88 

Notlandung (Das luatlgnto Programm) 

106 

02/03 

Epoon bedruckt Oatoimer (AdM)(. Fohlerteufcl 5/85) 

50 

04/B8 


Software-Tests 

Aanomblor 


Drucker 

Hardcopies) 

34 

09/88 

Compilor 

EPROM 

Wlo sage ich oh meinem EPROM? (EPROM- 
Orundlagen) 

35 

07/85 

DFÜ 

Funkuonon 

Funktionen für Anfänger 

164 

05/85 

Datei 

D>mon 

Bos&or lernen mit dem Computer 

166 

10/85 


Murlk 

Klangprogiammlening ohno Ballast 

19 

09/88 


Spiele 

Taktik- und Süntogiocplolo 

46 

03/85 



Play by Mail und Play by Modem 

153 

09/85 


Sprachen 

Sprachen für Computer 

47 

04/85 



Sprachen für Computer, Tbil 2 

46 

05/83 


Textveraibet- 

Von der Schrelbmaachine sum Textryitom 

34 

03/85 

Lernen 


Listings zum Äb tippen 


Anwondung Dor C 64 als Handballtralner (AdM) 
Familinnplammg (AdM) 

Ligatab — ohne Organisation kein Tor (LdM) 

Cut Ziel mit dem C 64— Schütxenvoroinsoigobnla 
(AdM) 

Weißt du, wioviel Stomloin stehen (Sternkarte) 
(AdM) (.Fehlen. 6/85) 

Hausfcaltabuchführung (AdM) 

st Ein Programm für Hobby- 


52 


oloktromker (AdM) 

Prüfungafragon (AdM) 52 

Fit in Latem mit dom C 64 (AdM) 52 

Lyrik-Maschine (AdM) 52 

Hypra-Platos (LdM) 50 

Dor Chemie-Aaaistont (AdM) 82 

SMON Tbil 3t Ohno gutoa Werks, goht as nicht 69 

SMON Tbil 4 (+ Fflhlortoufcl 4/85) 72 

SMON TVsü 5(* FOhlertoufol S/ES) 64 

Hypm-Asa (LdM) 51 

Nouob vom SMON (.Fehlertcufel 11/85) 87 

Roassomblor su Hypra-Ass (+Fehlortoufol 12/85) 97 

Ergänzungen xu Hypra-Asa (bedingto Vorxwelgungon) 96 
Tips & Tricks sum SMON (inklusive Diakmonltnr) 100 

Basic- Befohlaorwelterung C 64: Bildachlrmstouorung Ü0 

Erweiterung und Maakon 

«Basic 64 eine Supor-Boxic-Eiwe iterung (LdM) 
(♦Fehlertoufel 5/85) 

Auflösung Wettbewerb BUdachirmwuta: 

Drei Top-Programme 

nderSplttonklaase 


01/85 

02/55 

03/85 

03/85 

05/85 


CQ/86 

10/85 

11/85 

11/88 

12/85 

01/85 

02/85 

04/85 

07/83 

10/BS 

11/85 

11/BS 

12/05 

04/85 


Bildschirm- 

■cito 

DFO 

Datei 

Drucker 


(. Fohlertoufol 10/85) 
5MU - Der Mo« 


r (LdM) 


Pnnt-Ust (fonrutlorte Ltttinga) 

Hi-L'ddl-Drückenoutlnon 69 

C 64 Schreiberling — Drucken wie gemalt 54 

KoalabOdor Pubhardcopy auf Epoon JX-80 » 

Die nächsten 14 aua d EuuoUerwottboworb 157 

11 neue Elnaoüori (.Ibhlorioufol 5/9/85) 153 

Hypra-Load mal 4 (. Fehlerteufol 3/85) 52 

Nouea vom Hypra-Load- Hypra-Perfokt 78 

Dtokettanmoiutor 63 

Dlak-Deatgnor 70 

Herzoperation (Hypra-Load . Hypm-Au . DOS8.1. 104 
Contronico) 

Vlor Pseudo-VICa nut 32 Spritoa 78 

Hi-Eddl. Zeichen- und Molproggratnm (LdM) 50 

Ala dlo Bilder laufen lernten (Psoudo-ScxoU) 08 

Elektrotechnisches Zeichnen mit dom VC 20 71 

Suporgraftk Hl (3D-Graflk*n mit dem VC 20) 73 

Funktionen im Nots (3D-Grafik) 60 

Window 64 — fbnatottochnflc (Ur den Commodora 67 
Mini-Grafik VC DO. Craftkhllfo 38 

Trickfilm mit dom C 64: Bewegte 3D-Oraflk (LdM) 81 

(♦ Fehlertoufel fl/85) 

Kurvenplotton mit Hardcopy auf dom C 16 OB 

Doppel» OrafOauflöBung für C 128 33 

Bilder aua einer andoren Dimension (ApfolmAnnchon) 80 


VlC-daalr 
(Wo 


o Progran- 


Schach 

Spiele 


Sound Machino (* Fohlortoufel 10/35) 
Sound Manier (Baac-Erweitorung) 


Das Grab des Pharaoh (LdM) (♦ Fohlertoufol 3/Bfi) 51 
O -Bett (VC 20) 78 

Gehlrntralrung mit Super Momory Bl 

6510 - Die Suche nach dor Prosoasox 70 

Samurai (Ärategioaplel) 73 

Schach domC64.Schachprogrammsum Abtippen 72 
Spielen auf xwoi BÜdnchirmon; 51 
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Am besten 

gleich mitbestellen: 

Die 64'efrSqmmelbox 

Für alle Leser, die »64’er« regelmä¬ 
ßig kaufen, sammeln oder im 
Abonnement beziehen, gibt es 
jetzt ein interessantes Service-An¬ 
gebot: die 64'er-Sammelbox! 

Mit dieser Sammelbox bringen 
Sie nicht nur Ordnung in Ihre 
wertvollen Hefte, sondern schaf¬ 
fen sich gleichzeitig ein interes¬ 
santes und attraktives Nachschla¬ 
gewerk. 

Übrigens: Die Sammelbox ist 
nicht nur ein praktisches 
Aufbewahrungsmittel: Sie 
eignet sich auch her¬ 
vorragend als Ge¬ 
schenk für Freun¬ 
de und Bekannte 
zu vielen 
Anlässen. 


Auch die bisher 
erschienenen Sonderhefte 
können Sie 
jetzt direkt bestellen: 


SONDERHEFT 01/M: TIPS X TRICKS 

Unentbehrliche Anwendungsiistings für C 64 und 

SONDERHEFT 01/85: ABENTEUERSPIELE 

Fesselnde Adventures mit zahlreichen Lösungen und 
einem Programmierkuis. 

SONDERHEFT 03/8S: SPIELE 

Heiße Lislings für Spiele-Fans und eine große 
Marktübersicht. 

SONDERHEFT 04/15: ORR FIX I DRUCKER 

Von der 3D-Darstellung bis zur Hardcopy-Routine. 

SONDERHEFT 05/B5: FlflPPV/MTRSETTE 

Sott-Tools zum komfortablen und noch schnelleren 
Betrieb von Floppy und Dalasette. 

SONDERHEFT 06/15: WSGEWftHUi SUPER-USTINGS 

Top-Themen aus 64’er bringt eine Auswahl der besten 
64 'er Programme. 

SONDERHEFT 07/15: ANWENDUNGEN/DFU 

Leistungsfähige Programme für professionelle 
Anwendungen und Datenfernübertragung. 



















































TIPS&TRICKS 


C 64 


Nach Eingabe der entsprechenden Daten erscheint wie¬ 
der das Eingabemenü. Die Daten der zu vergleichenden Spli- 
nes können nun entweder über die Tastatur, das Bandgerät 
oder die Diskettenstation eingegeben werden. 

Nach Eingabe der in der jeweils gewählten Option gefrag¬ 
ten Angaben gelangt man ins Ausgabemenü (Bild 3). 

NEW (1) 

zurück ins Eingabemenü. 

TAB (2) 

Ausgabe der ermittelten Splinefunktionen auf dem Bild¬ 
schirm; Ausgabe der x,y-Werte der Stützstellen sowie der 
errechneten Interpolationswerte in Tabellenform. 

COPY (3) 

Ausgabe der entsprechenden Tabelle (TAB (2)) auf einem 
Drucker MPS 801. 

GRAPH (4) 

Grafische Darstellung im HiRes-Mode (Simons Basic). 
Wurde zuvor eine vollständige Grafik von Diskette oder Band 
geladen, so erfolgt nach Wahl dieser Option direkt die grafi¬ 
sche Ausgabe auf dem Bildschirm. 

Für die Darstellung eines Datensatzes, der über die Optio¬ 
nen KEY oder D-FILE eingegeben wurde, sind einige Anga¬ 
ben zur Beschriftung der Koordinatenachsen (Einheiten) und 
der Achseneinteilung erforderlich. Die Einteilung kann 
sowohl manuell (MANU) als auch automatisch (AUTO) erfol¬ 
gen. Bei manueller Eingabe der Achseneinteilung können 
lineare oder logarithmische Maßstäbe für Ordinate (y-Achse) 
und Abszisse (x-Achse) gewählt werden. Des weiteren 
erwartet das Programm Angaben über die Begrenzung 
(MAXIMALWERT, MINIMALWERT) und Einteilung (STU¬ 
FUNG) des Diagramms, jeweils für X-ACHSE und Y-ACHSE. 
OLD (5) 

Nach Wahl dieses Menüpunktes erscheint die zuletzt 
erstellte Grafik wieder auf dem Bilschirm. 

COPY (6) 

Erzeugt Hardcopy der Grafik auf einem Drucker MPS 801. 

TAPE (7), DISK (8) 

Nach Wahl einer dieser Optionen wird die vollständige Grafik 
auf Band oder Diskette als Datensatz abgelegt. 

Abschließend noch zwei Hinweise zur allgemeinen Bedie¬ 
nung des Programms. Unterbricht der Programmablauf zur 
Darstellung einer Grafik oder Tabelle, so wird es nach 
Drücken der SPACE-Taste fortgesetzt. Bei nahezu allen Ein¬ 
gaben ist es möglich, durch Drücken der »—«-Taste einen 
Rückschritt zu erzeugen, um Korrekturen durchzuführen. 
Entsprechend dem speziellen Format bei der Eingabe der 
Stützstellen bedeutet hier »—,0« einen Rückschritt. 
Beispiele 

Bild 4 zeigt den Wertverlust zweier Mittelklasse-Pkw im 
Vergleich. Die Wertepaare (Jahre, DM) wurden einer ADAC- 
Zeitschrift entnommen. Die obere Kurve repräsentiert den 
Kadett L 1.3, während die untere Kurve den Preisverfall des 
Peugeot 305 GL zeigt. 

Als Beispiel eines durchgeführten Programmlaufs in der 
Option FKT-SPL zeigen die Bilder 5 bis 7 den Vergleich einer 
durch Splines erzeugten Parabel mit dem Graphen der Funk¬ 
tion f(x)=x 2 . Für die Spline-Berechnung wurden 10 Interpo¬ 
lationsschritte und die folgenden Stützstellen gewählt: 


X 

-3 -2 -1 

0 

1 

2 

3 

y 

9 4 1 

0 

1 

4 

9 


Das Ergebnis zeigt Bild 5. Die Funktionsdaten für die Dar¬ 
stellung des Funktionsgraphen f(x)=x 2 (Bild 6) waren: 
ANFANGS X-WERT : -3 

END X-WERT : 3 

ANZAHL ZWISCHENWERTE : 20 
Die Überlagerung der beiden Kurven in Bild 7 zeigt kaum 
erkennbare Abweichungen und beweist damit die Leistungs¬ 
fähigkeit des Spline-Verfahrens. (M. Buhtz/ah) 


10 REM ********************** 


20 

REM 

* 

SPLINE 

* 

30 

REM 

* 


* 

40 

REM 

* 

BY 

* 

50 

REM 

* 


* 

60 

REM 

* 

M.BUHTZ 

# 

70 

REM 

* 


* 

80 

REM 

» 

TEL.: 0281/22431 

* 


90 REM ********************** 

100 RUN110 

110 REM *** NATUERLICHE SPLINEFUNKTION *** 

120 : 

130 REM EINGABEMENUE 
140 : 

150 PRINT"Ua EINGABEMENUE 

160 PRINT:PRINT:PRINTsPRINTSPC(15)"KEY <1>" 

170 PRINT:PRINT:PRINTSPC(15)"TAPE 
180 PRINT:PRINTSPC(15)"GRAPHIC (2)" 

190 PRINTSPC(15)"D^FILE (3)" 

200 PRINT:PRINT:PRINTSPC(15)"DISK 
210 PRINT:PRINTSPC(15)"GRAPHIC (4)" 

220 PRINTSPC(15)“D-FILE (5)" 

230 PRINT:PRINT:PRINTSPC(15)"FKT-SPL (6)" 

240 GETA*:A=VAL(A*>:ON A GOTO 380,3560,4550,3570,4 
560,4930:GOTO240 
250 : 

260 REM AUSGABEMENUE 
270 : 

280 PRINT"LiU AUSGABEMENUE 


290 

PRINT:PRINT:PRINTSPC(12)' 

"NEW 

(1) “ 


300 

PRINT:PRINT:PRINT: 

PRINTSPC(12)' 

“TAB 

(2)" 

310 

PRINT:PRINTSPC(14) 

"COPY 

(3)" 



320 

PRINT:PRINT:PRINT:PRINTSPC(12)' 

•GRAPH 

(4) " 

330 

PRINT:PRINTSPC(14) 

"OLD 

(5) » 



340 

PRINT:PRINTSPC(14) 

"COPY 

(6) " 



350 

PRINT:PRINTSPC(14) 

"TAPE 

(7) " 



360 

PRINT:PRINTSPC(14) 

"DISK 

(B) " 




370 GETA*:A=VAL(A*):ON A GOTO 100,930,3380,1230,2 
570,2540,3890,3900:GOTO370 
380 : 

390 REM EINGABE KEY 
400 : 

410 PRINT"^ja 


420 PRINT:PRINT:INPUT“ 

430 IFAK*="«-"THEN150 
440 AK=VAL(AK*) 

450 IFAK=0THEN420 
460 PRINT:PRINT:INPUT" 

E" ; SW* 

470 IFSW*="<-"THEN420 
480 SW=VAL(SW*> 

490 IFSW=0THEN460 
500 PRINT: PRINT 
510 F0RI=1T0AK 
520 PRINT:PRINT" fiKURVE"I 

530 PRINT:PRINT:INPUT" ANZAHL DER STUETZSTELLEN"; 
NI*(I) 

540 IFN1* (I) — "+-"THEN460 
550 NI (I) =VAL (NI* (I) ) 

560 IFN1(I)>=3THEN590 

570 PRINT:PRINT:PRINT“ FEHLER!“ 

580 PRINT:PRINT" MINIMALE ANZAHL STUETZSTELLEN =3 
!":GOTO530 

590 IFN1(I)>N1THENN1=N1(I) 

600 NEXTI 

610 PRINT:PRINT:PRINT“ EINGABE O.K. ? (J/N)" 

620 GETA* 

630 I FA** 5 " N “ THEN410 
640 IFA*=“J"THEN660 
650 GOTO620 
660 N1=N1+1 

670 DIMX(AK,N1),Y(AK,N1),SW(AK,N1> 

680 DIMA(Nl),C(N1),B(NI),D(NI),H(N1),M(NI,N1>,V(NI 
),0(N1),P(N1),Q(N1) 

690 FORI-ITOAK 

700 PRINT“Lia EINGABE STUETZSTELLEN 


EINGABE KEY 
ANZAHL DER KURVEN";AK* 

ANZAHL DER INT.POL.SCHRITT 


710 PRINT:PRINT:PRINT" fiKURVE"I"H" 

720 FQRJ—1TGN1(I) 

730 IFJ<=0THEN690 

740 PRINT"ÜlBl X("J">, Y("J") " 

750 INPUT"ai " | X* ( I , J) ,Y(I,J) 

760 IFX* (1,0) =*"*-"THENJ=J—2: NEXTJ 
770 X(I,J > =VAL(X *(I,J)> 

780 DE=SW* (NI (I) —1)+N1 (I) I ictinn 

790 IFDE>DITHENDI=DE LlSIing. 

800 nextj Das Programm »Spline« 

oiS . T , läuft nur mit Simons Basic 

820 FGRJ=2T0N1(I> 


830 SW(I,J-1)=(X(I,J)-X(I,J-1))/SW 


100 
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TIPS&TRICKS 


840 NEXTJ 

850 PRINT:PRINT:PRINT“ ABSPEICHERN? (J/N)" 

860 GETA*:IFA*="N“THEN890 
870 IFA*="J“THEN4320 
880 GOTO860 
890 NEXTI 

900 DIMZ(DI+3>,T(DI+3) 

910 BOTO260 
920 : 

930 REM TABELLE 
940 : 

950 : 

960 FORK=1TOAK:G=0:N=N1<K>:E6=1 

970 GOSUB4100:GOSUB2610:J=0 

980 PRINT-LJil KURVE"K"|| 

990 FORL=1TON1<K):PRINT 

1000 Al=INT(A<L>*100+.5)/100:Bl-INT<B<L)*100+.5>/l 

00:Cl=INT(C(L>*100+.5)/100 

1010 D1=INT(D(L>*100+.51/100 

1020 PRINT"SPL1|"L"||: Y=3"A1 "Hi»+a"Bl "MI*X+a"Cl "1 
*Xt2+a"Dl"Bl|*XT3" 

1030 NEXTL 

1040 IFPEEK (2031 O60THEN1040 

1050 PRINT"kja KURVE"K"«I X Y 

■" 

1060 F0RI = 1T021 
1070 IFI+J7GTHEN1160 
1080 ZA=ABS< Z < I + J > > :TC=ABB(T(I+J11 
1090 IFZA<1THENZA=0.1 
1100 IFTC<1THENTC—0-1 

1110 TA=INT(LOG(ZA)/LOG(1011+1:TB=INT(LOG(TC1/LOG( 
10 ) 1+1 

1120 PRINTTAB<13—TA)Z(I+J),TAB(28—TB)T(I+J) 

1130 NEXTI 

1140 IFPEEK <2031060THEN1140 
1150 J=J+21:GOTO1050 
1160 IFPEEK<2031060THEN1160 
1170 IFE5= 2THEN1190 
1180 NEXTK 

1190 J=0:I=0:IFE5=1THEN5120 
1200 IFE5=2THENE5=1:E6=0 
1210 GOTO260 
1220 : 

1230 REM GRAPHIC 
1240 : 

1250 IFD<>0THENTX=NX:TY=NY:GOSUB4100:GOTO1920 
1260 E2=0:E3=0 

1270 PRINT" k ja ACHSENEINTEILUNG UND EINHEITEN 

1280 PRINT: PRINT: INPUT" EINHEIT X-ACHSE“ ; 71* 

1290 I FT 1*= " +-" THEN280 

1300 PRINT:PRINT:INPUT“ EINHEIT Y-ACHSE";T2* 

1310 IFT2*="+-" THEN 1270 

1320 PRINT:PRINT:PRINT:PRINTSPC<12)"3 EINTEILUNG g 

1330 PRINT:PRINT:PRINT:PRINTSPC <141“MANU <11" 

1340 PRINT:PRINT:PRINT:PRINTSPC(14)"AUTO (2)" 

1350 GETA*: IFA*=" + "THEN1270 
1360 A=VAL(A*>:IFA=2THENE1“1:GOTO1B40 
1370 IFA=1THENE1=0:BOTO1390 
1380 GOTO1350 

1390 PRINT:PRINT: PRINT"iJ 3 X-ACHSE H“ 

1400 PRINT:PRINT:PRINTSPC(12)"LINEAR (1)“ 

1410 PRINT:PRINTSPC(12)"LOGARITH. (2)“ 

1420 GETA*: I FA*= " +- " THEN1320 

1430 A=VAL<A*>:ONAGOTOl440,1560:GOTO1420 

1440 INPUT"£J£1 MAXIMALWERT"; MX* 

1450 IFMX*”"«-"THEN 1390 
1460 MX=VAL(MX*> 

1470 INPUT“ÄlS MINIMALWERT",-NX* 

1480 IFNX*=“+-"THEN1670 
1490 NX=VAL(NX*) 

1500 IFNX7MXTHENPRINT:PRINT:PRINT“ FEHLER !" 

:GOTO1440 

1510 V=296/(MX-NX):TX=NX 

1520 INPUT “Sgl STUFUNG" ;SX* 

1530 IFSX*™"*-" THEN 1470 
1540 SX=VAL(SX*) 

1550 GOTO1610 

1560 INPUT“ÄI«!Ba MAXI MAL WERT "; MX* 

1570 I FMX*= " +-" THEN 1390 
1580 MX=VAL(MX*) 

1590 MX=LOG(MX)/LOG<10):SX=1:NX=0:TX=0:V=296/MX 
1600- E2=l 

1610 PRINT:PRINT:PRINT"LJ 3 Y-ACHSE " 

1620 PRINT:PRINT:PRINTSPC(12)"LINEAR <1>" 

1630 PRINT:PRINTSPC(12)"LOGARITH. (2)" 

1640 GETA*:A=VAL<A*>:ONAGOTO1670,1790:GOTO1640 
1650 GETA*: IFA*="+-“THEN1390 
1660 A=VAL(A*):ONAGOTO1670,1790:GOTO1640 
1670 INPUT"SE1 MAXIMALWERT";MY* 

1680 IFMY*="<-”THEN1610 


1690 MY—VAL(MY*) 

1700 INPUT " BW MINIMALWERT"; NY* 

1710 IFNY*="<-"THEN 1670 
1720 NY=VAL(NY*) 

1730 IFNY >= J MYTHENPR INT: PR INT: PR I NT " FEHLER ! 

":GOTO1670 

1740 W=176/(MY-NY):TY=NY 

1750 INPUT "BIBI STUFUNG"; SY* 

1760 IFSY*="+-" THEN 1700 
1770 SY=VAL<SY*> 

1780 GOTO1840 

1790 INPUT "BIEIS MAX I MAL WERT “ ; M Y* 

1800 I FMY*= " " THEN 1390 
1810 MY=VAL(MY*> 

1820 MY=LOG(MY)/LOG(10):SY=1:NY=0:TY=0:W=176/MY 
1830 E3=l 

1840 PRINT:PRINT:PRINT“ EINGABE O.K. ? (J/N)" 

1850 GETA* 

1860 IFA*="N"THEN 1270 
1870 IFA*="J"THEN1900 
1880 : 

1890 GOTO1850 
1900 G0SUB4100 
1910 : 

1920 FORK=1TOAK:G=0:N=N1(K) 

1930 : 

1940 G0SUB2610 
1950 : 

1960 IFE1=0THEN2060 

1970 MY=INT<(MY+MY/10)*100+.51/100 

1980 NY=INT<(NY-NY/10)*100+.51/100 

1990 W=INT<(176/(MY-NY>)*100+.5)/100:TY-NY 

2000 SY=INT((MY-NY)*100+.5)/500 

2010 MX=X(K,N):NX=X(K,1) 

2020 V=INT((296/<MX-NX>)*100+.5)/100:TX=NX 
2030 SX=INT<(MX-NX)*100+.51/500 
2040 E1=0 
2050 : 

2060 IFK71THEN2340 

2070 HIRES0,14 

2080 LINE0,0,320,0,1 

2090 LINE320,0,320,200,1 

2100 LINE320,200,0,200,1 

2110 LINE0,200,0,0,1 

212°' PORJ= 0TO320STEPSX+V 

21^^ FORL=1B4TO0STEP—4 

2140 PLOTJ,L,1 

2150 NEXTL 

2160 IFJ=0THEN2200 

2170 T*=STRS<INT(TX+100+.51/100) 

2180 IFE2=1THENT*=STR*( INT (10tTX»100+. 51/100 ) 

2190 TEXTJ—16,18B,T*,1,1,8 
2200 TX=TX+SX 
2210 NEXTJ 

2220 TEXTJ-SX*V*1.8,176,TI*,1,1,8 
2230 FORJ=200TO0STEP-SY»W 
2240 FORL= 0TO320STEP4 
2250 PLOTL,J,1 
2260 NEXTL 

2270 IFJ=200THEN2310 

2280 T*=STR*<INT(TY+100+.5)/100) 

2290 I FE3= 1 THENT*=STR* (I NT < 101TY* 100+. 5) /100) 

2300 TEXT0,J+2,T*,1,1,8 
2310 TY=TY+SY 
2320 NEXTJ 

2330 TEXT8,J+SY*W*1.5,T2*,1,1,8 

2340 IFE3=0THEN2390 

2350 FORJ=1TOG 

2360 IFT(JX1THENT(J) = 1 

2370 T <J> =LOG <T <J>)/LOG(10) 

2380 NEXTJ 

2390 IFE2—0THEN2440 

2400 FORJ=lTOG 

2410 IFZ(JX1THENZ(J)=1 

2420 Z(J)=LOG(Z(J>)/LOG(10) 

2430 NEXTJ 
2440 FORI—1TOB—1 

2450 Z1=(Z(I)-NX)*V :Z2=(Z(I+1)-NX)*V 

2460 TI=200— <T(I)-NY)*W :T2=200-<T<1+1)-NY)«W 

2470 IFZ1<0ORZ2< 0ORT1< 0ORT2< 0ORZ1>320ORZ2 >320ORT1> 

200ORT2>200THEN2490 

2480 LINEZI,T1,Z2,T2,1 

2490 NEXTI 

2500 I FE5=2THENE5= 1: GOTO2570 
2510 NEXTK 
2520 IFE5= 1THEN5120 
2530 GOTO2570 

2540 PRINT"wJ":-PRINT:PRINT:PRINT:PRINT:PRINTSPC(9) 
"DRUCKER EINGESCHALTET ?" 

2550 IFPEEK(203> < >60THEN2550 

2560 cset 2 :copy Listing »Spline« 

25M IFPEEK (203,<>60THEN25B0 (Fortsetzung) 
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2590 

CSET0:GOTÜ260 

3460 

PRINT#4,CHR*(146)CHR*(16)“18"Z(I) CHR*(16)"3 

2600 

c 

3"T CI) 

2610 

REM BERECHNUNG DER INT. POL. STELLEN 

3470 

NEXTI 

2620 

: 

3480 

IFE5<>BTHEN3500 

2630 

GOSUB2B30 

3490 

NEXTK’ 

2640 

: 

3500 

IFE5=1THEN5120 

2650 

FORI=1TON-1 

3510 

IFE5=2THENE5=1: E6=0 

2660 

X=X(K,I):Y=Y(K,I)sBOSUB3280 

3520 

CLQSE4:GOTQ2B0 

2670 

IFE1=1THENNY=Y(K,1) 

3530 

: 

2680 

FORX=X <K,I)+SW(K,I)TOX(K,1+1> STEPSW <K,I> 

3540 

REM EINGABE TAPE DISK 

2690 

X=INT(X*100+.5>7100 

3550 

s 

2700 

IFX—X (K, 1 + 1) THEN 2750 

3560 

D=1:GOTO3580 

2710 

Y=A(I> +B(I)* < X-X <K,I))+C <I> * < X-X <K,I))T2+D < I 

3570 

D=8 

>*(X- 

-X <K, I) ) 13 

3580 

PR INT "LJ" 

2720 

: 

3590 

FORI = 1T06: PR INT: NEXTI 

2730 

GQSUB32B0 

3600 

IFD=1 THENPRI NTSPC(6)"RECORDER O.K. ?" 

2740 

s 

3610 

IFD=8THENPRINTSPC(6)"FLOPPY O.K. 7" 

2750 

NEXTX 

3620 

PRINT:PRINT:INPUT" FILENAME";N* 

2760 

NEXTI 

3630 

IFN*-"<-" THEN 150 

2770 

X=X(K,N):Y=Y(K,N> 

3640 

PRINT:PRINT 

2780 

: 

3650 

OPEN1,D,0, N*:0PEN2,8,15:INPUT#2,F,B* 

2790 

GOSUB3280 

3660 

IFF=0THEN3700 

2000 

: 

3670 

PR INT" UBI FEHLER: "B*:CL0SE2:CLOSEI:DIR"* 

2B10 

RETURN 

3680 

GETA*: I FA*< >" " THENPRI NT " U": GOTO3620 

2820 

: 

3690 

GOTO36B0 

2830 

REM KOEFFIZIENTENBERECHNUNG 

3700 

INPUT#1,AK,SW,DI 

2840 

: 

3710 

INPUT#1,T1*,MX,NX,V,TX,SX,E2 

2850 

FORI=lTON 

3720 

INPUT# 1 , T2* , MY, NY ,W,TY,SY, E3 

2860 

A(I)—Y (K,I):NEXTI 

3730 

F0RK=1T0AK 

2870 

C(l> =0:C(N)=0 

3740 

INPUT #1,N1(K) 

2880 

FORI=lTON-l 

3750 

IFN1(K)>N1THENN1=N1(K) 

2890 

H(I)=X(K,I+1>-X(K,I> 

3760 

NEXTK 

2900 

NEXTI 

3770 

N1=N1+1 

2910 

: 

3780 

DIMX(AK,NI),Y(AK,NI),SW(K,N1> 

2920 

GO5UB3000 

3790 

DIMA(Nl),B(N1),C(N1>,D(N1>,M(N1,N1),V(N1>,0(N 

2930 

: 

1),P(N1),Q(N1) 

2940 

FORI=lTON—1 

3800 

FORK=lTOAK 

2950 

B(I) = (A(1 + 1)-A(I))/H <I)-H(I)*(C(1 + 1)+2*C(I))/ 

3810 

FORI=lTONl(K) 

3 


3820 

INPUT#1,X(K,I),Y(K,I):INPUT#1,SW(K,I) 

2960 

D(I) = (C(I+1)-C(I) )/ (3*H(I>) 

3830 

NEXTI 

2970 

NEXTI 

3840 

NEXTK 

2980 

RETURN 

3850 

CLOSEI:CL0SE2: DIMZ (D1+3) , T (DI +3):GOTO260 

2990 

: 

3860 

: 

3000 

REM KOEFFIZIENTENBERECHNUNG C 

3870 

REM AUSGABE TAPE DISK 

3010 

REM MATRIX M 

3RR0 


3020 

: • i 

3C' ' 

D=1:G0T03910 

3030 

F0RI=2T0N-1 

3900 

D=8 

3040 

M(I,I)=2*(H(I)+H(I+1>) 

3910 

PRINT" U" 

3050 

M(I,I+1)=H(I) 

3920 

F0RI=1T06:PRINT:NEXTI 

3060 

M(I+1,I)=HCI) 

3930 

IFD=1THENPRINTSPC(6)"RECORDER O.K. 7" 

3070 

NEXTI 

3940 

IFD=BTHENPRINTSPC(6)"FLOPPY O.K. 7" 

30B0 

: 

3950 

PRINT:PRINT:INPUT" FILENAME";N* 

3090 

REM VEKTOR V 

3960 

OPEN1,D,1,N* 

3100 

: 

3970 

PRINT#1,AK:PRINT#1,SW:PRINT#1,DI:PRINT#1,T1* 

3110 

F0RJ=2T0N-1 

3980 

PRINT#1,MX:PRINT#1,NX:PRINT#1,V:PRINT#1,NX:PR 

3120 

V(J)=3*(A(J+1)-A(J> )/H(J)-3*CA(J)-A(J-l) )/H(J 

INT#1,SX:PRINT#1,E2 

-1) 


3990 

PRINT#1,T2*:PRINT#1,MY:PRINT#1,NY:PRINT#1,W:P 

3130 

NEXTJ 

RINT#1-NY 

3140 

s 

4000 

PRINT#1,SY:PRINT#1,E3 

3150 

REM GAUSS 

4010 

FORK=lTOAK:PRINT#l,Nl(K) : NEXTK 

3160 

: 

4020 

FORK=lTOAK 

3170 

0(2)=M<2,2) :P(2)=M(2,3>70(2>:Q(2>=V(2>/0(2> 

4030 

F0RI=1T0N1(K) 

3180 

F0RI=3T0N 

4040 

PRINT#1,X(K,I):PRINT#1,Y(K,I):PRINT#1,SW(K,I > 

3190 

0 (I > =M (I , I > -M (I , I - 1 > *P ( I - 1 ) 

4050 

NEXTI:NEXTK 

3200 

P(I)=M(I,I+1)/0(I) 

4060 

CLOSEI:GOTO280 

3210 

Q(I)«<V(I)-M(I,I-1)»Q<I-1> ) /O(I) 

4070 

: 

3220 

NEXTI 

4080 

REM TEXT 

3230 

F0RI=NT02STEP-1 

4090 

s 

3240 

C(I>=Q(I>-P(I>*C(I+1> 

4100 

PRINT"Ua SPLINE BERECHNUNG 

3250 

NEXTI 


■" 

3260 

RETURN 

4110 

FORI=1TO10:PRINT:NEXTI 

3270 

: 

4120 

PRINTSPC(13)"BITTE WARTEN" 

3280 

REM ERGEBNISSE SPEICHERN 

4130 

RETURN 

3290 

s 

4140 

: 

3300 

G=G+1 

4150 

: 

3310 

Z(G)=INT(X*10000+.5)710000!T(G)=INT(Y*10000+. 

4160 

REM BUBBLESORT 

5)710000 

4170 

: 

3320 

IFE1=0THEN3350 

4180 

F0R0=2T0N1(I) 

3330 

IFT(G)>MYTHENMY=TIG) 

4190 

FORP=N1 ( I ) TOOSTEP-1 

3340 

IFT(G)<NYTHENNY=T <G) 

4200 

IFX ( I,P-1 > >X ( I,P> THEN4220 

3350 

RETURN 

4210 

GOTQ4250 

3360 

3 

4220 

H=X(I,P):0=Y(I,P) 

3370 

S 

4230 

X(I,P)=X(I,P-1):Y(I,P)-Y(I,P-1) 

3380 

REM TAB COPY 

4240 

X(I,P-1)=H:Y(I,P-1)=0 

3390 

: 

4250 

NEXTP 

3400 

PRINT"wJ" s PRINT : PRINT : PRINT : PRINTSPC (9 > "DRUCK 

4260 


ER EINGESCHALTET 7" 

4270 

return Listing »Splme« 

3410 

3420 

IFPEEK(203)< >60THEN3410 

0PEN4 , 4 

4280 

4290 

s (Fortsetzung) 

3430 

FORK=1 TO AK : N=N 1 (K >: G=0 : E6=2 : G0SUB2610 

4300 

REM AUSGABE DATENFILE 

3440 

PRINT#4,CHR*(1B> “ KURVE "K" X 

4310 

: 


Y 

4320 

PRINT:PRINT:PRINTSPC(14)"TAPE (1)" 

3450 

FORI=lTOG 

4330 

PRINT : PRINTSPC(14)"DISK (2)" 
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4340 GETA*:A=VAL(A*>:ONAGOTG 4350,4360:GQTO4340 
4350 D=1:GOTD4370 
4360 D=8 
4370 PRINT" J" 

4380 F0RJ=1T06:PRINT:NEXTJ 

4390 IFD-l-THENPRINTSPC(6) "RECORDER Ü.K. ?“ 

4400 IFD=BTHENPRINTSPC(6)"FLOPPY O.K. ?“ 

44X0 PRINT:PRINT:INPUT" UM FILENAME ";N* 

4420 OPEN1,D,1,N* 

4430 PRINT#1,SW:PRINT#1,DI:PRINT#1,N1(I) 

4440 FORK-1TON1(I) 

4450 PRINT#1,X(I,K):PRINT#1,Y(I,K):PRINT#1,SW(I,K> 
4460 NEXTK 

4470 OPEN2,8,15:1NPUTX2, F , B* 

4480 IF F-0THEN4500 

4490 PRINT"LÜ!J FEHLER: "B*:CL0SE2:CLOSE1:G0T04410 
4500 CL0SE2:CLOSE1:D=0:BOTO890 
4510 : 

4520 : 

4530 REM EINGABE DATENFILE 
4540 : 

4550 D=1:BOTO4570 
4560 D=8 
4570 PR INT "LJ“ 

4580 F0RJ=1T06:PRINT:NEXTJ 

4590 IFD=1THENPRINTSPC<12)"RECORDER O.K. ?" 

4600 IFD=8THENPRINTSPC(12)"FLOPPY O.K. ?“ 

4610 GETA* : IFA*= " “ THEN4610 

4620 PRINT"J": PRINT: INPUT" ANZAHL DATENFILE 

S";AK* 

4630 IFAK*="«-"THEN150 
4640 AK=VAL(AK*> 

4650 DIMN*(AK):PRINT 
4660 FORJ=lTOAK 
4670 IFJ<=0THENRUN 

4680 PRINT:PRINT" FILENAME" ; J: INPUT'QUIfl 

";N*(J> 

4690 IFN* (J) ="«-"THENJ=J—2: NEXTJ 
4700 NEXTJ 
4710 FORJ=lTOAK 

4720 OPEN1,D,0,N*(J):0PEN2,8,15:INPUT#2,F,B* 

4730 IFF=0THEN4770 

4740 PRINT"LIfiI FEHLER: "Bt:CL0SE2:CLOSEI:DIR"* 
4750 GETAS: IFA*< >""THENPRINT"LJ": GOTO4660 
4760 GOTO4750 
4770 INPUT#1,SW,DE,N1(J> 

4780 IFN1(J)>N1THENN1=N1(J) 

4790 CLOSE 1: CL0SE2 : NEXTJ 
4800 N1=N1+1 

4810 DIMX(AK,NI),Y(AK,NI),SW(AK,NI) 

4820 DIMA(Nl),B(N1>,C(N1>,D(N1),H(N1),M(N1,N1),V(N 
1),0(NI),P(NI),Q(N1> 

4830 F0RJ=1T0AK 
4840 OPEN1,D,0,N*(J> 

4850 INPUT#1,SW,DE,NI(J> 

4860 IFDE>DITHENDI=DE 
4870 F0RK=1T0N1(J) 

4880 INPUT#1,X(J,K),Y(J,K),SW(J,K> 

4890 NEXTK:CLOSEI 

4900 NEXTJ:IFZW>DITHENDI=ZW 

4910 DIMZ(DI+3),T(DI+3):D=0:GOTO260 

4920 : 

4930 REM VERGLEICH FKT - SPL 
4940 : 

4950 PRINT"kJ":PRINT:PRINT: INPUT" FUNKTION F(X 

>—";f* 

4960 IFF*="*-"THENRUN 

4970 PRINT"LZ!5140 DEFFNF (X) = "F* 

4980 PR INT"GOTD5000" 

4990 P0KE631,19:P0KE632,13:P0KE633,13:POKE198,3:EN 
D 

5000 PRINT"LA£< 

5010 PRINT:PRINT:INPUT" 

5020 IFXA*="+"THEN4950 
5030 XA=VAL(XA*> 

5040 PRINT:PRINT:INPUT" 

5050 IFXE*="+"THEN5010 
5060 XE=VAL(XE*> 

5070 PRINT:PRINT:INPUT" 

5080 IFZW*~"+-"THEN5040 
5090 ZW=VAL(ZW*> 

5100 SV-(XE—XA)/ZW:E5—1 
5110 GOTO130 
5120 G=0:E5=2 
5130 FORX=XATQXE+.0001STEPSV 
5140 DEFFNF(X)=X+2 
5150 Y=FNF(X):GOSUB3300 
5160 NEXTX 

5170 I FE6= 1THEN1050 . 

5180 i fe6=2then3440 Listing »Spline« 

5190 GOTO2340 (Schluß) 

READY. 


Dem C64 und 
Plus#4 Arbeit 
aufstapeln 

Wollen Sie viele verschiedene Tätigkeiten 
direkt hintereinander ausführen und 
haben keine Lust, die ganze Zeit neben 
dem Computer sitzen zu müssen? Die 
Lösung heißt Batch- oder Stapel¬ 
verarbeitung. Zusätzlich stellen wir Ihnen 
noch einen komfortablen Editor zur 
Verfügung. 

ier werden gleich zwei Programme auf einmal vorge¬ 
stellt, die beide sehr nützlich sind: 

EDI.BAS - ein total in Basic geschriebener und trotz¬ 
dem vollwertiger, schneller Screen-Editor 
BATCH - ein Programm, das einen Hauch von Großrech¬ 
ner-Komfortzugänglich macht, indem ganze Folgen von Pro¬ 
grammen und Eingaben automatisch ablaufen, ohne daß der 
Benutzer Hand anlegen muß. 

Die Batch-Verarbeitung arbeitet rein theoretisch wie ein 
sehr großer Tastaturpuffer. Man kann dem Computer im vor¬ 
aus die Eingaben für die nächsten Minuten oder gar Stunden 
geben. In diesen Eingaben können selbstverständlich LOAD- 
und RUN-Befehle enthalten sein, so daß sich ganze Pro¬ 
grammketten auf einen Befehl hin abarbeiten lassen. Da man 
sich das wie einen Stapel von Eingaben vorstellen kann, von 
dem der Computer sich immer eine neue Arbeit abholt, bis 
der Stapel abgetragen ist, nennt man diese Prozedur Stapel¬ 
oder englisch Batch-Verarbeitung. 

Der Editor - EDI.BAS 


Wie oft muß in Programmen eine größere Menge Text einge¬ 
geben werden oder es werden Datenfiles gebraucht, in 
denen bestimmte Werte drinstehen oder korrigiert werden 
sollen. Man findet dann oft mehr oder weniger aufwendig 
gestaltete Editor-Routinen, die aber lange nicht an den Kom¬ 
fort heranreichen, den ein echter Screen-Editor bietet. 

Die Routine EDI.BAS, die im Listing 1 die Zeilen 1 bis 299 
umfaßt, ist ein kleiner Auszug aus einem kompletten Text¬ 
system. Sie ist völlig eigenständig und kann auch ohne den 
Rest dieses Listings verwendet werden. 

Eine besondere Eigenschaft von EDI.BAS ist, daß es sich 
automatisch an 40- und 80-Zeichen-Schirme anpassen 
kann! Wen die Verfahrensweise interessiert, der sollte sich 
die Zeile 350 ansehen. Dort wird ein Zeichen an die 41. Bild¬ 
schirmposition gesetzt und dann überprüft, ob es sich schon 
in der zweiten Zeile befindet. 

Vor der ersten Benutzung als eigenständiges Programm ist 
EDI.BAS durch Aufruf der Zeile 200 zu initialisieren. Dies ent¬ 
fällt, wenn man das komplette Listing abgetippt hat. 

EDI.BAS bearbeitet einen zeilenweise in A$() abgespei¬ 
cherten Text. Aufgerufen wird der Editor nach der Initialisie¬ 
rung einfach mit GOSUB 100. 


FUNKTIGNBDATEN 
ANFANGS X-WERT";XA* 

END X-WERT";XE* 

ANZAHL ZWISCHENWERTE";ZW* 
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C 64 


EDI.BAS erklärt sich durch seine Help-Funktion fast von 
selbst. Diese Funktion kann man durch Eintippen von »H« und 
Return in der Kommandozeile erreichen. 

Einschränkungen bestehen nur darin, daß nur die allernot¬ 
wendigsten Funktionen vorhanden sind und daß die Zeilen¬ 
länge auf 77 Zeichen beschränkt werden mußte. 

Erst dadurch, das EDI.BAS vollkommen in Basic program¬ 
miert wurde, ohne POKE- und PEEK-Befehle zu benutzen, 
konnte erreicht werden, daß die Routine auf fast allen 
Commodore-Rechnern, so dem C 64, C128 oder dem 8032 
anstandslos läuft. 

Batch-Verarbeitung 


Viele Aktionen sind nicht direkt programmierbar, so zum Bei¬ 
spiel die Aufrufe mehrerer Programme hintereinander und die 
Versorgung dieser Programme mit diversen Eingaben. Sol¬ 
che Befehlsfolgen können mit BATCH in einem Zug einge¬ 
tippt und dann automatisch durchgeführt werden. Bedient 
wird BATCH folgendermaßen: 

a) Start einfach mit RUN (ohne Parameter): Es wird ein File¬ 
name erfragt, unter dem die Kommandofolge auf der Floppy 
abgelegt werden soll beziehungsweise schon vorhanden ist. 
Wenn das File noch nicht existiert, kann es mit dem in BATCH 
64 eingebauten Editor erstellt werden. Ist die Kommando¬ 
folge fertig, wird sie abgespeichert. Sie wird anschließend 
nochmals eingelesen und in einem geschützten RAM-Be- 
reich abgelegt. Zum Schluß kann der Batch-Job mit einem 
unter dem Cursor bereitgestellten SYS-Befehl gestartet 
werden. 

b) Start mit Angabe von Parametern: In einem Kommando- 
Mutterfile können manche Eingaben (zum Beispiel Filena¬ 
men) mit formalen Parametern %a, %b, .... %z gekennzeich¬ 
net werden. Beim Aufruf von BATCH 64 werden diese dann 
mit aktuellen Inhalten versorgt und gelangen so zur Ausfüh¬ 
rung. Dazu muß hinter dem RUN-Befehl ein Doppelpunkt 
geschrieben werden, gefolgt von der Liste der aktuellen 
Parameter-Inhalte (Strings), jeweils durch Kommata getrennt. 
Der erste Parameter ist immer der Name des Kommando- 
Mutterfiles; wird hier ein Minus (-) eingegeben, wird der Para¬ 
meter erfragt. Die folgenden entsprechen der alphabeti¬ 
schen Reihenfolge %a,... Soll ein Parameterstring selbst ein 
Komma enthalten, muß er in Gänsefüßchen eingeschlossen 
werden. Gänsefüßchen können nicht übergeben werden! 
Beispiel: RUN: Mutterfile, erster Par, zweiter,, vierter, "ein 
komma: 

Bleibt ein Parameter leer (hier %c), erzeugt er im Kommando¬ 
file eine leere Stelle. Auf diese Weise wird aus dem 
Kommando-Mutterfile ein aktuelles Kommandofile (Batchfile) 
erzeugt, das auf Wunsch auch noch verändert werden kann. 
Vor Ausführung muß es auf jeden Fall noch einmal auf Floppy 
gespeichert werden. Der endgültige Aufruf erfolgt mit SYS 
wie oben bei a). 

c) Aufruf mit Angabe des Kommandofilenamens: Ist schon 
ein fertig verwendbares Kommandofile vorhanden, kann es 
ohne weitere Nachfragen direkt gestartet werden. Dazu 
schreibt man dessen Filenamen (und nur diesen) durch Dop¬ 
pelpunkt getrennt hinter das RUN des Startkommados für 
das Programm BATCH 64. Beispiel: RUN:kommando.bat 
(also ähnlich wie oben das Mutterfile). 

Wirkungsweise: 

Der Kommandotext wird zusammen mit einer zugehörigen 
Maschinen-Routine unterhalb des aktuell zugänglichen 
RAM-Endes abgelegt (relokiert). Dieser Speicherbereich 
wird durch Umsetzen des Top-of-RAM-Pointers vor Über¬ 
schreiben durch Basic geschützt. Die Maschinenroutine wird 
in die Interrupt-Routine des Computers eingeschleift. Stellt 
diese nach Aktivierung fest, daß der Tastaturpuffer leer ist, 


0 REM SAVE"@0:BATCH64",B:REM BATCH-VERARBE 

ITUNG AUF C 64 , VERWENDET: <100> 

1 REM EDI.BAS ZEILENORIENTIERTER ASCII-T 

EXT-EDITOR FUER ALLE CBM-RECHNER <135> 

2 REM VON P. KITTEL , FFM 1985 <075> 

4 BOTO 200: REM COLD START MI 

T INITIALISIERUNG <063> 

20 BJ=B:BI=CS+1:IF BI>LEN(AS)THEN BI=LEN(A 

S):IF BI=0 THEN BI=1 <02B> 

22 GOSUB 28:CS=BI-1:IF Bl<>13 AND BI<=ML A 

ND((Bl<>17)OR K)THEN 22 <114> 

24 IF Bl=13 THEN RETURN <106> 

25 IF Bl = 17 AND K=0 THEN K=B:RETURN <064> 

26 IF LEN(AS)>250 THEN A*=LEFT*(AS,LEN(AS) 

—1>:IF BOLEN CA* > THEN BI=BI-1:PRINT"(LE 

FT>”; <176> 

27 PRINT BL*;:GOTO 22 <123> 

28 B1=0:BJ*=MIDS(A*,BI,1>:BI*=MID*(A*,BI+1 

,1):IF BJS=“"THEN BJ*=" " <036> 

29 IF(ASC(BJS) AND 127)=18 THEN BJ*=CHR*(AS 

C <"#") + (ASC(BJ *)AND 128)) <15B> 

30 GET B*:IF BSO""THEN PRINT"TRVOFF> " B J S; 

:BOTO 34 <248> 

31 BJ =(1+BJ)AND 15:PRINT CHR*(18+16*(BJ AN 

D 8));BJS; <196> 

32 IF BJ*=GSTHEN PRINT GS"CLEFT,RVOFF>";:I 

F BI<LEN (AS)AND BISOGSTHEN PRINT BI*" { 
LEFTJ"; <116> 

33 PRINT" tLEFTV; : RETURN <046> 

34 IF BJ*=GSTHEN PRINT G*" CLEFTJ"; : IF BI<L 
EN(AS)AND BISOGSTHEN PRINT BIS"<LEFT>" 

; <207> 

35 PRINT"<LEFT>";:B=ASC(BS):B1=B AND 127:1 


F Bl>31 THEN 39 <163> 

36 IF Bl>12 THEN ON Bl-12 GOTO 74,38,38,38 
,38,87,76,60,38,38,38,38,38,38,38,38,46 <006> 

37 REM 13:RETURN,17:VERT,18:REV,19:HOME,20 

:DEL,29:HÖRIZ <1B9> 

38 RETURN <096> 

39 IF BI>ML THEN PRINT BL*;:RETURN <109> 

40 BI=BI+1:IF B=222 THEN BS=CHRS(255) <014> 

41 PRINT BS; : IF BS=GSTHEN PRINT GS" -CLEFTJ" 

,.IF BI<=LEN (AS) AND BISOGSTHEN PRINT B 

IS"TLEFT >"; <104> 

42 IF BI>2 THEN BS=LEFTS(AS.BI-2)+BS <146> 

43 BS=BS+MIDS(AS,BI> <0B6> 

44 AS=BS:RETURN <121> 

46 IF B=29 THEN 54 <157> 

48 IF BI>1 THEN PRINT BS;:BI=BI-1 <128> 

50 IF BI<2 THEN PRINT BLS; <253> 

52 RETURN <110> 

54 IF BI>=ML THEN PRINT BLS;:RETURN <102> 

56 PRINT BS;:BI=BI+1:IF LEN(AS)<BI THEN AS 

=AS+" " <100> 

58 RETURN <116> 

60 IF B=14B THEN 66 <225> 

62 IF BI<2 THEN PRINT BLS;:RETURN <243> 

63 PRINT BS;:BS=MIDS(AS,BI>:IF BI>2 THEN B 

S=LEFT S(AS,BI—2)+BS <037> 

64 AS=BS:BI=BI-1:RETURN <175> 

66 L=LEN(AS):BJS=RIGHTS(AS,1>:IF L>=ML THE 

N PRINT BLS;:RETURN <106> 

6B PRINT BS 11 {SPACE ,LEFT> " ; : BS= " "+MID*(AS, 

BI):IF BI>1 THEN BS=LEFTS(AS,BI-1)+BS <087> 
72 AS=BS:RETURN <149> 

74 PRINT:IF B=13 THEN B=17:B1=B:BI=1:GOTO 

81 <06B> 

75 B= 141: RETURN <120 

76 IF B=19 THEN PRINT LEFT*(CBS,BI-1);:BI= 

1:RETURN <001> 

78 IF BI<LEN(AS)THEN PRINT SPC(LEN(AS)-BI) 

; : BI=LEN < AS) <120 

79 IF BI<ML AND RIGHT*(AS,1)<>" "THEN BI=B 

1+1:AS=A*+" ":PRINT"<RIGHT>"; <102> 

80 RETURN <138> 

81 IF M>=N THEN RETURN <078> 

82 BS=A*(M+l):IF B*=""THEN RETURN <244> 

83 IF MID*(B*,BI,1)=" "THEN IF BI<LEN(B*)T 

HEN BI=BI+1:GOTO 83 <170> 

84 IF MID*(B*,BI,1)=" "THEN BI=1 <070 

85 RETURN <143> 

87 BI=BI+1:IF BI>ML+1 THEN PRINT BLS; <1B1> 

88 PRINT CHRS(ASC("#">+(B AND 128));:G0T0 

42 <0B5> 

90 PRINT"LX (X = ZAHL) = JJDESCHEN(2SPACE>X 

TEILEN OD. <003> 

91 PRINT"EX (X = ZAHL) = £1NFUEGEN X ZEILE 

N OD. <200> 
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92 PRINT"H<2SPACE>FUER ÜILFE ODER”:PRINT"— 
{2SPACEJFUER BBBRUCH. 

93 PRINT"{DOWNJIN DEN IEXTZEILEN:":PRINT"£ 
URSORTASTEN UND INST/JEL NORMAL 

94 PRINT"5JHIFT—RETURN{2SPACE >= ZURUECK ZU 
BEFEHLSZEILE 

95 PRINT"BETURN<BSPACE>= NAECHSTER BEILENA 
NFANG 

96 PRINT"ÜQME{10SPACE >= AKTUELLER BEILENAN 
FANG 

97 PRINT"BHIFT-Ü0ME<4SPACE>= ZEILENENDE. 

99 PRINT"{DOWN>IASTE DRUECKEN.":FOR I=-l T 
0 0:GET A4:I=A*="":NEXT 

100 K=0:PRINT"{CLR>":N=-N*(N>=0):G*=CHR*(3 
4):BL*=CHR*(7) 

101 PRINT"{HOME >";TAB(69);M—(M< 0) + ( M-N)*(M 
>N) 

102 PRINT"{HOME >AEND/{RVSON >L{RVOFF >QESCH/ 
CRVSON>E{RVOFF>INFUEG/{RVSON>H{RVOFF JI 
LFE, ENDE MIT - , 

103 INPUT"BEILENNR./BEFEHL(L./E./H) = ";A* 
:B*=LEFT*(A*,1):IF B*="-"THEN RETURN 

104 V=M:IF M<0 THEN V=0 

105 B=VAL(MID*(A*,2)):IF B*="L"THEN B=B+V- 
1:GOSUB 185:M=V:GOTO 100 

106 M=VAL(A*) IF B*="E"THEN 190 

110 IF M<0 OR M>N THEN 100 

111 PRINT"{HOME>£URSOR AKTIV,{2SPACEJBETUR 
N: NAECHSTE BEILE,<2SPACE>£DMMAND0Z.:" 
I 

112 PRINT" BHIFT-BETURN, £. :" 

113 ES*="."+CHR*(20)+LEFT*(CB*,50):FOR 1=1 

TO 39-40*C8:PRINT"-";:NEXT:PRINT 

114 IF B*="H"THEN PRINT"{DOWNJBEFEHLSZEILE 
:":PRINT“ZU AENDERNDE BEILENNR. ODER": 
GOTO 90 

118 1=4-6*08:ZV=M-I:ZB=M+I+1:IF ZV<0 THEN 
ZV=0:ZB=2*I+1 

119 FOR J=ZV TO ZB:IF J>N THEN A*='"':GOTO 
122 

120 A*=A*(J> 

122 L=LEN(A*):IF L=0 THEN PRINT LEFT*(CP*, 
78)ES*:GOTO 128 

124 FOR BI = 1 TO L:B*=MID*(A*,BI,1):IF B*=G 
4THEN PRINT G*;CHR*(20); 

125 IF(ASC(B4)AND 127)=18 THEN B*=CHR*(ASC 
("#")+(ASC(B4)AND 128)) 

126 PRINT B*;:NEXT 

127 PRINT LEFT*(CP*,78-L):ES* 

128 NEXT 

130 PRINT" {HOMEV:FOR I=ZV TO M:PRINT:NEXT 

155 A*=A*(M>:L=LEN(A*>:IF CS>L-1 THEN CS=L 
—1:IF CS<0 THEN CS=0 

156 PRINT SPC(CS); 

160 GOSUB 20 

161 IF LEN(A*><2 THEN 169 

162 IF RIGHT*<A*,1)=" "THEN A*=LEFT*(A*,LE 
N(A*)—1):GOTO 161 

169 A*(M)=A*:IF K<=0 THEN 180 

170 M=M+1+2*(K>20>:IF M<ZV OR M>ZB THEN 10 
0 

171 PRINT"{HOME >"TAB < 69);M;"{LEFT,3SPACE >" 
:K=0:IF M>N THEN N=M 

172 GOTO 130 

180 IF A* <N)=""THEN N=N-1:IF N>-1 THEN 180 

182 GOTO 100 

185 IF V<0 OR V>B OR B>N THEN PRINT"{DOWN> 
MNMOEBLICH!":FOR 1=1 TO 200:NEXT:RETUR 
N 

186 M=B-V+1:IF B=N THEN 188 

187 FOR I=B+1 TO N:A4(I-M)=A*<I):NEXT 

188 N=N r M:IF N<MZ THEN FOR I=N+1 TO N+M:A4 

..NEXT:RETURN 

190 IF B+N >MZ OR B<1 THEN V=-l:GOSUB 185:G 
OTO 100 

191 FOR I=N TO V STEP—1:A4(I+B)=A*(I):NEXT 

192 FOR I=V TO V+B-l:A4(I)="":NEXT:IF CS=0 

OR CS>=LEN(A*(V+B)> THEN 199 

193 A*(V)=LEFT*(A*(V+B),CS):A*(V+B)=MID*(A 
*(V+B),CS+1) 

199 N=N+B: M=V : GOTO 100 

200 REM INITIALISIERUNG EDI.BAS: - 


210 REM EINFUEHRUNG DER BENUTZTEN VARIABLE 
N: 

220 DIM A*,B,B*,B1,BI,BJ,BJ*,G*,BI*,BL*,CB 
*,CF*,CS,ES*,I,J,K,L,M,ML,MZ,N,V,CB 

221 DIM ZB,ZV 


< 121 > 

<042> 

<246> 

<247> 

<22B> 

<042> 

< 002 > 

<003> 

<016> 


< 135> 

<207> 
<141 > 

< 141 > 

< 151 > 

< 150> 


< 134> 
<251 > 

<137> 


<0B2> 

< 100 > 

<235> 
< 170> 


< 143> 

<030> 

< 110 > 

<006> 

< 138> 
<017> 

<052> 

<188> 

< 106> 
<252> 

<234> 

< 194> 

<248> 

< 131 > 

< 148> 
< 012 > 
< 110 > 


< 123> 

<009 > 
<063> 

< 143> 

<234> 

< 134> 

< 159> 

< 167> 
<057> 

<086> 

<248> 

<037> 
<051> 


230 MZ=600: REM MAXIMALE ZEILENZAHL 

240 ML= 77: REM MAX. ZEICHENZAHL/ZEILE G 
GF. PER INPUT «NUR KLEINER MOEGLICH) 

250 N = -1: REM AKTUELLER FUELLSTAND IN A 
*() 

251 M = -1: REM ZULETZT EDIERTE ZEILENNR. 

262 CB*="C4LEFT>":F0R 1=1 TO 5:CB*=CB*+CB* 
:NEXT:CB*=CB*+LEFT*(CB*,127):REM CURS 
BACK 

263 CP*="{4SPACE1":FOR 1=1 TO 5:CP*=CP*+CP 
4:NEXT:CP*=CP*+LEFT*(CP*,127):REM SPAC 
E 

270 DIM A*(MZ) :REM TEXT ZEILENWEISE 

280 : REM EDITOR MIT GOSUB100 AU 

FRUFEN 

284 : REM TEST AUF 40- BZW. 80-Z 

EICHEN—SCHIRM: 

285 REM PRINT"{2HQME,CLR,CTRL-N>"SPC(40)"T 

{HOME,DOWN >";:OPEN1,3:GET#1,A*:CLOSE1: 
..REM S.U. 

290 REM 

299 REM EDI.BAS FERTIG - 


300 PRINT" {UP,2RIGHTJ"; :DIM P*(27) ,N7.(27) : 
NP=0:OPEN 1,3:REM PARAMETER HOLEN 

301 C=0:FOR 1=2 TO 79:GET#1,A4:IF A*=":"TH 
EN C=I:1=30 

302 NEXT:IF C=0 THEN CLOSE 1:MP=-1:GOTO 35 
0 

310 MP=0:FOR P=1 TO 27: 6*=""': FS=1: FC=0 

311 FOR I=-l TO 0:I=—1:SET#1,A4:IF A*=CHR* 
(34) THEN FG=1—FG: GOTO ,320 

312 C=C+1:IF 079 OR A*=CHR* (13) THÖ)I I=0:P 
*(FC*P)=G*:MP=MP+FC*(P-MP):P=99-.GOTO 3 
20 1 ' 

313 IF FG THEN IF A*=","THEN 1=0:P*(FC*P)= 
G*: MF=MP+FC* (P-MP ) : GOTO 320 

315 IF FC OR(A*<>" ")THEN FC=1:G*=G*+A* 

320 NEXT:NEXT:CLOSE 1:IF MP=0 THEN 350 

330 FOR P=1 TO MP:IF P*(P)=""THEN 335 

331 F'*=P* (P): L=LEN (P*) 

-3S2 IF RIGHT*(P*,l)= n "THEN L=L—1:P*=LEFT* 
(F*,L):GOTO 332 

333 P*(P)=P* 

335 P*(P-1)=P*(P>:NEXT:P*(MP)="":MP=MP-1 

340 NP=—1:FOR P=0 TO MP:IF P*(P><>"“THEN N 
P=P 

341 NEXT:MP=NP:F*=P*(0):IF F*=""THEN FS="- 

349 REM ZEILE 285 HIERHER VERLEGT: 

350 PRINT"{2HQME,CLR,CTRL—N}"SPC(40)"T{HOM 
E,DOWN>";:OPEN 1,3:GET#1,A*:CLOSE 1:C8 
=A*=" “:REM 40/80 ? 

351 PRINT"{CLR,DOWN,SPACE,RVSON,CTRL—N,SPA 
CEl£{SHIFT-SPACE>ß{SHIFT-SPACE>X{SHIFT 
-SPACE > £ {SHIFT-SPACE >ü{SHIFT-SPACE,RVO 
FF,DOWN) 

352 FP=0:IF Mp=0 AND F*<>"-"AND F*<>""THEN 

FP=1:GOTO 511 

353 IF MP<0 THEN 500 

360 PRINT"{2D0WN>£ARAMETER:":PRINT"{DOWN>£ 
ILE: "F*"{DOWN>" 

361 FOR P=1 TO MP:IF P*(P)<>""THEN PRINT"{ 
3SPACE>"CHR*(P+64)“: "P*(P) 

362 NEXT:GOTO 510 

500 PRINT"{DOWN>&AMEN FUER SEQ-üflMMANDO-O 
LE EINGEBEN, 

502 PRINT "WENN NOCH KEINES EXISTIERT: EIN 
FACH{2SPACE>— 

505 INPUT"{DOWN)£ILENAME = ";F* 

510 IF F*="—"THEN 520 

511 PRINT"{DOWNIßlLE WIRD EINGELESEN, BITT 
E £EDULD.{3D0WNJ 

512 N*=CHR*(0):CR*=CHR*(13):N=-1:OPEN 1,8, 
3,F* 

513 FOR Z=-l TO 0: G*="": FOR I=-l TO 0-.GET# 
1,A*:S=ST:A*=LEFT*(A*+N*,1) 

514 I = (S=0)AND(A*< >CR*):IF A*< >CR*THEN G*= 
G4+A4: IF A*="7."THEN IF MP>0 THEN GOSUB 

1000 

515 NEXT:N=N+1:A4 (N)=G*:PRINT G*:Z=S=0:NEX 
T:CLOSE 1:IF MP>0 THEN 520 

516 IF FP THEN 650 

517 PRINT"{3D0WNJßENDERUNGEN NOETIG (J/N) 


<152> 
<021 > 

< 147> 
<099> 

<195> 

< 152> 
<235> 

<213> 

<026> 


<162> 

<098> 

< 202 > 

<164> 

<243> 

< 136> 
<006> 

<059> 


< 157> 

< 137 > 
<105> 

< 156> 
<248> 
<056> 

<123> 

< 120 > 

< 1B5> 

< 121 > 

< 020 > 

<035> 


<067> 


<073> 

<22B> 

< 170> 

< 117> 

<018> 

<233> 

< 202 > 

<094> 

< 129> 
<239> 

<006> 

<090> 

<219> 


< 197> 

<215> 

<184> 

<231 > 


Listing 1. Programm EDI.BAS/BATCH. Bitte mit dem 
Checksummer Seite 6 eingeben. 
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518 BET A*:IF A*<>"J"AND A*<>"N"THEN 518 <040> 

519 PRINT A*:IF A*="N"THEN 650 <11B> 

520 PRINT“ <DOWN>£.ILE MUSS MIT EINGEBAUTEM 

EDITOR <16B> 

521 PRINT "BE/ER-ARBEITET WERDEN. <015> 

522 PRINT "£EBEN SIE IN DER SPAETEREN JUDMM 

ANDO- <222> 

523 PRINT "ZEILE<SPACE,RVSQNJH{RVQFF,SPACE 

>FUER HILFE EIN. <081> 

524 PRINT"<DOWN>ÜINWEIS: HIT DIESEM EDITOR 

KOENNEN NUR <174> 

525 PRINT "C9SPACEJSTANDARDZEICHEN, UND 

KVA <151> 

526 PRINT "<9SPACE>EINGEGEBEN WERDEN,CSPAC 

E,RVSON JKEINE <RVOFF > <049> 

527 PRINT "<9SPACE>ANDEREN STEUERZEICHEN! <236> 

528 PRINT"CDOWNJflLTERNATIVE: EILE MIT ANDE 

REM REINEN <040> 

529 PRINT " C9SPACE> RS.CI.I -EDITOR ERZEUGEN. <203> 

530 PRINT"<2D0WN>SRIVE FUER EILE-SPEICHERU 

NG (0/1) ? "; <002> 

531 GET D*:IF D*O"0"AND D*<>"1"THEN 531 <211 > 

532 PRINT D*:IF MP>0 THEN MP=0:GOTO 550 <208> 

540 BOSUB 100 <232> 

550 FA*=F*:PRINT"C2H0ME,CLR,DOWN >£ILE-XNHA 

LT OK (J/N) ? <037> 

551 GET Ai: IF A*<>"J"AND AiO“N"THEN 551 <063> 

552 PRINT Ai:IF Ai="N"THEN 540 <215> 

560 INPUT"<DOWN>£ILE-HAME FUER SPEICHERUNG 

= ";Fi:IF Fi="—"THEN 560 <010> 

570 IF NP>0 THEN IF Fi=FAiTHEN PRINT"{DOWN 
JÜICHT PARAMETER-EILE UEBERSCHREIBEN!" 

:GOTO 560 <054> 

600 PRINT"<DOWN>EILE WIRD GESPEICHERT, BIT 

TE SEDULD. <033> 

610 OPEN 1,8,15,"S"+Di+":"+Fi:CLOSE 1:OPEN 

1,8,3,(Di+":"+Fi+“,S,W") <202> 

620 FOR 1=0 TO N:PRINT#1,Ai(I):NEXT:CLOSE 

1 <191> 

630 IF LEN(Fi)<5 OR RIGHTi(Fi,4)<>“.MOT"TH 

EN 650 <069> 

640 PRINT"<DOWN>£ITTE MIT JLARAMETERANGABE 

NEU STARTEN.":END <247> 

650 M=0:FOR 1=0 TO N:M=M+LEN<A*(I))+1: NEXT <157> 

700 TR=55:REM PLUS/4: 55, 8XXX/40XX: 52 <005> 

701 T=PEEK(TR)+256*PEEK(TR+1)-1:REM PLUS/4 

: IFT>32767THENT=32767 <211> 

702 TH=INT(T/256):TL=T-256*TH <099> 

703 LH=INT(M/256):LL=M-256*LH <172> 

704 B=T—M:BH=INT(B/256):BL=B—256*BH <107> 

710 PA=BH:IF BL<122 THEN PA=PA-1 <063> 

720 P=256*PA:POKE P,TL:POKE P+l,TH:POKE P+ 

2,BL:POKE P+3,BH:P0KE P+4,FP <169> 

721 L=LEN(Fi):IF L>16 THEN L=16 <115> 

722 FOR 1 = 1 TO L: N7. (I) =ASC (MIDi(Fi, 1,1 > ) : N 

EXT <023> 

730 POKE P+5,L:F0R 1=1 TO L:POKE P+5+I,N7.( 

I):NEXT <114> 

740 POKE 55,0:POKE 56,PA <0B7> 

750 CLR <100> 

800 Ai="":I=0:Ni=CHRi(0) <205> 

805 TR=55:REM PLUS/4: 55, 8XXX/40XX: 52 <112> 

810 M=PEEK (TR+1) : P=256*M < 047> 

815 TL=PEEK(P):TH=PEEK(P+1):BL=PEEK< P+2):B 

H=PEEK(P+3>:FP=PEEK(P+4> <092> 

820 L=PEEK(P+5):Fi="":FOR 1=1 TO L:Fi=Fi+C 

HRi(PEEK(P+5+I)):NEXT <061> 

830 T=TL+256*TH <052> 

835 PRINT"tDOWNJSILE "Fi" WIRD NOCH EINMAL <071> 

836 PRINT“EINGELESEN, BITTE SEDULD.<DOWN> <168> 
840 OPEN 1,8,3,Fi:FOR I=-l TO 0:GET#l,Ai:I 

=ST=0:POKE T,ASC(Ai+Ni):T=T-1:NEXT:CLO 
SE 1 <183> 

850 RESTORE:READ N <156> 

860 FOR 1=0 TO N:READ A:IF A<0 THEN A=M <147> 

861 POKE P+I,A:NEXT <000> 

870 POKE P+ 71,TL:POKE P+ 72,TH <003> 

871 POKE P+l18,BL:POKE P+119,BH <229> 

900 PRINT"{2D0WN>BATCH-jLDB MITC4SPACEJSYS" 

P"{4SPACE>STARTEN: <136 > 

910 IF FP THEN PRINT:SYS P:END <154> 

920 PRINT"<3D0WNJSYS"P"<3UP>" <224> 

999 END <239> 

1000 GET# 1 , Ai : S=ST : Ai=LEFTi (Ai+Ni, 1) : A=ASC 

(At) <065> 

1010 FOR P=1 TO MP:IF A=P+64 THEN Gi=LEFTi 

(Gi,LEN(Gi)-l)+Pi(P):P=MP:A=-1 <217> 

1011 NEXT:IF A>-1 THEN Gi=Gi+At <173> 


1020 I=(S=0>AND<Ai<>CRi):RETURN <090> 

6000 A=7*4096:FOR Z=0 TO 13:PRINT A;"DATA" 

; < 121 > 

6010 FOR 1=0 TO 7:PE=PEEK(A):A=A+1:IF I>0 

THEN PRINT","; <022> 

6020 PRINT” ";RIGHTi("00"+MIDi(STRt(PE),2) 

,3);:NEXT:PRINT:NEXT <062> 

6030 END <190> 

7000 RESTORE:READ N:A=2B672 <096> 

7010 FOR 1=0 TO N:READ P:IF ABS(P)=112 THE 
N PRINT CHRi(18—(P<0)*128);A+(I AND 2 
48), <022> 

7020 NEXT:END <133> 

8000 REM"C2SPACE)3ENUTZTE HASCHINENADRESSE 

Ni <234> 

B010 REM"<2SPACE>55-56<4SPACE>£0INTER IDP 

OF SflH <060> 

8020 REM"<2SPACE>t0314<4SPACE>£DINTER 1KB - 

SOUTINE <126> 

8030 REM"<2SPACE>i0277<4SPACE>£RSTE5 SYTE 

IAST ATURPUFFER <123> 

8040 REM"<2SPACE>iC6<6SPACE>flNZAHL BYTES I 

M IASTATURPUFFER <250> 


28600 

REM SOURCE-FILE: 

IREBAT.SRC 



<050> 

28666 

DATA 119 







<169> 

28672 

DATA 120, 

173, 

020, 

003, 

141, 

116,-1 



12, 173 







<052> 

28680 

DATA 021, 
51, 141 

003, 

141, 

117,- 

-112, 

169, 

0 

< 155> 

28688 

DATA 020, 
03, 088 

003, 

169,- 

-112, 

141, 

021, 

0 

< 160> 

28696 

DATA 096, 
01, 044 

189, 

005, 

001, 

041, 

252, 

2 

<060> 

28704 

DATA .208, 
49, 208 

017, 

189, 

006, 

001, 

201, 

2 

< 173> 

28712 

DATA 010, 
69, 249 

169, 

052, 

157, 

005, 

001, 

1 

<039> 

28720 

DATA 157, 
13, 201 

006, 

001, 

165, 

19B, 

240, 

0 

<039> 

28728 

DATA 002, 
01, 003 

176, 

044, 

173, 

119, 

002, 

2 

<1B9> 

28736 

DATA 240, 
73, 255 

037, 

208, 

047, 

230, 

198, 

1 

< 119> 

28744 

DATA 255, 
12, 208 

141, 

119, 

002, 

173, 

071,- 

-1 

<0B7> 

28752 

DATA 003, 
12, 173 

206, 

072,- 

-112, 

206, 

071,- 

-1 

<030> 

28760 

DATA 071,- 
20, 173 

-112, 

205, 

118,- 

-112, 

208, 

0 

<250> 

28768 

DATA 072,- 
12, 173 

-112, 

205, 

119,- 

-112, 

208, 

0 

<231 > 

28776 

DATA 116,- 
17,-112 

-112, 

141, 

020, 

003, 

173, 

1 

< 124 > 

28784 

DATA 141, 
00, 000 

021, 

003, 

076, 

255, 

255, 

0 

<081 > 


Listing 1. Programm EDI.BAS/BATCH (Schluß) 


holt sie aus dem Kommandotext das nächste Byte und legt 
es in den Tastaturpuffer. Die eigene Interrupt-Routine schal¬ 
tet sich automatisch selbst ab, wenn: 

- der ganze Kommandotext abgearbeitet ist, 

- die Stopptaste gedrückt wird oder 

- im Tastaturpuffer mehr als ein Tastendruck, also Eingaben 
des Benutzers, angetroffen werden. 

Der Top-of-RAM-Pointer wird nicht zurückgesetzt! 
Einschränkungen: 

Es sind einerseits die RAM-Belegung und andererseits das 
Interrupt-Verhalten aufgerufener Software zu beachten. 
Durch geeignetes Setzen des Top-of-RAM-Pointers vor Auf¬ 
ruf von BATCH 64 kann meist eine Kollision mit anderen Pro¬ 
grammen in diesem Speicherbereich vermieden werden. 

Da eine eigene Interrupt-Routine eingeschleift wird, kann 
es bei Programmen, die das auch tun, zu Kollisionen kom¬ 
men. Bei wiederholten Aufruf von BATCH64 wird der Top-of- 
RAM-Pointer immer nur noch tiefer gesetzt, so daß er in ver¬ 
nünftigen Abständen wieder initialisiert werden sollte, zum 
Beispiel durch POKE56,160:clr 
Als Detail sei noch auf die Parameterübergabe im RUN- 
Befehl hingewiesen, die durch die GET-Funktion aus dem 
Bildschirm bewerkstelligt wird. Dadurch sind Schreibweisen 
möglich, wie man sie sonst nur aus Betriebssystemkomman- 
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line 


«002 

0000 


jput'BOnrqbat.irc* 


00003 

0000 


!* 


00004 

0O0O 



00003 

oooo 




00000 

0000 


1 » irq - bat 


00007 

0000 


1* 


00008 

0000 


S* batch-job-abwicklung ueber irq-routine 

00000 

0000 


;• Version fuer 8xxx/40x: alt Hinweisen fuer c 64, plus/4 

00010 

0000 


i* 


00011 

0000 


ii p. Iltt»l, (nnklurt 1485 

00012 

0000 


1 * 


00013 

0000 



00014 

0000 


; 


00015 

0000 


irqptr ■ ffe90 

;pointer arq-routme (ßxxxt 100901 

00016 

0000 


1 

high-byte *fe°254 in datas korrigii 

00017 

0000 


1 

c-64: 10314, plus/4: $0212 

00018 

0000 



5 

0001! 

oooo 


tasan: * $9e 

janzahl i» tastaturpuffer (ßxxx) 

00020 

0000 


i 

c-64: $c6, plus/4: fef 

00021 

oooo 


! 


00022 

oooo 


taspuf ■ 10264 

;tastaturpuffer (Bxxxl 

00023 

oooo 


1 

c-64: 10277, plus/4: 10527 

00024 

oooo 


1 


00025 

oooo 


1 


00026 

oooo 


» - 17000 


00027 

7000 


1 


00026 

7000 

7B 

aktiv sei 

; batch-routine aktivieren 

0002! 

7001 

ad 90 fe 

lda irqptr 

;alten pomter retten 

00030 

7004 

Bd 74 70 

sta irqend*l 


00031 

7007 

ad 91 fe 

lda irqptr*l 


00032 

700. 

ßd 75 70 

sta irqend+2 


00033 

700d 



;statt ‘start* bei c-64 und plus/4 startl 

00034 

700d 

a9 19 

lda Kstart 

jneuen set:en, b:n. startl 

00035 

7004 

Bd 90 fe 

sta irqptr 


00036 

7012 

*9 70 

lda *>slart 

jbzw. startl »(s.o.) 

00037 

7014 

Bd 91 ft 

sta irqptr*! 


00038 

7017 

5B 

di 


0003! 

7018 

60 

rts 

{fertig, gleich gehts los 

00040 

701! 


• 


00041 

701! 


{prograaateil nur fuer cbi ß/4xxx benoetigt: 

00042 

701! 

bd 05 öl 

Start lda $0105,x 

;i/o-ende-schleife? 

00043 

701t 

29 fc 

and Kfc 

;rueck5prungadr pruefen 

00044 

701» 

c9 2c 

cap K2c 


00045 

7020 

dO 11 

bne startl 

;ne: nein 

00046 

7022 

bd 06 01 

lda S 0 l 06 ,x 


00047 

7025 

c9 *9 

c«p I$f9 


00048 

7027 

dO Oa 

bne startl 

;ne: nein 

0004! 

702! 

a9 34 

lda l$34 

Sruecksprungadr 

00050 

702b 

9d 05 01 

sta $0105,x 

;aanipulieren 

00051 

702» 

a9 f9 

lda 1149 

00052 

7030 

9d 06 01 

sta $ 0106 ,x 


00053 

7033 


; 


00054 

7033 

a5 9e 

startl lda tasan: 

;tastenpuffer leer? 

00055 

7035 

fO Od 

beq holtas 

;eq: ja, Mas dagegen tun 

00056 

7037 

c9 02 

cap 12 

jaehr als eine taste? 

00057 

703! 

bO 2c 

bcs reset 

;cs: ja, abbruch «egen operator-eingrlff 

00058 

703b 


J 


0005! 

703b 

ad 6f 02 

lda taspu4 

;zulet:t gedruckte taste 

00060 

703» 

c9 03 

cap 13 

{stop-taste? 

00061 

7040 

fO 25 

beq reset 

;eq: ja, abbrechen 

00062 

7042 

dO 2f 

bne irqend 

;ne: einfach weiter 


lrqbat- 

..page 0003 

llnel loc 

code line 


«063 

7044 


J 


«064 

7044 

»6 !» 

holtas inc tasan: 

{eine taste druecken 

00065 

7046 

,6 1) )f 

1 holptr lda $ffff 

;duaay-adresse wird aadifiz. 

«066 

704! 

86 6) 02 

sta taspuf 

;in tastaturpuffer 

00067 

704c 

.6 47 70 

lda holptr*! 

{Ion byte 

«068 

7041 

60 03 

bne nocar 

;ne: kein uebortrag 

0006! 

7051 

c, 48 70 

dec holptr*2 

{high byte 

00070 

7054 

c» 47 70 

nocar dec holptr*l 

inaechstes byte 

«071 

7057 


1 


00072 

7057 

.6 47 70 

lda holptr*l 

labfrag» auf ende 

00073 

705» 

c6 76 70 

cap endptr 


00074 

705» 

60 14 

bne irqend 

jne: nein 

00075 

705) 

.6 48 70 

lda holptr*2 


00076 

7062 

»6 77 70 

cap endptr *1 


00077 

7065 

60 0c 

bne irqend 

;ne: nein, weiter 

«078 

7067 


1 

0007! 

7067 

,6 74 70 

reset lda irqend*l 

{fertig, irq restaurieren 

00080 

706, 

86 !0 )» 

sta irqptr 


«OBI 

7066 

.6 75 70 

lda irqend*2 


00082 

7070 

86 !1 1» 

sta irqptr*l 


00083 

7073 



1 

«084 

7073 

4c >1 )) 

irqend jap fffff 

;duaay-adresse wird aodifiziert 

000B5 

7076 


j 


000B6 

7076 

00 

endptr .byte 0,0 

{hier pointer auf (letztes byte - 1 ) 

00066 

7077 

00 



00087 

7078 




«088 

7078 


.end 



Listing 2. Der Sourcecode für BATCH 64 


dos anderer, größerer Computer kennt. 

Zur Anpassung an andere Computer sind die DATA-Zeilen 
mit der Maschinenroutine (siehe unten) und die Zeilen 700 
und 805 mit der Adresse des Top-of-Memory-Pointers zu ver¬ 
ändern. Letztere ist auch zu beachten, wenn man diesen 
Pointer ab und zu wieder restauriert: 

P0KE56,160:CLR:REM C 64 
P0KE56,128:CLR:REM PLUS/4 
POKE53 > 128:CLR:REM 8xxx/40xx 

Daß man beim PLUS/4 nur die ersten 32 KByte des Spei¬ 
chers ausnutzen kann (siehe auch Zeile 701, Listing II), liegt 
daran, daß man bei höherer Plazierung der eigenen Interrupt- 
Routine noch Bank-Switching zwischen parallelliegendem 
RAM und ROM ausführen müßte. Diesen Ausbau der Routine 
will ich gern interessierten Lesern überlassen. 

Noch etwas zum Verfahren: Der Kommandotext muß ins 
RAM gelegt werden, weil zum Zeitpunkt der Abarbeitung 
durchaus schon alle Floppy-Kanäle (beziehungsweise Puf¬ 
fer) belegt sein können, so daß kein direkter Zugriff auf das 
Kommandofile mehr möglich ist. Der Top-of-RAM-Pointer darf 
auch nicht automatisch beim Ausklinken der Interrrupt- 
Routine zurückgestellt werden, denn anschließend müßte ja 
ein CLR-Befehl gegeben werden, der Variablen eines 
womöglich nicht in vollem Lauf befindlichen Basic- 
Programms einfach zerstören würde! 

Theoretischerweise kann man in BÄTSCH 64 auch die 
Routine EDI-BAS weglassen und durch eine andere erset¬ 
zen, oder man benutzt einen externen Texteditor zur Erstel¬ 
lung der Kommandofiles. Auf jeden Fall muß das File anschlie¬ 
ßend reinen ASCII-Text enthalten, also nicht Bildschirmcode 
oder Vorspänne mit Tab- und Fbrmatier-Informationen. 

Listing 2 ist das Assembler-Listing der von BATCH verwen¬ 
deten Maschinen-Routine, und zwar in der 8xxx/40xx- 
Versioi i. Die Version für den C 64 können Sie den Hinweisen 
und den DATAs aus Listing 1 entnehmen. Hinweise gibt es 
auch zur Anpassung an den Plus/4. 

Der Quelltext ist mit Gewalt (Adresse $fe90 statt $90 für 
8xxx, das Byte $fe=254 muß nachträglich zu Fuß in den 
DATAs auf 000 korrigiert werden!) so gestaltet, daß er für alle 
Computer die gleiche Länge hat. Die Anpassung an andere 
kann also direkt in den DATA-Zeilen von Listing 2 erfolgen, 
wenn man im Assembler-Listing die Änderungen und Vor¬ 
kommen der fraglichen Werte heraussucht. 

Nur für 8xxx/40xx ist der Programmteil aktiv, der sich um 
die I/O-Ende-Routine kümmert. Dahinter verbirgt sich eine 
ganz böse Falle für jeden Interrupt-Routinen-Programmierer. 
Auf besagtem Rechner wird nämlich nach jeder Ein-/Ausgabe 
eine Routine aufgerufen, die einfach so lange wartet, bis der 
Interrupt-Pointer wieder seinen Normalwert hat! Das kommt 
von den Kassettenroutinen, deren Timing über eigene 
Interrupt-Routinen gemanagt wird. Wenn man den Pointer 
nun aber selbst verbogen hat und zum Beispiel einen LOAD- 
Befehl gibt, bleibt der Computer erst mal hängen, läßt sich 
aber immerhin mit der Stopptaste zurückholen. Zur Abhilfe 
schaut nun in unserer Routine ein Programmteil auf dem 
Stack nach, ob die Rücksprungadresse womöglich irgendwo 
in diese Warteschleife zeigt. Wenn ja, wird die Rücksprung¬ 
adresse brutal auf den nächsten RTS-Befehl umgesetzt. 
Testlauf 

Erstellen Sie am besten ein Kommandofile namens 
TEST.BAT mit folgenden zwei Zeilen Inhalt (Kleinschreibung 
wegen Groß/Klein-Modus des Editors): 
list-5 

run:test-bat 

Wenn Sie BATCH 64 mit RUNTEST.BAT aufrufen, müßte 
sich ein immer wieder selbst anstartender Ablauf ergeben, 
der erst durch OUT OF MEMORY ERROR gebremst wird, 
wenn Top-of-Memory nach wenigen Stunden zu klein gewor¬ 
den ist. (Dr. P. Kittels/bs) 
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Bild 1. Eine mit »Poster-Maker« 
stark verkleinerte Grafik. 

Die Normalgröße beträgt immer¬ 
hin 50 mal 80 cm. Gedruckt 
wurde mit HiRes-Grafik mit 
dem Basic-Befehl SYS 49152, 
8192, 2, 32, 46, 119, 113 
mit dem MPS 801 


Poster-Maker 
für den C64 

Ein- und mehrfarbige HiRes-Grafiken kön¬ 
nen in einer Größe von sage und schreibe 
50 x 80 cm auf fast jedem Drucker ausge¬ 
geben werden. 

D azu wird der Grafikbildschirm in vier gleich große, 
senkrechte Streifen zu je 80 x 200 Punkten unter¬ 
teilt. Diese werden hintereinander auf Endlospapier 
ausgedruckt, wobei ein Grafikpunkt einem Druckzeichen 
entspricht. Bei Mehrfarbgrafiken besteht die Möglichkeit, für 
jedes der vier Bitmuster 00, 01, 10, 11, denen im Multicolor- 
Modus verschiedene Farben zugeordnet sind, verschiedene 
Druckzeichen zu definieren. Durch die Wahl dieser Zeichen 
lassen sich auch Graustufen erzeugen. Beim Ausdruck sind 
dann jeweils zwei nebeneinanderliegende Zeichen gleich. 
Der Aufruf des Programms erfolgt durch einen SYS-Befehl: 

SYS 49152,adr,m,c1,c2,c3,c4 

Dabei ist 49152 die Startadresse des Programms 
($C000), adr ist die Anfangsadresse der Grafik. 

m ist der Grafikmodus. Soll eine Grafik im normalen Einzel¬ 
punktmodus (Auflösung 320 x 200 Punkte) ausgedruckt 
werden, ist m = 1 zu setzen. Bei einer Grafik im Multicolor- 
Modus (Auflösung 160 x 200 Punkte) ist m = 2. cl bis c4 
entsprechen den ASCII-Codes der verschiedenen Druck¬ 
zeichen: 

cl entspricht Bitmuster 00 
c2 entspricht Bitmuster 01 
c3 entspricht Bitmuster 10 
c4 entspricht Bitmuster 11 

Dies gilt jedoch nur für den Multicolor-Modus. Im Einzel¬ 
punktmodus müssen c3 und c4 entfallen, da dort nur die bei¬ 
den Bitmuster 0 und 1 exisitieren (cl steht dann für 0, c2 für 
1). Beispiel für einen Aufruf: 

SYS 49152,8192,2,32,46,119,113 


Damit erfolgt ein Ausdruck einer Mehrfarbgrafik (Bild 1 
erstellt mit einem Commodore-Drucker beziehungsweise 
eines Ausschnitts Bild 2 erstellt mit einem FX-80), die bei 
8192 beginnt, wobei 00 zwei Leerstellen, 01 zwei Punkte, 10 
zwei nicht ausgefüllte Kreise und 11 zwei ausgefüllte Kreise 
zugeordnet sind. 

Der Ausdruck einer Einzelpunktgrafik kann zum Beispiel so 
aussehen: 


Es ist zu beachten, daß höchstens vier verschiedene 
Druckzeichen definiert werden können, auch wenn die Grafik 
mehr als vier Farben hat. Diese sind dann durch das Farbregi- 
ster festgelegt. Das Programm unterscheidet jedoch nur zwi¬ 
schen den Bitmustern und nicht zwischen den Werten im Far- 
bregister, die dem jeweiligen Bildpunkt entsprechen. 

Das Programm ist so ausgelegt, daß es auf den meisten 
Druckern läuft. Das einzige, was an den Drucker angepaßt 
werden muß, sind die Kommandos zur Verkleinerung des Zei¬ 
lenabstandes, um einen lückenlosen Ausdruck zu erreichen. 
Das Programm ist für folgende Drucker vorbereitet: 

MPS 801/VC 1525 
MPS 802/VC 1526 
Epson und Kompatible 

Bei allen anderen Druckern muß vor dem Aufruf des Pro¬ 
gramms der Zeilenabstand laut Druckerhandbuch selbst ein¬ 
gestellt werden. 


Zur Handhabung des Basic-Laders 


Das im Lader (siehe Listing) enthaltene Menü erlaubt es, 
verschiedene Parameter des Programms festzulegen und es 
dadurch an einen Drucker anzupassen. 

Zunächst wird nach einer Filenummer (fn) und einer Sekun¬ 
däradresse (sa) gefragt. Das Maschinenprogramm führt spä¬ 
ter folgenden Befehl aus: OPEN fn,4,sa 
Hierbei kann man die Standardwerte einsetzen, das heißt 
die Werte, die man zum Beispiel beim Ausdruck eines 
Listings benutzt. Als drittes muß der Druckertyp eingegeben 
werden. Die jeweiligen Nummern werden im Menü 
aufgeführt. 


SYS 40152,8192,1,32,113 
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Bestallungen aus 
anderen Undern 
bitte per Auslands¬ 
postanweisung! 


Bestellungen aus der 
Schweiz bitte direkt an: 
Markts Technik Vertriebs AQ 
Kollerstrasse 3 
CH-6300 Zug 
Tel. 042/415656 


Bestellungen 
Österreich bitte direkt an: 
Ueberreuter Media 
Handels- und Verlagsgos. mbH, 
Alser StraBe 24, 

1091 Wien 

Tel. 0222/481538-0 


“ w neue“ Unser Angebot 

Leser-Service 

Der Commodore 64 hat schon 
oft bewiesen, wie vielseitig er 
ist. Er läßt sich nicht nur mit Pro¬ 
grammen, sondern auch durch 
so manche Hardware-Erweite¬ 
rung sinnvoll nutzen und aus¬ 
bauen. Dabei ist es sicherlich 
ein reizvoller Bestandteil des 
Computer-Hobbys, sich solche 
Erweiterungen selbst nachzu¬ 
bauen. Aber nicht jeder Leser 
verfügt über die Gelegenheit 
und Zeit zur Platinenherstei- 
iung. Hinzu kommt, daß es oft zu 
teuer ist, wegen einer bestimm¬ 
ten Erweiterung, Investitionen 
von mehreren hundert Mark für 
eine Platinenstation zu tätigen. 

Wir haben reagiert: Ab sofort 
besteht die Möglichkeit, im Rah¬ 
men des Leser-Service, die in 
der 64’er abgedruckten Hard¬ 
ware-Erweiterungen in drei ver¬ 
schiedenen Ausbaustufen zu 
erhalten: 

1. Als Platinen 

Nur Leerplatinen. Die Be¬ 
schaffung der Bauteile und der 
Zusammenbau bleibt bei Ihnen. 

2. Als Bausätze 
Unsere Bausätze enthalten alle 
Teile, die notwendig sind, um 
die beschriebene Erweiterung 
komplett aufzubauen. Sie brau¬ 
chen die Bauteile nur noch 
gemäß der Anleitung in dem je¬ 
weiligen Heft zusammenzulöten 
und einzubauen. 

3. Als Fertiggeräte 
Die Fertiggeräte sind komplett 
aufgebaute und geprüfte 
Geräte. Sie brauchen die Erwei¬ 
terung lediglich noch einzu¬ 
bauen. 

Wichtiger Hinweis: Wir bemühen uns 
um eine umgehende Auslieferung 
Ihrer bestellten Hardware. Aber bis 
zum Eingang Ihrer Überweisung, der 
Auftragsabwicklung und der dazuge¬ 
hörenden Postwege vergehen minde¬ 
stens 3 Wochen. Bitte haben Sie Ver¬ 
ständnis, wenn aus diesen Gründen 
Ihre Hardware nicht sofort bei Ihnen 
eintrlftt. 


Angebot 1: 


Expansion-Port Eprom-Platine mit 1 x 8 KByte 
Speicherplatz für 2732 bis 2764 Eproms. 

Beschreibung in Ausgabe 10185 
Bestellnummer: HW 010 pro Stück 

Dieser Artikel wird nur als Fertiggerät angeboten. 


19,80* 


Angebot 2: 


Expansion-Port Eprom-Platine 

mit 2x8 KByte Speicherplatz für 2732 bis 2764 

Eproms, mit Umschaltmoglichkeit. 

Beschreibung in Ausgabe 10/85 


Leerplatine 

Bestellnummer: HW 020 

Bausatz mit allen Teilen: 
Bestellnummer: HW 021 

Fertiggerät, getestet, wie beschrieben: 
Bestellnummer: HW 022 

Angebot 3: 


' Stück 24,80* 
pro Stück 49,80* 


pro Stück 


59,80* 


Eprom Trans - Die Speichererweiterung 

ROM-Speichererweiterung zum Einbau in den C64, gleichzeitig Steckplatz 
für ein Original- oder ein alternatives Betriebssystem. Zwei Platinen in 
Epoxid-Harz-Ausführung wie in Ausgabe 10185 beschrieben. 


Leerpiatine 

Bestellnummer: HW 030 

Bausatz mit allen Teilen: 
Bestellnummer: HW 031 


pro Stück 49,80* 
pro Stück 119,80* 

Eprom-Trans ist nicht als Fertiggerät erhältlich. Die Hardware-Erweiterungen aus 
früheren Ausgaben und die 40/80 Zeichen-Umschaltung tür den C128 werden 
wir so bald als möglich In unser Angebot autnehmen. 

Angebot 4:_ 

Super Kernal 

Erweitertes Betriebssystem für den C 64 mit vielen neuen Funktionen Inkl. 
Adaptersockel, einbaufertig in den C 64. 

Beschreibung In Ausgabe 11/85 

Version 1: Enthält Hypra Load / DOS 5,1 / Funktionstastenbelegung / 
Renew / RS232 

Bestellnummer: HW 040 


/ Funktionstastenbelegung / 


Version 2: Enthält Hypra Load / DOS 5.1 
Renew / Super Centronics Schnittstelle 

Bestellnummer: HW 041 

Version 3: Enthält Hypra Load / DOS 5.1 / Funktionstastenbelegung / 
Renew / Hypra Saue 

Bestellnummer: HW 042 

Version 4: Enthält Hypra Load / DOS 5.1 / Funktionstasten / Hypra Save / 
Centronics klein 
Bestellnummer: HW 043 

Preis für jede Version pro Stück: 

* Alle Preise inklusive Mehrwertsteuer 


39,80 


Qualität & Service 

• Die 64’er Hardware hat 
einen hohen Qualitätsstan¬ 
dard. Wir verwenden nur 
beste Epoxid-Harz-Platinen 
mit Lötstopp-Lack. 

• Wir verwenden nur Präzi¬ 
sionssockel mit gedrehten 
Kontakten. 

• Alle Platinen werden pro¬ 
fessionell gefertigt. Wenn 
notwendig mit doppelseiti¬ 
ger Beschichtung und Löt- 
Durchkontaktierungen. 

• Jedes Gerät, das wir versen¬ 
den, wurde auf Funktions¬ 
tüchtigkeit geprüft. 

• Wir sind auch nach dem 
Verkauf für Sie da. 

Neben der gesetzlichen 
Garantie bietet unser 
Service- und Fertigungs¬ 
partner ihnen Hilfe und 
Unterstützung an. 

Unsere Garantie 

Im Rahmen der Versand- und 
Lieferbedingungen unterlie¬ 
gen die Geräte einer Gewähr¬ 
leistungszeit von 6 Monaten 
ab Lieferung. Der Lieferung 
liegt eine Service-Karte bei, 
die Sie im Falle einer Be¬ 
anstandung zusammen mit 
dem Gerät an die auf der Karte 
vermerkte Adresse schicken 
können. Die gleiche Karte ver¬ 
wenden Sie bitte bei Repara¬ 
turen nach der Garantiezeit. 

Wie bestelle ich? 

Alle Hardware-Erweiterun¬ 
gen, die Sie bestellen können, 
tragen einen Bestell verweis 
am Ende des Artikels im jewei¬ 
ligen Heft. Falls Sie keinen 
Hinweis finden, hat sich der 
Autor dieser Erweiterung 
nicht dazu entschließen kön¬ 
nen, seine Entwicklung im 
Rahmen des Leserservice für 
eine Verbreitung freizugeben. 
Bitte verwenden Sie für Ihre 
Bestellung immer die beilie¬ 
gende Postscheck-Zahlkarte 
oder einen Verrechnungs¬ 
scheck. Sie erleichtern uns 
damit die Auftragsabwicklung 
und sparen sich Versand¬ 
kosten. 
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Wie schon erwähnt, muß bei nicht aufgeführten Druckern 
(Typ 0) der Zeilenvorschub vor dem Start des Programms auf 
h 2 inch anhand der Bedienungsanleitung verkleinert und 
nach dessen Ausführung wieder auf den normalen Wert rück¬ 
gesetzt werden. 

Unter Typ 3 fallen alle Drucker, bei denen die Umschaltung 
mit dem Befehl »ESC 1« (PRINT #fn,CHR$(27);chr$(49);) 
erfolgt. 

Nachdem Sie die Eingaben beendet haben, wird der 
Poster-Maker als Maschinenprogramm auf Diskette gespei¬ 
chert. Er muß mit Load »POSTER-MAKER«,8,1 geladen wer¬ 
den. Haben Sie den Poster-Maker mit dem Basic-Befehl 

SYS 49152, adr, m, cl, c2, c3, c4 

für Multicolour-Bilder beziehungsweise 

SYS 49152, adr, m, cl, c2 

für normalen Einzelpunktmodus gestartet, wird die ge¬ 
wünschte Grafik ausgedruckt. Zu beachten ist, daß bei der 
Eingabe der CHR$-Codes für die Druckzeichen die ASCII- 
Tabelle des Druckers, nicht die im Handbuch des C 64, gültig 
ist. Diese stimmt nur für Commodore-Drucker. 

Ein CLOSE nach Beendigung des Ausdrucks ist nicht 
nötig. Jetzt muß nur noch die Druckerfahne an den gestri¬ 
chelten Linien auseinandergeschnitten und die vier Streifen 
nebeneinandergeklebt werden. 

(Thomas Wolf/ah) 


Bild 2. Damit man Erkennt, wie »Poster-Maker« 
eine Grafik erstellt, hier ein Ausschnitt mit dem FX-80 
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100 

REM 

REM 

-fr««*-»***************-»*-** 

< 153> 

430 


105,0,6,85, 144,2,9,2,168,185,172, 


110 

M 


* 

<159> 


17„,32,210,255,32,210,255,202,208 

< 156> 

120 

REM 

* 

POSTER - MAKER 

* 

<027> 

440 

DATA 

231,160,0,32,7,193,144,192,32,110 


130 

REM 

* 


* 

< 179> 


,193, 

192,6,240,7,32,7,193,144,180 

<044> 

140 

REM 

* 

THOMAS WOLF 

* 

< 1B2> 

450 

DATA 

176,245,162,25,32,84,193,32,91,19 


150 

REM 

* 

KIEFERNWEG 16 

* 

<031 > 


3,32, 

7,193,144,165,173,111,193,201 

< 128> 

160 

REM 

* 

6940 WEINHEIM 

* 

< 164> 

460 

DATA 

1,144,22,201,2,208,8,169,36,72,32 


170 

REM 

* 

TEL.06201/13551 

* 

< 198> 


,148, 

193,208,10,169,27,32,210,255 

<088> 

180 

REM 

* 


* 

<229> 

470 

DATA 

169,64,32,210,255,32,204,255,169, 


190 

REM 

************************ 

<243> 


1,32, 

195,255,96,32,253,174,32,235 

<19B> 

200 

REM 




<006> 

480 

DATA 

183,160,8,24,165,20,72,105,56,153 



210 PRINT"£CLR,D0WNJ"TAB(8)"P OSTER- 

MAKER" <146> 

220 PRINT TAB(8)"TTTTTTTTTTTTTTTTTTTTTTT" <035> 
230 FOR 1=49152 TO 49609:READ A:S=S+A:POKE 

I,A:NEXT <131> 

240 IF S<>54783 THEN PRINT TAB(9)“C4DOWNJF 

EHLER IN DATA—ZEILEN.“:END <253> 

250 INPUT"{3D0WN,3SPACE>FILENUMMER. 

..(2SPACE>1T3LEFT>";F <204 > 

260 INPUT"CDOWN,3SPACE)SEKUNDAERADRESSE... 

.<2SPACE >0 <3LEFT>";S <188 > 

270 PRINT"<DOWN,3SPACE 5DRUCKERTYP. 

.C2SPACEI1" <141> 

280 PRINT"{DOWN,4SPACE >1 = MPS 801/VC 1525 

“ <112> 

290 PRINT"<4SPACE>2 = MPS B02/VC 1526" <154> 

300 PRINT"<4SPACE>3 = EPSON UND KOMPATIBLE 

" <248> 

310 PRINT"<4SPACE>0 = SONSTIGE «VOR DEM ST 

ART ZEILEN-" <104> 

320 PRINT"U7SPACE>VORSCHUB AENDERN.)" <088> 

330 PRINT"C7UP>"TAB<23>;:INPUT D <012> 

340 POKE 49352,F:POKE 49357,S:POKE 49519,D <233> 
350 FOR 1=0 TO 3:POKE 828+1,PEEK<43+1):NEX 

T <244> 

360 POKE 43,0:POKE 44,192 <064> 

370 POKE 45,202:POKE 46,193 <151> 

380 SAVE"POSTER-MAKER",8 <037> 

390 POKE 43,PEEK(828):POKE 44.PEEK(829):PO 

KE 45,PEEK<830>:POKE 46,PEEK(B31) <109> 

400 PRINT"CCLRIOK.":END <172> 

410 DATA 32,132,192,160,0,177,92,133,85,16 

5,2,20B,20,162,8,6,85,169,0,105 <135> 

420 DATA 0,168,185,172,193,32,210,255,202, 

208,240,240,27,162,4,169,0,6,85 <035> 


,192,193,200,165,21,72,105,1,153 <252> 

490 DATA 192,193,160,0,169,2,133,171,202,1 

34,2,240,11,224,1,240,3,76,8,175 <206> 

500 DATA 169,4,133,171,152,72,32,253,174,3 

2,158,183,104,168,138,153,172,193 <104> 

510 DATA 200,196,171,208,237,169,1,72,162, 

4,160,0,32,136,193,104,170,32,201 <176> 

520 DATA 255,173,111,193,201,2,144,28,201, 

3,208,13,169,27,32,210,255,169,49 <198> 

530 DATA 32,210,255,76,249,192,169,18,72,3 

2.148.193.162.1.32.201.255.32.91 <214> 
540 DATA 193,104,168,104,170,152,160,6,72, 

76,27,193,152,72,24,185,92,0,121 <044> 

550 DATA 176,193,170,200,185,92,0,121,176, 

193.136.240.32.150.92.200.153.92 <177> 
560 DATA 0,136,72,24,138,121,184,193,153,1 

92,193,200,185,92,0,121,1B4,193 <005> 

570 DATA 153,192,193,104,136,136,136,208,2 

24.134.92.133.93.104.168.185.92 <006> 
580 DATA 0,200,200,217,192,193,136,185,92, 

0,200,200,249,192,193,136,96,32 <099> 

590 DATA 110,193,202,208,250,96,32,130,193 

,162,80,169,45,32,210,255,202,208 <155> 

600 DATA 250,162,25,32,84,193,96,169,1,201 

,1,208,14,169,8,32,210,255,32,130 <056> 

610 DATA 193,169,15,32,210,255,96,169,13,3 

2,210,255,96,32,186,255,169,0,32 <096> 

620 DATA 189,255,32,192,255,96,169,6,162,4 

,160,6,32,136,193,162,6,32,201,255 <047> 

630 DATA 104,32,210,255,162,6,32,195,255,9 

6,32,32,32,32,8,0,1,0,64,1,80,0 <011> 

640 DATA 0,0,B0,0,8,0,64,31,0,0,0,0,0,0,0, 

0,0,0 <076> 

Listing zum Programm »Poster-Maker«. 

Bitte beachten Sie die Eingabehinweise auf Seite 7 
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C 64 


TIPS&TRICKS 


Directory 

dreispaltig 

gedruckt 

Besitzer eines Epson-kompatiblen Druk- 
kers können ihre Disketten-Directorys nun 
dreispaltig zum Aufkleben für die Disket¬ 
tenhülle ausdrucken. 


E s ist immer das gleiche: Disk rein - Disk raus. Man 
sucht ein bestimmtes Programm auf irgendeiner Dis¬ 
kette, und es vergeht geraume Zeit, bis man fündig 
wird. Hilfe soll dieses Programm bringen, das den Disketten¬ 
inhalt in komprimierter Schrift so auf ein Papier bringt, daß 
man es anschließend nur noch auszuschneiden braucht und 
mit Kleber auf die Diskettenhülle aufpunktet (Bild 1). 

152 Einträge, mehr passen auch nicht auf eine Diskseite, 
lassen sich damit ausdrucken. Dieses Programm läuft auf 
Epson- und Star SG 10/15-Druckern mit Görlitz-Interface und 
auch über die Centronics-Schnittstelle, zum Beispiel 
Eyssele-Schnittstelle. 

Für das Wiesemann- und Data-Becker-Interface ist Zeile 
470 in »OPEN 1,4,1« umzuändern. Die Bedienung des Pro¬ 
gramms (Listing 1) erklärt sich von alleine. Der Drucker ist vor¬ 
her einzuschalten, ansonsten kommt in Zeile 490 eine Feh¬ 
lermeldung. (Klaus Grabietz/bs) 


*he 

0 

■ SONDERHEFT 4 


NR. 

1 

■ *4 IST BLOECKE 

ELIPS PRB 

FREI 

0 


DEL 

27 

ORAFIK 2000 

PRO 

0 


DEL 

13 

ORAPHICS 

PRB 

2 

TITEL 

PRO 

10 

00 ZEICHEN 

PRB 

1 

80RT/WRXTE 

PRO 

2 

GRAPH 

PRO 

0 


DEL 

3 

VIEN 

PRB 

1 

SHOW A 

PR5 


CHARAK.DESIGNER 

PRO 

10 

OTELLATION2 

PRO 

33 

BXLDA 

PRO 

8 

ZEICHENS.LADER 

PRO 

31 

OHAPEB DEH02 

PRO 

4 

BILDA COLOR 

PR6 

17 

OCRIPT 

PR6 

IS 

ARXTH.BRC 

SEQ 

3 

FARBSTATI8T XK 

PR6 

27 

CHARAKTER-HAIN 

PRB 

21 

GRAPH.SRC 

SEQ 

2 

TUERME 

PRB 

0 


DEL 

31 

FACET.SRC 

SEO 

2 

TUERHE ZI 

PRO 

3 

3D-LADER 

PRO 

37 

BHAPE.SRC 

eco 

1 

BITTER 

PR6 

7 

3D-1 

PRB 

21 

INTERFACE.BRC 

SEQ 

2 

KUCHEN—D X A . 

PRO 

33 

3D-2 

PRO 

f 

KEYSORT.SRC 

SEQ 

1 

SCHRAFFUR I 

PR6 

1 

3D-TETRAEDER 

8 EQ 

3 

NRITE.BRC 

SEQ 

1 

PUNKTIEREN 

PRO 

1 

3D-HEXAEDER 

8 EQ 

32 

IMAGES.PIC 

PRO 

1 

SCHRAFFUR II 

PRO 

1 

3D-0KTAEDER 

BEO 

0 


DEL 

2 

ELLIPSE-DEMO 

PRB 

2 

3D-IKOSAEDER 

8 EQ 

1 

F—TASTE/DIR 

PRO 

1 

LINES 

PRB 

2 

3D-KREUZ 

SEQ 

0 


DEL 

2 

LUPE 

PRB 

3 

3D-VADER 

SEQ 




33 

SESXCHT 

PRB 

6 

3D-RU0IK'0 CUBE 

SEQ 





Bild 1. Ein typischer 
Beispiel-Ausdruck 


10 POKE 53280,0:POKE 53281,1:PRINT CHR* C30 

)CHR*(14)CHR*(147) <224> 

20 PRINT"II8DQWN,3SPACE>5ER DISKETTENINHAL 

T WIRD IN &LEIN-" C 

30 PRINT <132> 

40 PRINT“ SCHRIFT AUF EINEM äRUCKER AUSBEB 

EBEN." <079> 

50 PRINT“ t3D0WN,4SPACE}JäITTE "CHR*(18) " 'DR 

UCKER'"CHR*(146)" EINSCHALTEN <091> 

60 PRINT <162> 

70 PRINT"I7SPACEJUND JASTE DRUECKEN ! <175> 

80 POKE 198,0 <244> 

90 BET A*:M=M+1:IF M=10 THEN M=0 <071> 

100 PRINT MID*("<RVSON,RVOFF>“,M/5+1,1); <072> 

110 PRINT"(HOME,5D0WNJ&LAUS £RABIETZ,fiM HE 

INBERB14,3108 MINSEN" <049> 

120 PRINT"CRVSON,HOME,2D0WN,}3SPACE}£ILE £ 

RINTER €15SPACE >“ <249> 

130 IF A*=""SOTO 90 < 166> 

140 PRINT"C17D0WN,7SPACE>HAECHSTE DISKETTE 

- "CHR* (18) " ' £.7' " <032> 

150 PRINT <252> 

160 PRINT" I20SPACE>SMDE - "CHR* (18) " ' £.1 ' " <00B> 

170 POKE 198,0 <07B> 

180 BET C*:IF C*=CHR*(136)THEN 210 <051> 

190 IF C*=CHR*(133)THEN PRINT"CCLR>":END <229> 
200 GOTO 180 <000> 

210 DIM F*(152) <207> 

220 DIM G*(152) <22S> 

230 PRINT CHR*(147)CHR*(31)CHR*(142) <17B> 

240 OPEN 9,8,0,"*" <052> 

250 GET#9,A*,B*:N0=0 <210> 

260 GET#9,A*,B*:Z0=0:X*="" <020> 

270 IF ST< >0 THEN 350 <121> 

280 GET#9,A*,B* <115> 

290 N*=CHR*(0) <236> 

300 G*=RIGHT*("C6SPACE >"+STR*(ASC(A*+N*)+A 

SC(B*+N*>*256>,6) <240> 

310 GET#9,A*:IF A*=CHR* (34) THEN Z0=SGN(Zlö* 

, 1) <157> 

320 IF A*=""THEN N0=N0+1:N1=N0-1:GOSUB 360 

:GOTO 260 <055> 

330 IF Z0=1 THEN G*=G*+A* <0B0> 

340 GOTO 310 <046> 

350 CLOSE 9:GOTO 470 <0B7> 

360 IF N0=1 THEN 440 <222> 


370 

380 

393 

400 

410 

420 


430 

440 


450 

460 


470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 


IF LEN(G*> =6 THEN 460 

AA*="":FOR 1=8 TO 24:C*=MID*(B*,I,1):I 
F C*=CHR*(34)THEN 1=24:GOTO 400 
TA*=AA*+C* 

NEXT I:B*(NI)=LEFT*(AAS+"<18SPACET", 18 
)+LEFT*(G*,6)+“C2SPACE>"+ID* 
Hl*=MID*lG*(Nl>,22,3):H2*=LEFT*(G*(N1) 
-,16) 

H*=H1*+" "+H2*+" "+MID*(G*,26,3):PRINT 
"I7SPACE >"H*:A=A+1:F*(A)=H*:PRINT CHR* 
(142) 

RETURN 

CC*=RIGHT*(G*,24):ID*=MID*(CC*,20,2):P 
RINT"I7SPACE,RVSON >”;CC*:RETURN 
PRINT 

PRINT"C4SPACE>";G*;" BLOECKE FREI.":CC 
*=CC*+G*+" BLOECKE FREI.£2SPACE>"+DA*: 
RETURN 
OPEN 1,4 

PRINTttl:CMD 1 :PRINT CHR*(27)CHR*(15); 
:PRINT CHR*(27)"S“CHR*(0); 

PRINTttl,CHR*(27)"A"CHR*(5);"NAME : ";M 
ID*(CC*,2,16); 

PRINTttl,"<5SPACE>NR. : ";ID*; 

PRINT#1,"C6SPACE >"MID*(CC*,28,16 > 
PRINTttl , 


IF A/3< >INT(A/3)AND A-3*INT(A/3)=2 THE 
N A=A+3:GOTO 560 

IF A/30INT (A/3) AND A-3*INT (A/3> = 1 THE 
N A=A+3:GOTO 560 
FOR X=1 TO INT(A/3) 

PRINT#1," "F*(X)i"<3SPACE>"; 

PRINTttl,F*(X+INT(A/3));"<3SPACE>"; 
PRINTttl,F*(X+2*INT(A/3)) 

NEXT: GOTO 620 

PRINTttl,MID*(CC*,28,16) 

CLOSE 1 

PRINT CHR*(30)CHR*(14)CHR*(147):RUN 14 
0 


< 141 > 


<061 > 
<198> 


<129> 
< 161 > 


< 144> 

<234> 


<043> 

<042> 


<086> 

<039> 

<182> 

<00B> 

<104> 

<039> 

<228> 

<093> 

<085> 

<091 > 
<219> 
< 020 > 

< 178> 

< 109> 
<057> 
<123> 

< 123> 

<088> 


e g*' 


Das Listing zu »File Printer«. 
Bitte beachten Sie die 
Eingabehinweise auf Seite 6. 
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C 64 


Auto-Save 


Wenn Ihnen beim Abtippen eines Pro¬ 
gramms schon mal der Strom ausgefallen 
ist, dann ist das folgende Programm genau 
das richtige für Sie. 


D ie abgedruckten Listings in den Fachzeitschriften 
sind ja eine willkommene Programmquelle. Allerdings 
ist das Abtippen der oft sehr langen Programme eine 
sehr mühselige Angelegenheit. Besonders groß wird der 
Ärger, wenn ein Stromausfall beziehungsweise ein Hard¬ 
ware-Defekt stundenlange Tipparbeit zunichte machen. 
Abhilfe schafft hier nur das umständliche Zwischenspei¬ 
chern in gewissen Abständen, doch das wird oft vergessen 
oder aus Bequemlichkeit unterlassen. 

Das hier vorgestellte Programm nimmt nun dem geplagten 
Computer-Benutzer diese Arbeit ab. Es speichert automa¬ 
tisch das bisher Getippte in Intervallen oder auch auf Knopf¬ 
druck ab. Bitte tippen Sie vor der Benutzung Listing 1 mit dem 
MSE und Listing 2 mit dem Checksummer ab. Vergessen Sie 
das Speichern nicht! 

Hinweise zur Benutzung: 

Geladen wird das Programm mit LOAD "AUTO-SAVE",8 
und anschließendem RUN. Der Maschinensprachteil wird 
nachgeladen und dann der Name des einzutippenden Pro¬ 
gramms erfragt. Keine beziehungsweise Eingabe von Leer¬ 
zeichen wird abgefangen. 

Bei der Eingabe des Speicher-Intervalls ist folgendes zu 
beachten: Die Intervalle werden nicht durch die Zeit, sondern 
durch die Speicherbelegung gesteuert. Dies geschieht 
durch eine Abfrage der Speicherstelle 46. Diese enthält 
das High-Byte des Zeigers auf den Variablen-Anfang 
(=Programmende). Gibt man also als Intervall zum Beispiel 4 
ein, so wird immer dann, wenn 1 KByte Programmtext neu im 
Speicher stehen, zwischengespeichert. Um außerdem 
besonders schwierige Programmteile, zum Beispiel Bild¬ 
schirmmasken oder mathematische Formeln, sofort zu spei¬ 
chern, gibt es die Möglichkeit, per Knopfdruck ein Speichern 
auszulösen. 

Dies geschieht durch Drücken der @-Taste (Klammeraffe) 
und anschließendem RETURN. Diese Funktion kann mit 
POKE 49177,ASC(" taste ") leicht auf jede andere Taste ver¬ 
legt werden. 

Beendet werden kann das Programm durch RUN 
STOP/RESTORE oder einen Reset, neu wird es gestartet mit 
SYS 49152. 


Erläuterungen zum Programm: »SAVE.OBJ«: 

Die Gliederung des Maschinenprogramms läßt sich am 
besten anhand einer Tabelle durchführen: 

Speicherbereich Belegung 
hexadezimal 


$0000-0014 

SC015-C02A 

SC02B-C037 

SC038-C0A6 

SC0A7-C0D2 

$C0D3 

$C0D4 

$C0D5 

$C0D6 

SC0D7-C0D8 

$C0D9 


INIT 

BEFEHL 

AUTO 

SAVE 

Textmeldung 

Sollwert 

Intervall 

Namenlänge 

Namenlänge+ 2 

"S:" 

Programmname 


INIT: Zwei Vektoren werden umgeändert und damit das 
Maschinenprogramm aktiviert. 

BEFEHL: Dieser Teil wird über den Vektor "Neuen Basic- 


Befehl ausführen" (dez. 776-777) angesprungen. Er prüft, 
ob der Klammeraffe beziehungsweise die festgelegte Taste 
gedrückt wurde. Falls ja, wird zu SAVE verzweigt, ansonsten 
wieder in die Interpreterschleife. 

AUTO: Diese Routine wurde über den "Zeiger auf Tastatur- 
Dekodiertabelle" (dez. 655-656) eingebunden. Bei jedem 
Tastendruck wird der Inhalt der Speicherstelle 46 mit dem 
Sollwert (siehe oben) verglichen und bei Gleichheit wie¬ 
derum SAVE angesprungen. 

SAVE: Der eigentliche Hauptteil des Programms. Er wird 
von den oben genannten Routinen angesprungen und hat 
mehrere Aufgaben: 

- »Sollwert« um »Intervall« erhöhen 

- bisherigen Programmteil löschen 

- neuen Programmteil speichern 

- Textmeldung ausgeben. 

Um den »Replace«-Befehl mittels Klammeraffen, der 
bekanntlich seine Tücken hat, zu umgehen, wurde der etwas 
umständlichere Weg gewählt, vor dem Speichern einen 
»Scratch«-Befehl an das Laufwerk zu senden und somit das 
alte Programm zu löschen. 

Die Meldung »Saving« des Interpreters wird unterdrückt 
und statt dessen der Text »Programm wird abgespeichert« 
ausgegeben. Wem diese Meldung nicht gefällt, der kann sie 
leicht ändern, indem er sie im ASCII-Format in den oben 
genannten Speicherbereich schreibt. (Manfred Lins/bs) 


1 REM ******************************** 

<051 > 

2 REM * 

* 

<051 > 

3 REM * AUTO - SAVE 

* 

<047> 

4 REM * 

* 

<053> 

5 REM * 1985 BY MANFRED LINS 

* 

< 120 > 

6 REM * REITACKER 1 

* 

<209> 

7 REM * 6492 ZUENTERSBACH 

* 

<080> 

8 1 • * 

* 

<057> 

9 REM ******************************** 

<059> 

10 : 


<242> 

11 : 


<243> 

12 REM MASCH INEN—PROGRAMM NACHLADEN 


< 181 > 

13 IF R=0 THEN R=1:LOAD"SAVE-OBJ",8,1 


<058> 

14 : 


<246> 

16 PRINT CHR*(147)CHR*(18>"C13SPACEJAUT0 - 


SAVE116SPACE >" 


<014> 

19 PRINT:PRINT:PRINT 


< 144> 

21 : 


<253> 

22 REM NAME EINGEBEN 


<001> 

23 PRINT“C2SPACEJPROGRAMMNAMEN «MAX. 

16 ZE 


ICHEN) EIN-" 


<102> 

24 PRINT"C2SPACEIGEBEN :" 


<039> 

25 : 


<001 > 

26 S=10:Z=6:GOSUB 62 


<235> 

27 IF A*="" OR LEFT*(A*,1>=" " THEN 26 

< 1B6> 

28 : 


<004> 

29 REM NAMEN UND LAENGE ABSPEICHERN 


<239> 

30 NS="S:"+LEFT*(A*,16>:L=LEN(N*> 


<010> 

31 POKE 49365,L-2:POKE 49366,L 


<027> 

32 : 


< 116> 

33 FOR 1 = 1 TO L:POKE 49366+1,ASC(MID*<N*,I 


,1> >:NEXT I 


<007> 

36 PRINT:PRINT 


<244> 

39 REM INTERVALL EINGEBEN 


<005> 

40 PRINT"C2SPACEJABSPEICHER—INTERVALL 

(256 


BYTE =1)" 


< 120> 

41 PRINT"C2SPACEJEINGEBEN :" 


< 138> 

43 S=13:Z=10:GOSUB 62 


<016> 

46 REM INTERVALL ABSPEICHERN 


<184> 

47 I=VAL(A*>:IF I<1 THEN 1=1 


< 195> 

48 POKE 49363,8+1:POKE 49364,1 


< 128> 

51 REM MASCHINENPROGRAMM INITIALISIEREN 

<201 > 

52 SYS 49152 


<110> 

53 : 


<029> 

54 REM LADEPROGRAMM LOESCHEN 


< 191> 

55 NEW:END 


< 154> 

60 REM UNTERPROGRAMM STR INGE INGABE 


<083> 

62 PRINT CHR*(144):OPEN 1,0 


<029> 

63 POKE 214,Z:POKE 211,S:SYS 58640 


<036> 

64 INPUT#1,A$ 


<206> 

65 CLOSE 1:PRINT CHR*(154):RETURN 


<079> 

Listing 2. »AUTO-SAVE«: Sicherheit bei Stromausfall 
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Programm 

: save-ob j 



c000 c0d3 


C000 

: 

a 2 

15 

a0 

C0 

8e 

08 

03 

8c 

bb 


C00B 

: 

09 

03 

a 2 

2b 

a 0 

C0 

Be 

Bf 

0 a 


C010 

: 

02 

Bc 

90 

02 

60 

20 

73 

00 

92 

Listing 1. 

C01B 

: 

c9 

40 

f0 

06 

20 

79 

00 

4c 

65 

C020 

: 

e7 

a7 

20 

73 

00 

20 

38 

C0 

b5 

»SAVE.OBJ« 

C028 

: 

4c 

7b 

a4 

a5 

2e 

cd 

d3 

C0 

32 

wird von 

C030 

: 

d0 

03 

20 

38 

c 0 

4c 

48 

eb 

f 8 

C03B 

s 

a9 

01 

a 2 

08 

a0 

6f 

20 

ba 

87 

Listing 2 

C040 

: 

f f 

a9 

00 

20 

bd 

ft 

20 

C0 

fb 

»AUTO-SAVE« 

C04B 

s 

ff 

a9 

08 

20 

bl 

ff 

a9 

ht 

c3 

C050 

: 

20 

93 

ft 

a 2 

00 

bd 

d7 

C0 

5d 

nachgeladen. 

C05B 

: 

20 

aB 

ff 

eB 

Ba 

cd 

d6 

C0 

dd 

Bitte 

beachten 

C060 

: 

d0 

*3 

a9 

0B 

20 

ae 

ff 

a9 

60 

C068 

s 

01 

20 

c3 

ff 

ad 

d3 

ca 

1B 

17 

C070 

: 

6d 

d4 

c0 

8d 

d3 

C0 

a 2 

00 

1 7 

Sie die 

Eingabe- 

C078 

: 

bd 

a7 

C0 

20 

d2 

ff 

eB 

8a 

23 

C080 

: 

c9 

2c 

d0 

44 

a9 

00 

a 2 

08 

67 

C080 

■ 

20 

ba 

ff 

a2 

d9 

a0 

C0 

ad 

5a 

hinweise 
auf Seite 7. 

C090 

s 

d5 

C0 

20 

bd 

ff 

a9 

00 

85 

dd 

C09B 

: 

9d 

a9 

2b 

a6 

2d 

a4 

2e 

20 

9a 

c 0 a 0 

: 

dB 

ff 

a9 

B0 

BS 

9d 

60 

ii 

db 


cBaB 

: 

20 

20 

20 

20 

20 

12 

20 

50 

9B 


C0b0 

: 

52 

4f 

47 

52 

41 

4d 

4d 

20 

ba 


c0bB 

: 

57 

49 

52 

44 

20 

41 

42 

47 

75 


C0C0 

: 

45 

53 

50 

45 

49 

43 

48 

45 

c6 


c0cB 

: 

52 

54 

20 

92 

20 

20 

20 

20 

63 


c0d0 

: 

20 

20 

11 

85 

3b 

85 

2d 

4c 

23 



Ziffern 
und Zeiger 
auf dem C64 

Digitaluhren sind out. Um dem Trend der 
Zeit zu folgen, haben wir für Sie eine 
»Analog-Uhr« auf dem C64 installiert. 

E s sind schon etliche Versionen von Digitaluhren auf 
dem C64 veröffentlicht worden. Zur Abwechslung 
haben wir diesmal eine Interrupt-gesteuerte Analog¬ 
uhr für Sie. Das Programm blendet ein klassisches Ziffern¬ 
blatt mit Zeigern in die rechte obere Ecke des Bildschirms 
ein. 

Hinweise zum Eintippen. Geben Sie zuerst das Maschi¬ 
nenprogramm »UHR PRG.« (Listing 1) mit dem MSE ein, und 
speichern Sie es. Dann tippen Sie »UHR SPRITEGEN« 
(Listing 2) mit dem Checksummer ab und speichern es eben¬ 


falls. Starten Sie »UHR SPRITEGEN«. Dieses lädt zuerst das 
Maschinenprogramm und berechnet danach die Sprite- 
Daten für die Uhr und die Zeiger. Nach etwa vier Minuten wer¬ 
den die Spritedaten inklusive der Interruptroutine auf Dis¬ 
kette gespeichert. Das Programm wird dann mit LOAD "ANA¬ 
LOGUHR",8,1 geladen. 

Zum Programm. Die Uhr wird durch »SYS 40000,hh, 
mm,ss« eingeschaltet. Dabei bedeuten hh, mm, ss jeweils 
Stunden, Minuten und Sekunden mit je zwei Ziffern (Zum Bei¬ 
spiel »SYS 40000,15,05,00« stellt die Uhr auf 15:05,00). 
Der Bildschirmspeicher liegt jetzt von 35840 bis 36839 und 
der Basic-Speicher wird auf etwa 33 000 Bytes begrenzt. 
Durch RUN/STOP-RESTORE wird die Uhr abgeschaltet und 
der Bildschirm liegt wieder bei 1024. Das Ziffernblatt und die 
drei Zeiger bestehen aus Sprites, die von der neuen 
Interrupt-Routine gesteuert werden. Diese Routine liest bei 
jedem Interrupt die »time-of-day«-Register der CIA 1, berech¬ 
net für jeden Zeiger die Bildschirmposition und setzt die 
Spritpointer. Dann wird zum normalen Interrupt des Betriebs¬ 
systems gesprungen. 

Programmbeschreibung: Das Basic-Programm »UHR 
SPRITEGEN« besteht hauptsächlich aus drei Schleifen. In 
den Zeilen 160-260 werden die Zeigersprites erzeugt. Die 
IF-Zeilen bestimmen die Startkoordinaten der Linien. Durch 
READ in Zeile 220 werden die Endkoordinaten aus dem 
ersten Datenblock gelesen. Die aufgerufenen Unterpro¬ 
gramme löschen das zu bearbeitenden Sprite (460), ziehen 
eine Linie im Sprite (370) und übertragen das Sprite in den 
endgültigen Speicher unter dem Basic-ROM (480). In den 
Zeilen 270-290 werden die Daten für die vier Sprites, die 
das Zifferblatt darstellen, gelesen und gePOKEt. Zeile 300 
liest die Daten für das Maschinenprogramm, das das Pro¬ 
gramm »ANALOGUHR« speichert. Dieses wird in Zeile 310 
aufgerufen. Das Unterprogramm Zeile 340-360 setzt einen 
Punkt im bearbeiteten Sprite, in Zeile 380-440 werden die 
Punkte für eine Linie (XI, Y1, X2, Y2) berechnet und gesetzt. 
Zeile 460 löscht das Arbeitssprite. In Zeile 480 werden die 
Spritedaten in den Speicherbereich, entsprechend der Varia¬ 
blen »W«, die in Zeile 240 berechnet wird, übertragen. Die 
Datazeilen enthalten die X2,Y2-Koordinaten der Zeiger, die 
Daten für das Zifferblatt und für die Speicherroutine. 

Das Maschinenprogramm »UHR PRG.« arbeitet folgender¬ 
maßen: nach SYS 40000 wird zuerst die Uhr in CIAI gestellt, 
der Bildschirm verschoben und die Spriteregister des VIC ini¬ 
tialisiert. Dann wird der Basic-Speicher begrenzt und der 
NMI- und IRQ-Vektor verbogen. Anschließend wird zum 
Basic-Warmstart gesprungen. Die neue NMI-Routine setzt 
nur den Bildschirm wieder zurück, dann wird zum »Restore« 
des Betriebssystems gesprungen. 
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Listing 1. Das Maschinenprogramm »UHR PRG.« Bitte mit dem MSE eingeben. 
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C 64 


100 

REM *** ANALOGUHR *** 

<038> 

na 

REM MARC MICHAELIS 

<1BB> 

120 

REM PFARRHOEHE 11 

< 132> 

130 

REM 8507 OBERASBACH 

<035> 

140 

REM 

<202> 

150 

IF A=0 THEN A=l:LOAD"UHR PRG.",B,1 

<165> 

160 

FOR J=0 TO 83 

< 161 > 

170 

IF J=0 OR J=60 THEN X1=0:Y1=20 

<164> 

1B0 

IF J=15 OR J=66 THEN X1=0:Y1=0 

<079> 

190 

IF J=30 OR J=72 THEN X1=20:Y1=0 

<050> 

200 

IF J=45 OR J=78 THEN X1=20:Y1=20 

<101> 

210 

GOSUB 460 

<018> 

220 

READ X2,Y2 

<211 > 

230 

GOSUB 370 

<046> 

240 

W=40960+64*J 

< 165> 

250 

GOSUB 480 

<090> 

260 

NEXT 

<016> 

270 

FOR J=46336 TO 46591 

<000> 

260 

READ A:POKE J,A 

< 192> 

290 

NEXT 

<046> 

300 

FOR J=832 TO 880:READ A:POKE J,A:NEXT 

<234> 

310 

SYS 832 

<236> 

320 

END 

<06B> 

330 

REM PLOT 

<206> 

340 

Q=Y*3+1NT (X / 8) +832Q1 =2 T < 7- ( X-1 NT ( X /8 ) 



*8) ) 

< 156> 

350 

POKE Q,PEEK (□) OR Ql 

< 108> 

360 

RETURN 

< 164> 

370 

REM LINIE ZIEHEN (XI,Y1,X2,Y2) 

<066> 

3B0 

IF ABS (X2—X1X5 THEN 420 

<231 > 

390 

FOR I=X1 TO X2 STEP <X2—XI > /20 

<253> 

400 

Y=INT (( Y2—Y1 ) / ( X2—XI )* < I—XI ) +Y1 ) 

<251 > 

410 

X=INT < I ) :GOSUB 330:NEXT:RETURN 

<039> 

420 

FOR I=Y1 TO Y2 STEP(Y2-Y1)/20 

<204> 

430 

X=INT(((X2-X1)/<Y2—Y1)*(I-Y1)+X1)) 

<081 > 

440 

Y=INT(I):GOSUB 330:NEXT:RETURN 

<073> 

450 

REM LOESCHEN SPRITE 

<042> 

460 

FOR 1=832 TO B96:P0KE I,0:NEXT:RETURN 

<066> 

470 

REM UEBERTRAGEN SPRITE 

< 133> 

480 

FOR 1=0 TO 63:POKE W+I,PEEK ( 832+I ): NEX 



T:RETURN 

<004> 

490 

REM DATA FUER ZEIGER ( X UND Y ) 

<074> 

500 

DATA 0,0,2,0,4,1,6,‘1,8,2,10,3,12,4,13, 



5,15,7,16,8,17,10,18,12,19,14,19,16 

< 123> 

510 

DATA 20,18 

< 143> 

520 

DATA 20,0,20,2,19,4,19,6,18,8,17,10,16 



,12,15,13,13,15,12,16,10,17,8,18,6,19 

<243> 

530 

DATA 4,19,2,20 

<228> 

540 

DATA 20,20,18,20,16,19,14,19,12,18,10, 



17,8,16,7,15,5,13,4,12,3,10,2,8,1,6 

<142> 

550 

DATA 1,4,0,2 

< 188> 

560 

DATA 0,20,0,1B,1,16,1,14,2,12,3,10,4,8 



»5,7,7,5,8,4,10,3,12,2,14,1,16,1,18,0 

< 141 > 

570 

DATA 0,10,3,10,5,11,7,13,9,15,10,17 

<07B> 

5B0 

DATA 10,0,10,3,9,5,7,7,5,9,3,10 

<209> 

590 

DATA 20,10,17,10,15,9,13,7,11,5,10,3 

<214> 

600 

DATA 10,20,10,17,11,15,13,13,15,11,17, 



10 

< 154> 

610 

REM ZIFFERBLATT SPRITES 

< 117> 

620 

DATA 0,0,255,0,7,8,0,24,B,0,32,0,0,224 



,85,1,16,37,2,0,85,4,B4,0,4,36,0,B 

<075> 

630 

DATA 84,0,8,0,0,24,0,0,37,64,0,32, 12B, 



0,65,64,0,64,0,0,64,0,0,128,0,0,12B 

< 142> 

640 

DATA 0,0,128,0,0,138,128,0,239,128,0,0 



,112,0,0,12,0,0,2,0,0,3,128,0,4,64 

<050> 

650 

DATA 0,0,32,0,16,16,0,16,8,0,16,4,0,0, 



4,0,0,6,0,0,169,0,0,161,0,0,160,128 

<074> 

660 

DATA 0,0,128,0,0,128,0,0,64,0,0,64,0,0 



,64,0,84,64,200,233,0,B,138,128,0 

<230> 

670 

DATA 12B,0,0,128,0,0,128,0,0,85,80,0,8 



5,80,0,73,80,0,32,0,0,36,0,0,24,0 

< 19B> 

6B0 

DATA 0,8,170,0,8,170,0,4,74,0,2,0,42,1 



,16,42,0,224,1B,0,32,0,0,24,8,0,7 

<035> 

690 

DATA B,0,0,255,141,0,85,192,0,B4,64,0, 



0,64,0,0,64,0,0,64,2,160,128,2,160 

<06B> 

700 

DATA 128,2,64,128,0,1,0,0,9,0,0,6,0,40 



,4,0,40,4,0,16,24,0,0,32,0,4,64,0 

< 104> 

710 

DATA 3,128,0,2,0,0,12,0,0,112,0,0,128, 



0,0,0 

<04B> 

720 

REM DATEN FUER ABSPEICHERROUTINE 

<032> 

730 

DATA 169,54,133,1,162,8,32,186,255,169 



,9,162,104,160,3,32,189,255,169,64 

<16B> 

740 

DATA 133,251,169,156,133,252,169,251,1 



62,0,160,182,32,216,255,169,55,133 

<00B> 

750 

DATA 1,96,65,78,65,76,79,71,85,72,82 

<088> 

6 G4'«- 



Listing 2. Das Basic-Programm »UHR SPRITEGEN« 
erzeugt die nötigen Sprites der Uhr, verbindet diese mit 
dem Maschinenprogramm und speichert beides als 
»ANALOGUHR« auf Diskette 

Das eigentliche Steuerprogramm ist eine neue Interrupt¬ 
routine. Zuerst wird die Stunde gelesen, von BCD in binär 
umgewandelt, und daraus die vorläufige Spritenummer für 
den Stundenzeiger berechnet. Außerdem wird die Spritepo- 
sition des Stundenzeigers berechnet (Stunde < 3 =£= rechtes 
oberes Viertel, Stunde <6i rechtes unteres Viertel etc.). 
Dann werden die Minuten gelesen, umgerechnet und die 
Position des Minutenzeigers berechnet. Wenn die Minuten 
größer oder gleich 30 sind, wird der Stundenzeiger um eine 
halbe Stunde vorgerückt. Schließlich wird noch der Sekun¬ 
denzeiger nach der gleichen Methode gesetzt. Bevor zur 
IRQ-Routine des Betriebssystems gesprungen wird, muß 
noch das Zehntelsekunden-Register gelesen werden, um 
die Uhr wieder freizugeben. 

(M. Michaelis/og) 


Löschen 
ohne Verluste 

Ein dimensioniertes Feld läßt sich norma¬ 
lerweise nicht ohne den Verlust aller Varia¬ 
blenwerte aus dem Speicher entfernen. 
Dieses Programm macht’s möglich. 

E in einmal angelegtes Variablenfeld läßt sich beim Com- 
modore 64 nicht wieder löschen; es sei denn, man 
benutzt den Befehl CLR, der dann aber sämtliche 
Variablen löscht. Mit dem Programm »CLEAR« (Listing 1) kön¬ 
nen Sie ein einzelnes Variablenfeld löschen. Somit ist es 
möglich, diese Variable neu zu dimensionieren. Mit SYS 
49152 wird der CLR-Befehl erweitert. Folgt nun nach CLR 
ein Variablenname (zum Beispiel CLR A$), so wird diese 
Variable (falls vorhanden) aus dem Array-Bereich entfernt. 
Die Funktionsweise des Programms kann dem Assembler- 
listing entnommen werden (Listing 2). 

Wie verwaltet der Computer nun ein Variablenfeld? Im Bild 
rechts sehen Sie, wie die drei möglichen Variablentypen im 
Speicher abgelegt werden. In den ersten beiden Bytes steht 
der Variablenname. Besteht der Name aus nur einem Buch¬ 
staben, so wird für den zweiten Namen der Wert 0 eingesetzt. 
Die drei Variablentypen erkennt der Computer daran, das bei 
einer Stringvariablen im zweiten Byte das Bit 7 gesetzt ist. Zu 
dem ASCII-Wert des Variablennamens wird also der Wert 128 
dazugezählt. Bei einer Integervariablen ist im ersten und 
zweiten Byte das Bit 7 gesetzt. In den nächsten beiden Bytes 
steht die Anzahl der Bytes, die das Feld benötigt. Danach 
folgt die Anzahl der Dimensionen und die Anzahl der einzel¬ 
nen Felder. Zum Schluß finden wir noch die Variablen selbst. 
Wie im Bild zu sehen ist, belegt eine Stringvariable 3 Byte, 
eine Integervariable 2 Byte und eine Fließkommavariable 5 
Byte. Man kann also Speicherplatz sparen, wenn nach Mög¬ 
lichkeit Integervariablen benutzt werden. Dies ist aber nur bei 
Variablenfeldern der Fall, weil bei nichtdimensionierten 
Variablen immer 7 Byte pro Variable belegt werden. 

(H. Kunz/og) 
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Programm 

clear—dim 


C000 

c0de 

C000 

■ 

a 

a9 

0b 

8d 

08 

03 

a9 

C0 

8d 

2f 

C008 

s 

09 

03 

60 

20 

73 

00 

c9 

9c 

47 

C010 

: 

f 0 

0-f 

20 

79 

00 

4c 

e7 

a7 

10 

C018 

s 

4c 

08 

a-f 

20 

60 

a6 

4c 

ae 

22 

C020 

a 

a 

a7 

a9 

00 

85 

f 7 

85 

fB 

20 

lc 

C028 

a 

a 

73 

00 

f 0 

ef 

20 

13 

bl 

90 

58 

C030 

s 

e7 

20 

79 

00 

85 

f 7 

20 

73 

05 

C038 

a 

a 

00 

f0 

2b 

c9 

24 

f0 

le 

c9 

8a 

C040 

a 

a 

25 

f 0 

0f 

B5 

-FS 

20 

73 

00 

b0 

C048 

i 

f0 

lc 

c9 

24 

f0 

0f 

c9 

25 

36 

C050 

a 

a 

d0 

f 3 

20 

73 

00 

a9 

80 

05 

ea 

C058 

t 

f 7 

85 

f 7 

d0 

03 

20 

73 

00 

29 

C060 

a 

a 

a9 

80 

05 

f 8 

85 

f 8 

a5 

2f 

bf 

C068 

a 

a 

a6 

30 

85 

+ 9 

86 

fa 

a5 

f a 

94 

C070 

a 

c5 

32 

d0 

06 

a5 

f 9 

c5 

31 

e7 

C078 

a 

a 

f0 

34 

a0 

00 

bl 

f 9 

c5 

f 7 

9c 

C080 

a 

d0 

07 

c8 

bl 

f 9 

c5 

f 8 

f 0 

d0 

C088 

: 

06 

20 

c6 

C0 

4c 

6e 

C0 

a5 

ee 

C090 

s 

f 9 

a6 

-f a 

85 

f 7 

86 

f 8 

20 

23 

C098 

: 

c6 

C0 

a5 

fa 

c5 

32 

d0 

11 

da 

c0a0 

s 

a5 

f 9 

c5 

31 

dB 

0b 

a5 

f 7 

c5 

c0a8 

: 

85 

31 

a5 

f 8 

85 

32 

4c 

ae 

c7 

c0b0 

: 

a7 

a0 

00 

bl 

f 9 

91 

f 7 

e6 

b7 

c0b8 

s 

f 7 

dB 

02 

e6 

f 8 

e6 

f 9 

d0 

c5 

C0C0 

: 

d9 

e6 

•f a 

4c 

9a 

c 0 

aß 

03 

8d 

c0c8 

: 

bl 

f 9 

aa 

88 

bl 

f 9 

1B 

65 

48 

c0d0 

: 

f 9 

90 

02 

e6 

f a 

85 

f 9 

8a 

48 

C0d8 

■ 

18 

65 

•fa 

85 

-f a 

60 

ff 

fc 

bf 

Listing 1 

. > 

CLEAR-DIM« 

bitte mit dem MSE eingeben 


> 

s 

M 

01 


Variablenname 




Platzbedarf 

Anzahl der-p- 

Dimensioneu_ 

Größe Feld 1 
Größe Feld 2 
Größe Feld 3 


AB (0,0,0) 


AB (1,0,0) 


ro 

CO 

o 


Variablenname 

Platzbedarf Hr 

Anzahl der- 

Dimensionen_ 

Größe Feld 1 
B1% (0) 

B1% (1) 


> 

Ol 

k) 

o 


B1% (30) 


i ' 

B 


Variablenname 

Platzbedarf 

Anzahl der- 

Dimensionen_ 

Größe Feld 1 
Größe Feld 2 

AS (0,0) 

AS (1,0) 


i i 
I l 
I i 


AB (2,5,10) 


AS (5,20) 


Aufbau der 

verschiedenen 

Array-Typen 


10 " 


ESRSCEBSSBSRSStSS&BEESBBCSESrCSSS: 


20 " 
30 " 


PROGRAMM: CLEAR 


40 " 





50 » 


L0ESCHEN EINES EINZELNEN 


40 " 


VARIABLENFELDES HIT ! 


70 " 


CLR X 


U0 " 





90 " 


tivencEtiBBBs: 

tEBBBrBEBIBBEEEEBBBBEBBBBBBSBLBBEB 


100 

.HA 49 

52 



105 


LDA (HOB 1 

VEKTOREN AUF 


110 


STA «0308 1 



115 


IDA «SCO J 

NEUE ROUTINE 


120 


STA *0309 ! 



ISO 


RTS : 



135 


JSR «0073 1 

NAECHSTES ZEICHEN 


140 


CUP II*9C i 

IST ES CI.R 


145 


P.EQ JA ; 



150 

‘ 

JSR «0079 i 

LETZTES ZEICHEN-HOLEN 


155 


JHP »A7C7 ! 

BEFEHL AUSFUEHREN 


160 

'ERROR 

JHP *AF08 1 

SYNTAX ERROR AUSOEBEN 


165 

'NCLR 

JSR *A660 ; 

NORnALEN CLR BEFEHL AUSFUEHREN 


170 


JHP *A7AE I 

ZUR INTERPRETERSCHLEIFE 


175 

'JA 

L DA 11*00 1 



ISO 

' 

STA »F7 1 

VARIABLENNAME AUI 


105 

1 

STA *FB J 

NULL SETZEN 


ISO 

* 

JSR »0073 ; 

NAECHSTES ZEICHEN HOLEN 


195 

• 

BEB NCLR ! 

NICHTS. DANN NORnALEN CLR AUSFUEHREN 


200 

• 

JSR *B113 ; 

PRUEFT AUF BUCHSTABE 


S05 

' 

f.CC ERROR 1 

KEIN BUCHSTABE. DANN FEHLER 


2 10 

' 

JSR *0079 J 

LETZTES ZEICHEN NACH ACCU 


SIS 

• 

StA *E7 1 

UNO HACH *F7 


S20 

1 

JSR »0073 1 

NAECHSTES ZEICHEN 


225 

1 

BEO X2 I 

NICH1S. DANN NUHERISCHE VARIABLE 


230 

' 

CMP i r% ; 

SIRINOVARIABLE ? 


235 


BEO STRING 



240 


cm* h ' % i 

1NTEGERVARIABLE 


S45 


BEO INTEGER 



250 


STA *FB 1 

ZEICHEN NACH *F8 


255 

"LLX 

JSR *0073 ! 

NAECHSTES ZEICHEN 


260 


BEO X2 ; 

NICHTS, DANN NUHERISCHE VARIABLE 


265 

« 

cnp «•* i 

STRINGVARIABLE ? 


270 

" 

BEO STRING 



275 

" 

cup H’x i 

INTEBERVARIABLE ? 


SSO 

" 

BNE LLX ; 



285 

"INTEGER 

JSR *0073 ; 

NAECHSTES ZEICHEN 


290 

" 

LOA 8*80 1 

BIT 7 in 1. BYTE 


795 

" 

ORA IF7 1 

OES VARIABLENNAHEN 


300 

" 

STA SF7 ! 

SETZEN 


305 

" 

BNE SPRUNG 



310 

"STRING 

JSR *0073 ; 

NAECHSTES ZEICHEN 


315 

"SPRUNG 

LDA liteo : 

BIT 7 IR 2. BYTE 


320 

" 

ORA »F8 ; 

OES VARIABLENNAMEN 


325 

" 

STA *F8 J 

SETZEN 


330 

"X2 

LDA *2F ; 

BS3=Ba=ss=ssaars3asasj=aB3Ba 


i<3&gi 1 . 

LDX »30 i 

ARRAYANFANG NACH I 


34'V 

STA *F9 ! 

*F9/*FA SPEICHERN I 


345 


STX *F A ; 

=aaar==a:==SEaan===raaB=a=rs 


350 

"L00P 

LDA »FA ! 

= == = = == = = ==== = = = === = = = = » = ==:= 


355 

" 

CflP *32 ; 

*F9/*FA niT ARRAY ENDE I 


360 

" 

BNE NO 1 1 

I 


365 

" 

LDA *F9 ; 

VERGLEICHEN I 


370 

" 

CMP *31 ; 

==================3========= 


375 

" 

BEO NOFOUND 



380 

"N01 

LDY H*0Ü 

i ERSTES BYTE DES 


385 


LOA (»F91.T 

; VARIABLENNAMENS 
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" 

CUP *F7 

; nir gesuchter variable 


395 

" 

BNE NO 

; VERGLEICHEN 


400 

" 

INY 

; 


405 

" 

LDA (*F9)rY 

; ZWEITES BYTE 


410 

" 

CHP *F8 

V VERGLEICHEN 


415 

" 

BEQ FOUND 

; 


420 

"NO 

JSR PLUS 

; NAECHSTE variable 


4S5 

" 

JHP LOOP 

i 


430 

"F0UND 

LDA *F9 

l VARIABLE GEFUNDEN 


435 

" 

LDX *FA 

1 ANFANG DER GESUCHTEN VARIABLE 


440 

•* 

STA »F7 

i NACH *F7/*F8 SPEICHERN 


445 

" 

STX *F8 



450 

" 

JSR PLUS 

1 ANFANG DER NAECHSTEN VARIABLEN 


455 

"N2 

LDA *FA 



460 

" 

cnp *32 

I 


465 

" 

8NE UERSCH 

! ENDE DES ARRAYBEREICHS ? I 
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" 

LDA *F9 

1 I 


475 


cnp *3i 



480 
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BNE UERSCH 

; 
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LDA *F7 

1 ZEIGER ARRAY ENDE 


490 


STA *31 

1 


495 

" 

LDA *F8 

J SETZEN 
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" 
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) 


505 
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JNP *A7AE 
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VLKbLM 

l.UY 
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" 
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i 

i 
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•• 

STA < *F7 . Y 

; ANFANG DER NAECHSTEN VARIABLEN 

I 

525 

'* 
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I 
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" 

BNE Hl 

; VERSCHIEBEN, BIS ARRAY ENDE 

I 

535 

" 

INC *F8 

i ERREICHT IST. 

I 
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"Nl 

INC »F9 

1 

I 

545 


BNE N2 

f 

I 

550 

" 

INC *rA 

’> 

I 
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LDA («F91.1 

1 I 
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" 

1AX 
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H 

OEY 
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" 

LDA <*f9).1 

; I 
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" 
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; ANFANG DER NAECHSTEN I 


590 
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; I 
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" 

BCC N3 
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" 

INC »FA 

i i 
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STA *F9 

; UND NACH *F9/*FA SPEICHERN I 
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" 
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615 

» 
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r I 
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" 

ADC *FA 

; J 


62b 

" 

STA *FA 

, i 
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" 

RTS 

; Be = b = = = = = = = = = = = = = = = r.c a = = = r, = n*-Bte 
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C 64 


Tornado-Tape: 
so schnell wie 
der Blitz 

»Tornado-Tape« hat es geschafft. Endlich 
ist die Datasette schneller als das Dis- 
ketten-Laufwerk 1541. 

T ornado-Tape« ist das schnellste zur Zeit erhältliche 
Programm zum Laden und Speichern von und auf 
Kassette. Beim Arbeiten mit diesem Programm ist 
unbedingt darauf zu achten, daß gutes Bandmaterial verwen¬ 
det wird, denn wegen der extrem hohen Schreib- und Lade¬ 
geschwindigkeit müßten Sie bei billigem Bandmaterial mit 
Datenverlust rechnen. Außerdem muß das Datasettenkabel 


geerdet werden, um eventuelle Störungen von »außen« zu 
vermeiden. Die Bedienung des Programms »Tornado-Tape« ist 
denkbar einfach. Nach der Eingabe mit dem MSE wird das 
Programm mit SYS 49152 aktiviert. Anschließend stehen 
neben den schnellen Lade- und Speicher-Routinen auch die 
normalen zur Verfügung. Soll ein Programm im »Tornado- 
Tape«-Format geladen oder gespeichert werden, dann ist nur 
der Befehl SAVE, LOAD oder VERIFY einzugeben, also ohne 
jegliche Parameter. Auf die Angabe eines Filenamens wurde 
verzichtet, da sich Datasetten-Benutzer ohnehin zum jeweili¬ 
gen Programm den Zählerstand merken müssen. Wird hinter 
den einzelnen Befehlen jedoch ein Filename mit angegeben, 
so erwartet Tornado-Tape ein Programm im langsamen For¬ 
mat. 

Wird während des Arbeitens mit »Tornado-Tape« ein RESET 
ausgelöst oder die Tastenkombination RUN-STOP/RESTORE 
gedrückt, so muß das Programm mit dem Basic-Befehl SYS 
49152 neu aktiviert werden. 

Die Funktionstasten sind beim Arbeiten mit dem schnell¬ 
sten Turbotape wie folgt belegt: 

Fl = SAVE; F3 = LOAD; F5 = VERIFY. 

Ansonsten bleibt nur, Ihnen mit Tornado-Tape viel Spaß und 
kurze Ladezeiten zu wünschen. 

(John Bettels/ah) 
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C 64 


TIPS&TRICKS 


Flottes 
Kopieren mit 
Express-Copy 

Mit dem Programm Express-Copy kann 
man eine ganze Diskette in knapp drei 
Minuten kopieren. Dieses Programm ist 
also ideal für jeden, der ab und zu Sicher¬ 
heitskopien von wichtigen Daten-Disketten 
anfertigen muß. 

W er sich schon immer ein schnelles Disketten-Ko- 
pierprogramm gewünscht hat, sich aber keines 
kaufen wollte, der findet hier genau das richtige Li- 
sting. Mit Express-Copy lassen sich ganze Disketten (und 
keine einzelnen Programme oder Dateien!) in knapp drei 
Minuten kopieren, Zeit für Diskettenwechsel nicht einge¬ 
rechnet. 

Noch ein wichtiger Hinweis: Ein einwandfreier Betrieb von 
»Express-Copy« kann nur bei Benutzung eines Original- 
ROMs in der Floppy garantiert werden. Besitzer von »Speed- 
Dos«, »Turbo Access« oder »Prologie Dos« müssen vielleicht 
auf Express-Copy verzichten. 

Nachdem man Listing 1 mit dem MSE abgetippt und 
gespeichert hat, kann man das Programm mit »LOAD 
"EXPRESS-COPY",8« laden und mit »RUN« starten. 

Sekundenbruchteile später erlischt der Bildschirm, der 
Laufwerksmotor läuft an und der Schreib/Lese-Kopf positio¬ 
niert sich. Dies hat alles seine Richtigkeit, das Laufwerk also 
nicht abschalten! 

Kurz darauf erwartet der Computer von Ihnen die Eingabe 
des zu kopierenden Track-Bereiches. Der Start- wie Endtrack 
darf dabei im Bereich von 01 bis 42 liegen. Wenn Ihnen diese 
Zahlen nichts sagen, geben Sie als Starttrack einfach »01« 
und als Endtrack einfach »35« ein. Dann werden alle normal 
beschriebenen Disketten automatisch richtig kopiert. Ihre 
Eingaben müssen Sie immer mit RETURN bestätigen. Fal¬ 
sche Eingaben können vor der Bestätigung mit der INST/DEL- 
Taste gelöscht werden. 

Als nächstes werden Sie gefragt, ob dieZiglpliskBtte forma¬ 
tiert werden soll. Bei schon beschriebenen Disketten, die nur 
mit einem neuen Inhalt überschrieben werden sollen, er¬ 
übrigt sich das Formatieren (Achtung! Der alte Inhalt wird 


trotzdem dabei gelöscht). Da das Formatieren aber nur 
wenige Sekunden in Anspruch nimmt, sollte man es ruhig 
auch bei schon formatierten Disketten anwählen. Als Eingabe 
wird hier der Druck der Taste »Y« für Ja (Yes) oder N für Nein 
(No) angenommen. 

Als letztes möchte der Computer noch von Ihnen wissen, 
ob er den Lesekopf (hier mit DC abgekürzt) während einzel¬ 
ner Leseversuche nachjustieren soll. Disketten, die mit leicht 
verstelltem Tonkopf beschrieben wurden, können durch ein 
Umkopieren auf eine andere Diskette mit gleichzeitiger 
Justierung »gerettet« werden. Dies muß allerdings nicht 
immer klappen. Beim Justieren wird bei Lesefehlern der Kopf 
leicht hin- und herbewegt, um den Disketten-Inhalt vielleicht 
noch richtig zu erwischen. Im Normalfall kann man aber auf 
eine Justage während des Lesens verzichten. 

Nachdem alle Eingaben gemacht wurden, erlischt der Bild¬ 
schirm für kurze Zeit. Kurz danach ertönt aus dem Lautspre¬ 
cher des Fernsehers/Monitors ein sirenenartiges Geräusch. 
Gleichzeitig erscheint auf dem Bildschirm die Meldung »Read 
Track XX«. Dies ist die Aufforderung, die Diskette, von der 
kopiert werden soll, in das Laufwerk einzulegen. Danach 
drücken Sie bitte RETURN. Nun wird in zirka dreißig Sekun¬ 
den ein Drittel der Diskette in den Speicher des C 64 gele¬ 
sen. Während dieser Zeit ist der Bildschirm schwarz. Danach 
ertönt wieder die Sirene und es erscheint die Meldung »Write 
Track XX«. Nun müssen Sie die Diskette, auf die kopiert wer¬ 
den soll, einlegen und wieder RETURN drücken. Nach einer 
Weile erscheint dann wieder die Meldung »Read Track YY«, 
und Sie müssen wieder die erste Diskette einlegen, und so 
weiter... 

Nach normalerweise dreimaligem Einlegen jeder Diskette 
erscheint die Meldung »End of Copy« und der Kopiervorgang 
ist beendet. Sollten Sie den Kopiervorgang vorzeitig abbre¬ 
chen .vollen, genügt ein Druck auf die Taste mit dem Pfeil 
nach oben, sobald der Computer »Read Track« oder »Write 
Track« anzeigt. 

Ein paar Worte für die Profis: Express-Copy kopiert die 
Lesefehler 22 und 23 originalgetreu auf die Zieldiskette. 
Nicht kopiert werden die Fehler 20, 21 und 27. Der entspre¬ 
chende Block auf der Diskette wird dann mit Nullen auf der 
Diskette gefüllt. Wenn die Tracks 36 bis 42 kopiert werden 
sollen, wird für diese die Lesegeschwindigkeit der Tracks 31 
bis 35 verwendet. Damit können nicht alle Disketten, die auf 
diesen Tracks formatiert sind, kopiert werden! Manchmal 
werden diese Tracks nämlich in anderen Geschwindigkeiten 
formatiert, so zum Beispiel beim Format-System von Karsten 
Schramm aus dem Floppy-Kurs in der 64'er, Ausgabe 5/85, 
Seite 145. 

Noch ein kleiner Hinweis: Dieses Kopierprogramm kann auch 
einige wenige kopiergeschützte Originalprogramme kopie¬ 
ren. Es sei kurz darauf hingewiesen, daß das Kopieren dieser 
Programme, außer für den privaten persönlichen Gebrauch, 
gesetzlich verboten ist. (Daniel Gorrera/bs) 


Programm 

: express-copy 


0B01 

1169 

0849 


ed 

a5 

af 

20 

dd 

ed 

a9 

le 

29 

08a9 

: 

Bd 

21 

d0 

a9 

lb 

Bd 

11 

d0 

34 












0B51 

3 

20 

dd 

ed 

bl 

b2 

20 

dd 

ed 

91 

08b 1 

3 

a2 

i d 

86 

8c 

e8 

86 

Be 

eB 

54 












0859 

3 

c8 

C0 

le 

do 

f 6 

20 

fe 

ed 

6b 

0Sb9 

: 

86 

3c 

gB 

B6 

ae 

20 

6c 

0b 

lc 

0801 

: 

0b 

08 

cl 

07 

9e 

32 

30 

36 

0a 

0861 

: 

18 

a5 

b2 

69 

le 

85 

b2 

90 

20 

08c 1 

3 

93 

1 1 

20 

11 

20 

0B 

0G 

9g 

bf 

0B09 

: 

34 

00 

00 

00 

00 

00 

00 

a9 

91 

0869 

3 

03 

e6 

b3 

1B 

a5 

ae 

a6 

af 

99 

08c9 

3 

20 

c5 

58 

50 

52 

45 

53 

53 

2+ 

0811 

: 

97 

Bd 

00 

dd 

a9 

0b 

Bd 

11 

76 

0871 

3 

69 

le 

85 

ae 

90 

b3 

e8 

86 

78 

08dl 

3 

2d 

c3 

4-f 

50 

59 

0d 

0d 

20 

30 

0819 

: 

d0 

■9 

9d 

•2 

0C 

B5 

b2 

86 

3e 

0879 

3 

af 

e0 

08 

90 

ac 

a9 

08 

20 

25 

0Bd9 

: 

20 

20 

28 

43 

29 

20 

27 

38 

lc 

0821 

: 

b3 

a9 

00 

a2 

03 

85 

ae 

86 

21 

0881 

3 

0C 

ed 

a9 

6* 

20 

b9 

ed 

a9 

b7 

08g 1 

3 

35 

20 

42 

59 

20 

c4 

2g 

c7 

53 

0829 


af 

a9 

08 

20 

0c 

ed 

a9 

6-f 

69 

0889 

3 

4d 

20 

dd 

ed 

a9 

2d 

20 

dd 

5c 

08e9 

3 

4-f 

52 

52 

45 

52 

41 

0d 

00 

02 

0831 

: 

20 

b9 

ed 

a9 

4d 

20 

dd 

ed 

07 

0891 

3 

ed 

a9 

45 

20 

dd 

ed 

a9 

86 

a9 

08f 1 

3 

20 

6c 

0b 

0d 

0d 

46 

52 

4-f 

97 

0839 

: 

a9 

2d 

20 

dd 

ed 

a9 

57 

20 

06 

0B99 

3 

20 

dd 

ed 

a9 

06 

20 

dd 

ed 

0d 

0Bf9 

: 

4d 

20 

d4 

52 

41 

43 

4b 

3a 

a6 

0841 


dd 

ed 

30 

00 

a5 

ae 

20 

dd 

49 

08a 1 

: 

20 

fe 

ed 

a9 

00 

Bd 

20 

d0 

7i 

0901 


00 

20 

11 

0C 

85 

14 

20 

6c 

2a 


Listing zu »Express-Copy«. Bitte mit dem MSE eingeben. Beachten Sie die Eingabehinweise auf Seite 7. 


SONDERHEFT 


117 










TIPS&TRICKS 


C 64 


0909 

: 

0b 

0d 

0d 

20 

20 

54 

4f 

20 

04 

0bd9 

3 

d0 

fc 

a2 

04 

ad 

00 

dd 

0a 

b7 

0ea9 

: 

09 

50 

fe 

ba 

a9 

55 

Bd 

01 

2e 

0911 

: 

d4 

52 

41 

43 

4b 

3a 

00 

20 

8e 

0bel 

3 

08 

0a 

26 

02 

28 

26 

02 

ca 

0a 

0eb 1 


lc 

ca 

d0 

f 5 

a9 

ff 

a2 

05 

54 

0919 


11 

0C 

85 

15 

c5 

14 

b0 

03 

fa 

0be9 

: 

d0 

f 2 

a9 

34 

85 

01 

a5 

02 

le 

0eb9 


50 

fe 

bB 

Bd 

01 

lc 

ca 

dB 

26 

0921 


4c 

ac 

0B 

20 

6c 

0b 

0d 

0d 

37 

0bf i 

: 

49 

ff 

60 

20 

c5 

0a 

20 

6c 

5c 

0ec 1 


f 7 

a2 

bb 

50 

f e 

bB 

a9 

55 

09 

0929 

: 

20 

c6 

4f 

52 

4d 

41 

54 

20 

3b 

0bf 9 

: 

0b 

0d 

11 

20 

c3 

4f 

50 

59 

7e 

0ec9 


Bd 

01 

lc 

eS 

d0 

f 5 

a0 

00 

3a 

0931 

3 

c4 

49 

53 

4b 

20 

5b 

59 

2f 

79 

0C01 


20 

52 

45 

41 

44 

59 

00 

B5 

de 

0ed 1 


50 

fe 

bB 

a9 

55 

Bd 

01 

lc 

02 

0939 

: 

4e 

5d 

3a 

00 

20 

B7 

0C 

a2 

78 

0c09 

3 

c6 

a5 

c6 

f0 

fc 

4c 

ac 

0B 

66 

0ed9 


BB 

d0 

f 5 

a9 

55 

a2 

08 

50 

a7 

0941 

: 

20 

c9 

59 

f0 

02 

a2 

2c 

86 

ad 

0Cll 

: 

18 

a0 

0b 

a6 

d6 

20 

fo 

ff 

43 

0eel 


fe 

b8 

Bd 

01 

lc 

ca 

dB 

f 7 

0a 

0949 

: 

fa 

20 

6c 

0b 

0d 

0d 

20 

ca 

if 

0C19 

s 

a9 

20 

20 

d2 

ff 

20 

d2 

ff 

81 

0ee9 


a5 

32 

1B 

69 

0a 

B5 

32 

C6 

fe 

0951 

: 

55 

53 

54 

49 

43 

45 

20 

c4 

f 7 

0c21 

i 

18 

a0 

0b 

a6 

d6 

20 

f0 

ff 

53 

0ef 1 


0a 

d0 

96 

50 

fe 

b8 

50 

fe 

08 

0959 

: 

c3 

20 

20 

5b 

59 

2f 

4e 

5d 

a3 

0c29 

: 

a9 

00 

B5 

02 

aV 

fe 

85 

03 

23 

0ef 9 


b8 

20 

00 

fe 

a9 

00 

Bd 

fe 

70 

0961 

: 

3a 

00 

20 

B7 

0c 

a2 

00 

c9 

fe 

0c 31 

3 

a9 

00 

B5 

c6 

a5 

c6 

f0 

fc 

63 

0f01 


02 

B5 

50 

4c 

9e 

fd 

85 

08 

63 

0969 

: 

59 

f0 

02 

a2 

04 

B6 

fb 

a2 

b9 

0c 39 

: 

ad 

77 

02 

c9 

14 

t0 

dl 

38 

de 

0f 09 


2c 

00 

1B 

10 

fb 

a9 

10 

Bd 

a6 

0971 

: 

S0 

a9 

0b 

8d 

11 

d0 

BB 

d0 

96 

0c4 1 


e9 

30 

90 

ec 

c9 

0a 

b0 

eB 

85 

0f 11 


00 

18 

2c 

00 

18 

30 

fb 

a2 

61 

0979 

: 

fd 

ca 

d0 

f a 

a5 

14 

20 

90 

0b 

0c49 

: 

4B 

06 

02 

06 

02 

06 

02 

06 

3a 

0f 19 


04 

a9 

00 

06 

0B 

2a 

0a 

06 

b9 

09B1 

s 

0b 

aS 

15 

20 

90 

0b 

a5 

fa 

96 

0c51 

: 

02 

05 

02 

85 

02 

6B 

09 

30 

ef 

0f 21 


08 

2a 

0a 

Bd 

00 

1B 

ca 

dB 

00 

0989 

: 

20 

90 

0b 

a5 

fb 

20 

90 

0b 

82 

0c59 

3 

20 

d2 

ff 

e6 

03 

d0 

dl 

a9 

10 

0f 29 


f0 






a9 

Bf 

71 

0991 

: 

20 

c5 

0a 

a9 

0d 

20 

d2 

ff 

69 

0c61 

: 

00 

85 

c6 

a5 

c6 

f0 

fc 

ad 

cd 

0f 31 


8d 

00 

18 

60 

2c 

00 

18 

10 

14 

0999 

: 

c6 

14 

70 

6c 

0b 

0d 

20 

20 

d9 

0c69 

: 

77 

02 

c9 

14 

f0 

a2 

c9 

0d 

3c 

0f 39 


fb 

a9 

10 

8d 

00 

18 

2c 

00 

30 

09a 1 

s 

d2 

45 

41 

44 

20 

d4 

52 

41 

63 

0c 71 

: 

d0 

ed 

aS 

02 

f0 

9a 

38 

fB 

98 

0f 41 


18 

30 

fb 

a2 

04 

ca 

dB 

fd 

9a 

09a9 

: 

43 

4b 

3a 

00 

e6 

14 

a5 

14 

ee 

0c79 

3 

a2 

00 

e8 

e9 

01 

d0 

fb 

dB 

cb 

0f 49 


Be 

00 

18 

a2 

04 

ad 

00 

18 

10 

09b 1 

: 

85 

f a 

20 

d7 

0a 

20 

f 4 

0a 

40 

0cBl 

: 

8a 

c9 

2b 

b0 

Bb 

60 

a9 

00 

33 

0f 51 


4a 

0B 

4a 

4a 

66 

0B 

28 

66 

Bf 

09b9 

: 

a9 

iw 

a2 

10 

85 

8b 

85 

Bd 

f 3 

0cB9 

: 

85 

c6 

a5 

c6 

f0 

fc 

ad 

77 

50 

0f 59 


08 

ca 

d0 

ti 

a9 

0f 

Bd 

00 

82 

09c 1 

: 

85 

3b 

86 

af 

20 

c2 

0b 

f0 

al 

0c 91 

: 

02 

c9 

4e 

f0 

04 

c9 

59 

d0 

bf 

0f 61 


1B 

a5 

08 

60 

a5 

43 

85 

0a 

f 9 

09c9 

: 

2d 

08 

a0 

00 

91 

3b 

e6 

3b 

27 

0c99 

3 

ed 

4c 

d2 

ff 

aS 

43 

10 

10 

36 

0f 69 


a9 

00 

20 

6a 

05 

ea 

20 

98 

cl 

09dl 

3 

28 

30 

la 

20 

c2 

0b 

91 

Bb 

7e 

0cal 

: 

a9 

11 

85 

43 

a9 

00 

85 

44 

d6 

0f 71 


05 

10 

03 

4c 

68 

06 

aa 

ca 

c0 

09d9 

3 

e6 

Bb 

20 

c2 

0b 

91 

Bd 

e6 

26 

0c a9 

: 

ad 

00 

lc 

29 

9f 

8d 

00 

lc 

21 

0f 79 


86 

07 

a9 

02 

85 

31 

20 

98 

cl 

09el 

3 

8d 

20 

c2 

0b 

91 

ae 

cB 

d0 

e4 

0cbl 


a5 

00 

29 

06 

f 0 

11 

c9 

02 

24 

0f 81 


05 

85 

3a 

20 

98 

05 

85 

47 

32 

09e9 


f8 

e6 

af 

d0 

d7 

29 

lf 

aa 

f 3 

0cb9 

: 

d0 

03 

4c 

32 

03 

c9 

04 

d0 

94 

0f 89 


a0 

00 

20 

98 

05 

99 

00 

02 

66 

09f 1 

: 

ca 

86 

15 

4c 

Be 

0a 

20 

c2 

0c 

0cc 1 

: 

03 

4c 

cB 

05 

4c 

6c 

04 

4c 

Be 

0f 91 


c8 

d0 

f 7 

20 

8f 

f 7 

ad 

fe 

31 

09f 9 

: 

0b 

10 

07 

29 

3f 

85 

14 

4c 

fc 

0cc9 


9e 

f d 

09 

09 

0a 

0b 

a5 

44 

el 

0f 99 


02 

85 

7c 

a9 

00 

Bd 

fe 

02 

if 

0a01 

3 

c5 

09 

20 

c5 

0a 

20 

6c 

0b 

75 

0cdl 


4a 

4a 

4a 

4a 

4a 

aa 

bd 

2e 

6a 

0f al 


B5 

50 

20 

10 

f 5 

a2 

09 

50 

92 

0a09 


0d 

20 

d7 

52 

49 

54 

45 

20 

f 3 

0cd9 


03 

85 

0c 

a5 

77 

do 

02 

a5 

aS 

0fa9 


f e 

b8 

ca 

dB 

fa 

a9 

ff 

Bd 

e8 

0a 11 

: 

d4 

52 

41 

43 

4b 

3a 

00 

a5 

99 

0cel 

: 

43 

B5 

0a 

a0 

05 

84 

09 

a0 

57 

0f bl 


03 

lc 

ad 

0c 

lc 

29 

if 

09 

49 

0al9 

3 

fa 

20 

d7 

0a 

20 

f 4 

0a 

a9 

80 

0ce9 

: 

0b 

2c 

00 

lc 

30 

12 

ca 

d0 

ee 

0fb9 


C0 

Bd 

0c 

lc 

a9 

ff 

a2 

05 

f 6 

0a21 


00 

B5 

8b 

85 

3b 

B5 

8d 

a9 

el 

0cf 1 

3 

fB 

B8 

d0 

f 5 

a9 

04 

85 

7B 

e2 

0fcl 


8d 

01 

lc 

b8 

50 

fe 

b8 

ca 

62 

0a29 


10 

B5 

af 

a0 

00 

20 

c2 

0b 

le 

0cf 9 


a 9 

99 

20 

ba 

07 

4c 

9e 

fd 

18 

0fc9 


d0 

fa 

a0 

bb 

b9 

00 

bi 

50 

f 6 

0a31 


d0 

25 

bl 

3b 

0B 

20 

90 

0b 

41 

0d01 


a9 

5a 

85 

4b 

a9 

52 

B5 

24 

2e 

0f dl 


fe 

b8 

8d 

01 

lc 

c8 

dB 

f 4 

e4 

0a39 


e6 

3b 

28 

30 

f0 

bl 

8b 

20 

d8 

0d09 


20 

56 

f 5 

50 

fe 

b8 

ad 

01 

4a 

0fd9 


a5 

7c 

8d 

fe 

02 

bl 

30 

50 

0f 

0a41 


90 

0b 

e6 

Bb 

bl 

8d 

20 

90 

ab 

0dl 1 


lc 

c5 

24 

f0 

09 

c6 

4b 

d0 

cd 

0f el 


f e 

b8 

8d 

01 

lc 

cB 

dB 

f 5 

f 6 

0a49 


0b 

e6 

8d 

bl 

ae 

20 

90 

0b 

a5 

0dl9 

3 

ef 

a9 

0a 

4c 

69 

f 9 

a2 

00 

da 

0fe9 


50 

f e 

20 

aa 

fe 

ad 

00 

lc 

56 

0a51 


c8 

d0 

fB 

b6 

af 

d0 

d6 

10 

99 

0d21 


50 

fe 

bB 

ad 

01 

lc 

95 

25 


Bf f 1 


49 

08 

Bd 

00 

lc 

a9 

00 

8d 

cc 

0a59 


07 

29 

3f 

B5 

14 

4c 

2e 

0a 

e6 

0d29 


eB 

e0 

07 

90 

f 3 


97 

f 4 

de 

0f f 9 


fe 

02 

c6 

0a 

f0 

03 

4c 

cc 

dd 

0a61 


c9 

03 

d0 

06 

20 

c5 

0a 

4c 

92 

0d31 


a5 

16 

45 

17 

45 


45 

19 

72 

1001 


05 

4c 

9e 

fd 

48 

a9 

00 

aa 

bb 

0a69 


9b 

09 

c9 

04 

d0 

lc 

20 

c5 

76 

0d39 


45 

la 

f0 

07 

c6 

09 

d0 

C0 

22 

1009 


9d 

00 

02 

e8 

dB 

fa 

85 

3a 

b3 

0a71 


0a 

20 

6c 

0b 

0d 

20 

20 

d7 

0a 

0d41 


4c 

le 

f 4 

a5 

18 

c5 

06 

f0 

38 

1011 


a9 

07 

85 

47 

a9 

02 

85 

31 

ab 

0a79 


52 

49 

54 

45 

50 

52 

4f 

54 

ab 

0d49 


03 

4c 

0b 

f 4 

B5 

22 

a5 

16 

00 

1019 


68 

29 

7f 

aa 

ca 

86 

07 

4c 

el 

0aBl 


45 

43 

54 

20 

4f 

4e 

00 

4c 

81 

0d51 


a6 

17 

85 

12 

86 

13 

a6 

19 

f 4 

1021 


f 7 

05 

78 

a9 

15 

8d 

07 

lc 

00 

0a89 


ld 

0a 

4c 

f 4 

0b 

a9 

36 

B5 

3f 

0d59 


e8 

ea 

e4 

43 

90 

02 

a2 

00 

fa 

1029 


a9 

2d 

85 

06 

a9 

c2 

20 

c3 

44 

0a91 


01 

20 

6c 

0b 

0d 

d2 

45 

41 

le 

0d61 


a9 

02 

B5 

31 

4c 

5f 

04 

ca 

f 8 

1031 


07 

a2 

00 

ca 

d0 

fd 

a9 

bi 

88 

0a99 

: 

44 

45 

52 

52 

4f 

52 

20 

d4 

10 

0d69 


d0 

15 

4c 

3b 

04 

86 

07 

86 

de 

1039 


85 

06 

a9 

e0 

20 

c3 

07 

20 

c4 

0aal 


52 

41 

43 

4b 

3a 

00 

a5 

14 

30 

0d71 


19 

8a 

45 

18 

45 

17 

45 

16 

72 

1041 


98 

05 

85 

06 

20 

98 

05 

85 

64 

0aa9 


20 

d7 

0a 

20 

6c 

0b 

20 

d3 

B3 

0d79 

3 

B5 

la 

20 

34 

f 9 

a2 

5a 

20 

fB 

1049 


99 

e6 

99 

20 

98 

05 

Bd 

89 

bb 

0ab 1 

: 

45 

43 

54 

4f 

52 

3a 

00 

a5 

d9 

0d81 

: 

56 

f 5 

50 

fm 

b8 

ad 

01 

lc 

fb 

1051 


07 

20 

98 

05 

8d 

el 

06 

a5 

7a 

0ab9 


15 

20 

d7 

0a 

a9 

34 

B5 

01 

6a 

0d89 


d9 

24 

00 

d0 

da 

c8 

C0 

08 

95 

1059 


06 

B5 

0d 

20 

98 

05 

c9 

5e 

ff 

0ac 1 


78 

4c 

c5 

09 

a9 

36 

B5 

01 

56 

0d91 

3 

d0 

f0 

20 

56 

f 5 

50 

f e 

b8 

fb 

1061 


d0 

03 

4c 

95 

06 

a9 

00 

20 

67 

0ac9 

: 

a9 

lb 

Bd 

ii 

d0 

ad 

00 

dd 

bc 

0d99 

3 

ad 

01 

lc 

91 

30 

cB 

d0 

f 5 

79 

1069 


6a 

05 

a5 

06 

09 

80 

20 

6a 

6a 

0ad 1 


09 

03 

8d 

00 

dd 

60 

f 8 

aa 

d9 

0da 1 

3 

a0 

ba 

50 

fe 

b8 

ad 

01 

lc 

c7 

1071 


05 

20 

bB 

07 

a9 

00 

85 

77 

35 

0ad9 


f0 

08 

a9 

00 

18 

69 

01 

ca 

9e 

0da9 


99 

00 

01 

c8 

d0 

f 4 

20 

B0 

93 

1079 


85 

B3 

ur, 

10 

a9 

00 

85 

7B 

c5 

0ael 


d0 

f b 

d8 

48 

4« 

4a 

4a 

4a 

a3 

0dbl 

3 

f 8 

e6 

19 

a5 

19 

20 

6a 

05 

5e 

1081 


a9 

e2 

20 

c3 

07 

a2 

00 

B6 

ae 

0ae9 


20 

ed 

0a 

6B 

29 

Bf 

09 

30 

lf 

0db9 


ea 

a5 

3a 

20 

6a 

05 

a5 

38 

de 

1089 


09 

bd 

50 

01 

c9 

ff 

d0 

08 

95 

0af 1 

3 

4c 

d2 

ft 

58 

a2 

00 

B6 

c6 

83 

0dcl 

3 

20 

6a 

05 

b9 

00 

02 

20 

6a 

f 4 

1091 


eB 

e4 

43 

d0 

f 4 

4c 

lb 

07 

02 

0af 9 

3 

a9 

0d 

20 

d2 

ff 

8e 

04 

d4 

b9 

0dc9 


05 

cB 

d0 

f 7 

ad 

00 

lc 

49 

43 

1099 


a4 

7B 

b9 

db 

fe 

f0 

0a 

a9 

56 

0b01 

3 

Be 

02 

d4 

Be 

05 

d4 

a9 

08 

45 

0dd 1 


08 

8d 

00 

lc 

a9 

ff 

2c 

a9 

c2 

10al 


00 

9d 

50 

01 

e6 

09 

4c 

f 4 

76 

0b09 

3 

Bd 

03 

d4 

a9 

f0 

8d 

06 

d4 

bf 

0dd9 


90 

a6 

07 

09 

80 

9d 

SB 

01 

d8 

10a9 


06 

86 

07 

e8 

Ba 

09 

B0 

20 

04 

0b 11 

3 

a9 

0f 

8d 

1B 

d4 

Be 

17 

d4 

70 

0del 

3 

08 

a0 

00 

8c 

fe 

02 

28 

10 

8c 

10b 1 


6a 

05 

a6 

07 

4c 

f 4 

06 

a5 

f 8 

0b 19 

3 

a9 

11 

Bd 

04 

d4 

a9 

05 

85 

e8 

0de9 


07 

c6 

0a 

da 

03 

4c 

9e 

fd 

f 9 

10b9 


09 

f0 

17 

85 

77 

a5 

83 

38 

d4 

0b21 


b3 

a5 

c6 

d0 

le 

c6 

02 

a5 

de 

0df 1 

3 

Ba 

18 

65 

0C 

c5 

43 

90 

02 

lf 

10c 1 


f 9 

db 

f e 

85 

83 

b9 

db 

f e 

Bc 

0b29 

3 

02 

4a 

90 

f 5 

a5 

03 

Bd 

00 

de 

0df 9 

3 

e5 

43 

aa 

bd 

50 

01 

10 

05 

39 

10c9 


58 

20 

76 

d6 

78 

e6 

7B 

4c 

e3 

0b31 

3 

d4 

d6 

03 

dB 

ec 

e6 

b3 

a6 

75 

0B01 

3 

eB 

Ba 

4c 

58 

04 

4c 

dl 

03 

3c 

10dl 


e4 

06 

aS 

B3 

5B 

20 

76 

d6 

a0 

0b39 

1 

b3 

Be 

01 

d4 

eB 

e0 

le 

b0 

7e 

0e09 


a0 

00 

84 

0a 

a2 

00 

a5 

39 

3f 

10d9 


7B 

m6 

06 

a5 

06 

c 3 

99 

f0 

dl 

0b41 

* 

de 

90 

de 

a9 

00 

Bd 

04 

d4 

7B 

0c 1 1 

3 

99 

00 

02 

cB 

CB 

aS 

0a 

99 

59 

10el 


0f 

c9 

0C 

f0 

0b 

c9 

17 

fB 

33 

0b 49 

1 

a9 

Bb 

8ri 

11 

d0 

a0 

20 

ca 

25 

0el9 

3 

00 

02 

c8 

a5 

06 

99 

00 

02 

32 

10e9 


07 

c9 

24 

f0 

03 

4c- 

c9 

06 

c2 

0b51 

1 

dB 

fd 

88 

d0 

f a 

78 

ad 

77 

75 

0e21 

3 

cB 

a5 

13 

99 

00 

02 

C8 

a5 

32 

10f 1 


a9 

00 

20 

6a 

05 

a9 

01 

20 

d2 

0b59 

B 

02 

4B 

20 

90 

0b 

68 

c9 

5e 

71 

0e29 

3 

12 

99 

00 

02 

cB 

a9 

0f 

99 

91 

10f 9 


6a 

05 

ea 

20 

98 

03 

c9 

5e 

3a 

01.61 

» 

f<* 

01 

60 

6B 

6B 

20 

c5 

0a 

aa 

0e31 

3 

00 

02 

CB 

99 

00 

02 

cB 

b9 

3e 

1101 


d0 

03 

4c 

95 

06 

a5 

0d 

85 

e5 

0b69 

: 

4c 

ar 

08 

68 

85 

b2 

68 

B5 

b5 

0e39 

3 

fa 

01 

59 

fb 

01 

59 

fc 

01 

5a 

1109 


06 

ad 

00 

lc 

29 

10 

dB 

08 

dB 

0b71 

i 

bo 

aB 

00 

e6 

b2 

d0 

02 

b6 

d9 

Mi-4 1 

3 

59 

fd 

01 

99 

f 9 

01 

e6 

0a 

64 

1111 


a9 

04 

20 

6a 

05 

4c 

5e 

07 

4c 

0b 79 

3 

b3 

bl 

b2 

f0 

09 

20 

d2 

ff 

ac 

0e49 


a5 

Oa 

c5 

43 

90 

C0 

98 

48 

cf 

1119 


a5 

06 

09 

80 

20 

6a 

05 

a9 

dB 

0b81 

3 

e6 

b2 

d0 

f 5 

f0 

fl 

e6 

b2 

53 

0e51 

3 

a9 

02 

85 

31 

20 

30 

fe 

6B 

d3 

1121 


05 

B5 

0e 

a9 

e6 

20 

c3 

07 

2e 

0b89 

3 

d0 

02 

e6 

b3 

6c 

b2 

00 

85 

f 2 

0eS9 

: 

aB 

BB 

b9 

00 

02 

99 

45 

02 

ba 

1129 


a9 

e4 

20 

c3 

07 

e6 

06 

a5 

dB 

0b91 


02 

a9 

35 

85 

01 

a9 

0b 

8d 

0a 

0e61 

3 

BB 

d0 

f 7 

ad 

00 

02 

8d 

45 

d6 

1131 


06 

c5 

99 

fo 

17 

c9 

0c 

f0 

70 

0b99 

3 

00 

dd 

ad 

00 

dd 

10 

fb 

a9 

95 

0e69 

: 

02 

20 

f 5 

fd 

a9 

00 

85 

32 

cd 

1139 


0b 

c9 

17 

f0 

07 

c9 

24 

f0 

3e 

0bal 

3 

03 

Bd 

00 

dd 

a2 

04 

a9 

03 

le 

0e71 

3 

ad 

0C 

lc 

29 

lf 

09 

C0 

Bd 

a9 

1141 


03 

4c 

7c 

07 

a9 

03 

20 


72 

0b a9 

3 

46 

02 

6a 

46 

02 

6a 

4a 

4a 

85 

0e79 


0c 

lc 

a9 

ff 

8d 

03 

lc 

a9 

b2 

1149 


05 

4c 

bb 

06 

a9 

24 

20 

6a 

35 

0bb 1 

3 

ea 

Bd 

00 

dd 

ca 

d0 

ef 

a2 

56 

0e81 

8 

55 

Bd 

01 

lc 

a2 

03 

20 

24 

6c 

1151 


05 

4c 

95 

06 

a9 

00 

a2 

14 

f0 

0bb9 


01 

ca 

d0 

fd 

a9 

34 

85 

01 

67 

0e89 

3 

fe 

a9 

ff 

8d 

01 

lc 

a2 

05 

93 

1159 


9d 

50 

01 

ca 

10 

fa 

60 

85 

ld 

0 bc 1 

3 

60 

a9 

35 

B5 

01 

a9 

0b 

Bd 

98 

0e91 


50 

fe 

bB 

ca 

d0 

f a 

a2 

0a 

6b 

1161 


00 

58 

a5 

00 

30 

fc 

78 

60 

84 

0bc9 


00 

dd 

ad 

00 

dd 

10 

fb 

a9 

c5 

0e99 


a4 

32 

50 

fe 

bB 

b9 

00 

02 

a8 












0bd 1 

5 

03 

Bd 

00 

dd 

a2 

05 

ca 

ea 

aa 

0eal 


Bd 

01 

lc 

cB 

ca 

d0 

f 3 

a2 

17 













Listing zu »Express-Copy« (Schluß) 


118 


SONDERHEFT 














C 64 


TIPS&TRICKS 


Menü¬ 

gesteuertes 

Laden 

ln Zukunft laden Sie von Ihren Disketten 
nur noch ein einziges Programm: das 
Menü. Danach wählen Sie das gewünschte 
Programm direkt an und lassen es laden. 

K omfortables Laden von der Diskette. Ohne langes 
Suchen nach dem Lade-Programm. Keine Frage 
mehr, ob das Programm mit »,8« oder mit »,8,1« gela¬ 
den wird. Das Menü übernimmt diese Kleinigkeiten für Sie. 
Dabei benötigt es nur etwa sechs bis sieben Blöcke auf der 
Diskette (je nach Länge des Directories) und dürfte damit auf 
fast jeder Diskette Platz haben. Das Programm, das dieses 
Menü für Sie erstellt, ist der »MENUE-MAKER« (siehe 
Listing). 

Bedienungsanleitung: 

Sie laden den Menü-Maker und starten ihn mit RUN. Dann 
legen Sie die Diskette ein, für die Sie ein Menü erstellen wol¬ 
len (ein eventueller Schreibschutz ist zu entfernen), und wäh¬ 
len Menüpunkt 2. 

Das Programm lädt nun das Directory und zeigt das erste 
Programm auf der Diskette an. Wenn das Programm später 
mit »,8« geladen werden muß, dann drücken Sie F1, wenn Sie 
es mit »,8,1« laden müssen, dann drücken Sie F 3. Wenn es 
sich um ein Unterprogramm oder sonst ein Programm han¬ 
delt, das für sich selber nicht lauffähig ist, oder von einem 
Lader nachgeladen wird, dann drücken Sie F 5 (das Pro¬ 
gramm wird nicht ins Menü übernommen). 

Wenn Sie so alle Programme auf der Diskette durchgegan¬ 
gen sind, erscheint wieder das Hauptmenü. Wählen Sie nun 
Punkt 4 und das Disk-Menü wird zusammen mit der Datei auf 
Diskette gespeichert. Sollte Ihnen bei Punkt 2 ein Fehler 
unterlaufen sein, dann wählen Sie diesen nochmals an und 
gehen ihn wieder durch, bis alles richtig ist. Dann fahren Sie 
weiter, wie oben beschrieben. 

Zusatzfunktionen: Wenn Sie Menüpunkt 1 anwählen, kön¬ 
nen Sie sich das Directory anschauen. Diese Funktion hat 
keinen Einfluß auf Punkt 2 und 4. 

Durch Wählen von Punkt 3 erhalten Sie eine kurze Anlei¬ 
tung. Mit Punkt 5 können Sie das Programm beenden. Zur 
Sicherheit werden Sie noch einmal gefragt, ob Sie das Pro¬ 
gramm wirklich verlassen wollen. Wenn ja, wird ein Reset 
ausgeführt. Im anderen Fall sind Sie wieder im Hauptmenü. 
Punkt 1 und 3 verlassen Sie durch Drücken einer beliebigen 
Taste. 

Programmbeschreibung: 

Die wesentlichen Aspekte des Programms sind Menü¬ 
punkt 2 und 4. 

Zu 2: Aus dem Directory werden die Programmnamen ein¬ 
gelesen und der indizierten Variablen NA$ (IN) zugeordnet. 
Dann wartet das Programm, bis man eine der drei möglichen 
Rasten gedrückt hat. Wenn man F1 gedrückt hat, wird NUS 
(IN) gleich 8 gesetzt, damit das Programm später weiß, daß 
es dieses Programm mit »,8« laden muß. Entsprechend wird 
nach Drücken von F3 NUS (IN) auf 81 gesetzt. Wird F5 
gedrückt, so wird N A$ (IN) wieder gelöscht und der Zähler IN 
um 1 zurückgesetzt. Diese Prozedur wird fortgesetzt, bis alle 



Programme im Directory abgearbeitet sind und das Pro¬ 
gramm wieder zum Menü springt. 

Zu 4: Hier werden nun zuerst NAS (IN) (das den Programm¬ 
namen enthält) und NUS (IN) (das die Information enthält, ob 
mit »,8« oder mit »,8,1« geladen werden soll) als sequentielle 
Datei mit dem Namen »MSD« gespeichert. Ist dies gesche¬ 
hen, wird der Bildschirm gelöscht und folgendes darauf 
geschrieben (was man jedoch nicht sieht, da es in der Hinter¬ 
grundfarbe geschrieben wird): 

RUN 1600 (3 Zeilen Abstand) 

POKE 43.PEEK (61) + 1: POKE 44, PEEK (62) 

(2 Zeilen Abstand) 

SAVE "MENUE",8(4 Zeilen Abstand) 

POKE 43,1: POKE 44,8 (2 Zeilen Abstand) 

GOTO 1260 

Dann wird der Tastaturpuffer mit RETURN gefüllt, und 
durch einen END-Befehl fährt das Programm im Direktmodus 
fort. 

Auf dem Bildschirm stehen nun jedoch die oben genannten 
Befehle; der Tastaturpuffer ist mit RETURN gefüllt. Also führt 
der Computer diese Befehle aus. 

Durch die ersten beiden Befehle wird das ab Zeile 1610 
stehende Menü vom Rest des Programms getrennt (genaue 
Beschreibung siehe Sonderheft 1/85 unter Tips und Tricks: 
»AntiMERGE« von Rudolf Schmid-Fabian) und durch den 
SAVE-Befehl gespeichert. 

Ist dies geschehen, so gelangt der Computer zu den bei¬ 
den nächsten POKEs, die diese AntiMERGEroutine wieder 
aufheben. Danach wird durch GOTO 1260 wieder ins Menü 
des Hauptprogrammes eingestiegen. 

Damit wäre der Zweck dieses einfachen Programms schon 
erreicht, nämlich möglichst leicht und schnell ein Menü zu 
erstellen. Man muß also nur noch das Menü laden und mit 
Run sll/ten. Nachdem die Datei nachgeladen worden ist, 
kann man mit der Cursortaste und Return das zu ladende Pro¬ 
gramm wählen. 

Das Menü lädt das Programm ebenfalls in einem »simulier¬ 
ten« Direktmodus nach. Es wird einfach ein LOAD- und ein 
RUN-Befehl auf den Bildschirm geschrieben, der Tastatur¬ 
puffer mit RETURN gefüllt und das Menü mit NEW gelöscht 
(wobei zugleich auch in den Direktmodus gesprungen wird). 
Übrigens kann das Menü (ab Zeile 1610) den eigenen Vor¬ 
stellungen angepaßt werden. Man muß nur darauf achten, 
daß es nach dem STOP-Befehl in Zeile 1600 steht, da sonst 
die AntiMERGEroutine das Menü nicht sauber abtrennt. 

(S. Brülisauer/og) 


10 DIM NA*<144>,NU*(144) <206> 

20 PRINT CHR*(142)SPRINT CHR*(8> <154> 

30 GOTO 1020 <034> 

40 REM »** ANLEITUNG *** <052> 

50 PRINT"<CLR>“iSPRINT <170> 

60 PRINT SPC< 14) 11 <BLUE,RVSON>ANLEITUNG <123> 

70 PRINT <172> 

80 PRINT"CWHITEJ- DIESES PROGRAMM STELLT E 

IN MENU FUER <086> 

90 PRINT"<2SPACE>IHRE DISKETTEN HER UND SP 

EICHERT ES <001> 

100 PRINT"I2SPACEJAB. SIE MUESSEN ALSO NAC 

HHER NUR NOCH <0B8> 

110 PRINT"C2SPACETDAS MENU LADEN,DAS PROGR 

AMM DAS SIE <190> 

120 PRINT"{2SPACEJWUENSCHEN AUSWAEHLEN UND 

SCHON WIRD <115> 

130 PRINT"C2SPACEJES IN DEN RECHNER GELADE 

N. <055> 

140 PRINT <242> 

150 PRINT SPC(ll)"<BLUE,RVSON>VORGEHENSWEI 

SE <056> 

160 PRINT <006> 

170 PRINT"{WHITE>- WAEHLEN SIE ZUERST MENU 

PUNKT 2 UND <18B> 


»MENUE-MAKER« lädt Programme menügesteuert 
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180 PRINT"C2SPACE1BESTIMMEN SIE WELCHE PRO 
GRAMME INS 

190 PRINT"C2SPACE1MENU AUFGENOMMEN WERDEN 
SOLLEN. 

200 PRINT"C2SPACE1GLEICHZEITIG LEGEN SIE A 
UCH FEST,OB 

210 PRINT"C2SPACE1ES MIT ,8 ODER MIT ,8,1 
(MASCHINEN— 

220 PRINT"C2SPACE1PROBRAMME) GELADEN WERDE 
N SOLL. 

230 PRINT"- WENN SIE DIESE ARBEIT ERLEDIGT 
HABEN, 

240 PRINT"C2SPACE1SIND SIE AUTOMATISCH WIE 
DER IM HAUPT- 

250 PRINT“C2SPACE1MENU UND KOENNEN NUN MEN 
UPUNKT 4 WAEH—"; 

260 PRINT"C2SPACE1LEN UM DAS MENU ABZUSPEI 
CHERN ODER 

270 PRINT"C2SPACE1FALLS IHNEN BEI PUNKT 2 
EIN FEHLER 

2B0 PRINT"C2SPACE1UNTERLAUFEN IST,NOCHMALS 
VON VORNE 

290 PRINT”C2SPACE>BEGINNEN.CUP!" 

300 GET T*sIF T*=""THEN 300 
310 RETURN 
320 s 
330 s 

340 REM *** UEBERNEHMEN *** 

350 PRINT"CCLR >";s A*=""s T*=""sIN=0s X =0 s XX= 
0 

360 PRINT"CRVSON>F1 = , 8 CRVOFF,SPACE,RVSON 
JF3 = ,8,1CRVOFF,SPACE,RVS0N1F5 =_NICH 
T UEBERNEHMENCRVSON,DOWN!" 

370 CLOSE 2:OPEN 2,8,15 
380 OPEN 1,8,0,"*0" 

390 GET#1,A*,B* 

400 GETttl,A*,B* 

410 GETttl,A*,B* 

420 C=0 

430 IF A*<>"" THEN C=ASC(A*> 

440 IF B*<>"" THEN C=C+ASC<B*>*256 
450 GETttl,B*sIF ST<>0 THEN 540 
460 IF B*< >CHR*(34)THEN GOTO 450 
470 GETttl,B*sIF B*<>CHR*(341AND B*<>"<"THE 
N A*=A*+B*sGOTO 550 
4B0 IF B*OCHR*(34)THEN GOTO 470 
490 IF X=0 THEN X=1: A*=" " : GOTO 520 
500 A*=RIGHT*(A*,LEN(A*>-1> 

510 A*=LEFT*(A*,LEN(A*>>SPRINT A#;:GOSUB 5 
70 

520 GETttl,B*sIF B*=CHR*(32) THEN 520 

530 IF ST=0 THEN 400 

540 CLOSE 1sPRINT"<CLR>" 5 :RETURN 

550 IF LEN(A*)>20 THEN GOTO 540 

560 GOTO 470 

570 IN=IN+1:NA*(IN)=A* 

580 GET T*sIF T*=""THEN 5B0 
590 IF T*="CF1!"THEN NU*(IN)="B"sPOKE 214, 
PEEK(214)s POKE 211,20s SYS 58640SPRINT" 
CRVSON >, 8 CRVOFF!" 

600 IF T*= " CF 11"THEN RETURN 
610 IF T*="CF3!"THEN NU*(IN)="81"sPOKE 214 
,PEEK(214)sPOKE 211,20sSYS 58640:PRINT 
"CRVSON>,8,1 CRVOFF >" 

620 IF T*="CF3>"THEN RETURN 
630 IF T*="CF5>"THEN NA*(IN)=""sIN=IN-1:PO 
KE 214,PEEK(214>sPOKE 211,20:SYS 58640 
640 IF T*="CF5>"THEN PRINT"CRVSON>NICHT UE 
BERNOMMEN CRVOFF >":RETURN 
650 GOTO 580 
660 RETURN 
670 : 

680 REM *** DIRECTORY *** 

690 PRINT"CCLR>"; 

700 CLOSE 2:OPEN 2,8,15sX=0:A*=""sB*=""sC= 
0 s LE*="" 

710 OPEN 1,8,0,"*0" 

720 GETttl ,A*,B* 

730 GET#1,A*,B* 

740 GET# 1 ,A*,B* 

750 C=0 

760 IF A*<>"" THEN C=ASC(A*) 

770 IF B*< >"" THEN C=C+ASC(B*>*256 
780 IF X=0 THEN TB=2sG0T0 800 
790 TB=5 

800 PRINT MID*(STR*(C),2);TAB(TB )5 


< 164> 
<134> 
<032> 
<092> 
<016> 
<117> 
<070> 
<053> 

< 171> 

< 222 > 

<071 > 
<233> 
<017> 

< 114> 
<042> 
<052> 
<055> 

<037> 


<082> 

<1BB> 

< 020 > 

<097> 

< 107> 

< 117> 
<075> 
<044> 

< 121 > 
<138> 
<062> 

<155> 

<083> 

<014> 

<048> 

< 119> 
<026> 
<172> 
<070> 
<050> 

< 116> 
< 109> 
<109> 


<004> 
< 185> 


<085> 

<078> 

<014> 

< 163> 
<230> 
< 210 > 

< 1 38> 

< 137> 

< 120 > 

<096> 

<096> 

< 173> 

< 183> 
<193> 

< 151 > 

< 120 > 
< 199> 
<073> 
<080> 
<135> 


810 GETttl ,B*s IF STOB THEN 950 
B20 IF B*< >CHR*(34)THEN GOTO 810 
830 IF X=0 THEN PRINT"CRVSON!"; 

840 PRINT CHR*(34);SPRINT CHR*(34) 5 sPRINT" 
CDEL>"; 

850 GETttl,B*sIF B*<>CHR*(34)AND X=0 THEN P 
RINT"CRVSON>"B*;sGOTO 850s GOTO 870 
860 IF B*< >CHR*(34)THEN PRINT B*;sGOTO 850 
870 IF X=0 THEN PRINT"CRVSON!"; 

880 PRINT CHR*(34);SPRINT CHR*(34);sPRINT" 
CDEL!"; 

890 GETttl,B*sIF B*=CHR*(32> THEN 890 
900 PRINT TAB(24 );3 C*="" 

910 C*=C*+B*sGETttl,B*sIF B*<>"" THEN 910 
920 LE*=LEFT*(C*, 6 )sIF X =0 THEN X=lsGOSUB 
980SPRINT"C4LEFT,RVSON!"LE*s GOTO 940 
930 PRINT LE* 

940 IF ST=0 THEN 730 

950 PRINT"CLEFT1BLOCKS FREE"sCLOSE 1 

960 GET T*sIF T*=""THEN 960 

970 T*=""sRETURN 

980 LE=LEN(C*)sLE= 6 -LE 

990 FOR 1=1 TO LE:ZUS*=ZUS*+" "sNEXT 

1000 LE*=ZU*+LE# s RETURN 

1010 REM *** TITEL *** 

1020 POKE 53280,6 sPOKE 53281,14 s PRINT CHR 
*(142)CHR*(147); 

1030 PRINT 

1040 PRINT" CBLACK,SPACEISSSCSSPACElSSä SÄS 
b-b-b-b. aaac4SPACE>aa aac4SPACE>aa 
1050 PRINT" -B_S_B_a C3SPACEI BB8S BSBBBB8 BB8B C 
3SPACE>aa aac4SPACEiaa 
1060 print" aa aa aa aa aa"spc(6)"aa aac 2 s 

PACEiaa .B.B.C4SPACEIB.B. 

1070 PRINT" Q-S-C2SPACE> B.B.B. C2SPACE>BB aä"SPC 
(6) "aac2spACE>aa aa aac4SPACE>aa 
1080 PRINT" ääC3SPACEiaC3SPACE!äa aä"SPC(6 
) " BÄC5SPACE I .Q.B-B.B B.HC4SPACE >B.B. 

1090 print" aa M spc(7) n aa aaaac4SPACEiaac4s 
PACEiaaa aac4SPACEiaa 
1100 print" aa u spc(7)"aa aa n spc(6>"aacssPA 
cEiaa aac4SPACE>aa 

1110 print" aa"spc(7)-aa aa"spc(6 )"sscsspa 
ce!ss aac4SPACE>aa 

1120 print" aa"spc(7>"aa aaaaaaa srcsspace 

>Sä SBBaQBBB 

1130 print" aa M spc(7) u aa B.a.a.ssaa aacssPACE 
>.B.B.C2SPACE ! B-B-B-B-B.a 
1140 PRINTsPRINT 

1150 PRINT" C2SPACE>aaC5SPACElHäC2SPACE!HHH 
MC2SPACE!äHC2SPACE!H HHHHH. HHHH 
1160 PRINT" C25PACE1XXHC3SPACE1HHH. HRC2SPAC 
E!HH HH HC2SPACE1HHC4SPACE!HHC2SPACE! 
M 

1170 PRINT" C2SPACE!HH H M HH HRC2SPACE!Hä 
SRHC3SPACEIHHC4SPACE !äHC2SPACE!H 
1180 PRINT"C2SPACEIHRC2SPACEIHC2SPACElää M 
HHHHH B_H.HC3SPACEI BiCHH C2SPACEI H.HHH 
1190 PRINT"C2SPACEIHHC5SPACE!SH HMC2SPACE! 

aa aa ac2spACE>aac4sPACEiaa a 

1200 PRINT"C2SPACE!HHC5SPACEIHH HHC2SPACEI 
aa aac2SPACEia hhxhh aac2sPACEia 
1210 PRINT 

1220 PRINT"C4SPACE!"SPC(12)"SIMON (TEL 071 
/85 46 22)"; 

1230 PRINT" C5SPACE1WRITTEN BY"SPC(6)"8c 
1240 PRINT"C4SPACE>"SPC(12)"EDYC3SPACE>(TE 
L 071/85 50 46)"; 

1250 GET A*sIF A#=""THEN 1250 
1260 PRINT"CCLR!" 

1270 PRINT,"C2D0WN,WHITE,2SPACE >IHRE WAHL 

12B0 PRINT,"C2DOWN,2SPACE>1C2SPACEIDIRECTO 
RY EINLESEN" 

1290 PRINT,"C2D0WN,2SPACE!2 C2SPACE1UEBERNE 
HMEN" 

1300 PRINT,“C2D0WN,2SPACE13C2SPACE1INFO" 
1310 PRINT,"C2D0WN,2SPACE14C2SPACE!MENU SP 
EICHERN" 

1320 PRINT,"C2D0WN,2SPACE15C2SPACE1ENDE" 
1330 GET A* sIF A*=""THEN 1330 
1340 IF A*=" 1 "THEN GOSUB 690s GOTO 1260 
1350 IF A*="2"THEN GOSUB 350s GOTO 1260 
1360 IF A*="3"THEN GOSUB 50s GOTO 1260 
1370 IF A*="4"THEN GOTO 1460 
1380 IF A*= "5"THEN 1410 


<252> 

< 169> 

< 193> 

<20B> 

<092> 

<142> 

<233> 

<248> 
< 022 > 
<232> 

< 164> 

<028> 
<072> 
<081 > 
< 212 > 
<235> 
<228> 
<037> 
<071> 
<033> 
< 110 > 

< 020 > 

< 116> 

<225> 

< 164> 

< 109> 

< 129> 

<019> 

<037> 

<252> 

<006> 

<236> 

<226> 

<076> 

<23B> 


<096> 

<106> 

< 113> 

<025> 

< 101 > 

<040> 

< 137> 
<083> 

<218> 

< 157> 
<232> 

< 110 > 

<226> 

<018> 

<160> 

<033> 

<0B9> 

<046> 

<103> 

< 154> 
<061 > 
< 011 > 
<079> 


120 


SONDERHEFT 
















C 64 


TIPS&TRICKS 


1390 GOTO 1330 

1400 REM *** ENDE *** 

1410 POKE 214,23s PDKE 211,llsSYS 5B640SPRI 
NT"(RVSON,BLUE>SIND SIE SICHER ?(UP>" 
1420 GET T*sIF T*="N"THEN 1260 
1430 IF T*=" J"THEN SYS 6473B 
1440 GOTO 1420 

1450 REM »** DATEI SPEICHERN **» 

1460 CLOSE 15s OPEN 15,8, 15:PRINT#15, "S0.-MS 
D " s CLOSE 15:CLOSE 2sOPEN 2,B,2,"MSD,S 
,W" 

1470 Z=0 

14B0 Z»Z+1:IF Z=145 THEN CLOSE 2sG0T0 1530 
1490 IF NA*(Z)=""THEN CLOSE 2s GOTO 1530 
1500 PRINT#2,NA*(Z>jNU*(Z) 

1510 GOTO 1480 

1520 REM *** MENU SPEICHERN *** 

1530 CLOSE 15s OPEN 15,8,15s PRINT#15, "S0: ME 
NU":CLOSE 15:PRINT"(CLR.LIG.BLUE>";sP 
RI NT "RUN 1600" 

1540 PRINT"(3D0WNJPOKE43,PEEK(61)+1sPDKE44 
,PEEK <62>" 

1550 PRINT"<2D0WN>BAVE"CHR*(34)"MENU"CHR*( 
34) ",B" 

1560 PRINT"(4DOWN>P0KE43,1s P0KE44,8" 

1570 PRINT"C2D0WN>GOTO1260" 

1580 POKE 631,19sPOKE 632,13:P0KE 633,13:P 
OKE 634,13sPOKE 635,13sPOKE 636,13 
1590 POKE 637,13sPOKE 198,7:END 
1600 STOP 

1610 POKE 53280,14sP0KE 53281,6 
1620 PRINT"<CLR,9D0WN.WHITE,2D0WN,11SPACE > 
ICH LADE DIE DATEI":Z=0:DIM NA*(144>, 
NU* (144) 

1630 CLOSE 2s OPEN 2,8,2, "MSD,S,R“ 

1640 Z=Z+1 

1650 INPUT#2,NAA* 

1660 IF RIGHT* (NAA*, 1) ="8"THEN NA* (Z) =LEFT 
*(NAA*,LEN(NAA*)—1)s NU*(Z)=",8" 

1670 IF RIGHT*(NAA*,2)="81“THEN NA*(Z)=LEF 
T*(NAA*,LEN(NAA*)—2)sNU*(Z)=",B,1 
1680 IF ST=64 THEN CLOSE 2:GOTO 1700 
1690 GOTO 1640 
1700 PRINT"<CLR>";:Z=0 

1710 PRINT"(2D0WN,14SPACE)TJ(RVSON>MENU—MAK 
ER<RVOFF>H" 

1720 PRINT"(DOWN,15SPACEJBY SIMON S< EDY" 
1730 PRINT TAB(5>"I2D0WNICURS0R UP<4SPACE> 
NAECHSTES ELEMENT" 

1740 PRINT TAB(5)"<DOWN>CURSOR DOWN(2SPACE 
>VORHERIGES ELEMENT“ 

1750 PRINT TAB(5)"<DQWN>RETURN(7SPACE>WAEH 
LEN" 

1760 PR I NT " (HOME , 14D0WN , 4SPACE) 

.*.**■»*«- 1 -" 

1770 PRINT"(4SPACE} = (16SPACE>=" 

1790 POKE 214,15:P0KE 211,5sSYS 58640SPRIN 
T NA*(l)sZ=l 

1800 GET T*s IF T*=" "THEN 1800 
1810 IF T*="CUP>"THEN Z=Z+1sX=1sGOSUB 1B90 
s GOTO 1800 

1820 IF T*=" (DOWNVTHEN Z=Z-1 s X=2: GOSUB 18 
90s GOTO 1800 

1830 IF T*=CHR*(13)THEN GOTO 1850 
1840 GOTO 1800 

1850 PRINT"(CLR,BLUE>"j sPRINT"LOAD”CHR*(34 
)NA*(Z)CHR*(34)NU*(Z) 

1860 PRINT"C4DOWN JP0KE646,14s RUN" 

1870 POKE 631,19s POKE 632,13:P0KE 633,13sP 
OKE 198,3s NEW 
1880 REM *** UNTERPROG *** 

1B90 IF Z=0 THEN Z=1:RETURN 
1900 IF NA*(Z)=""AND X=2 THEN Z=Z+lsRETURN 
1910 IF Z=145 THEN Z=144sRETURN 
1920 IF NA*(Z)=""AND X=1 THEN Z=Z-lsRETURN 
1930 POKE 214,15s POKE 211,5sSYS 5B640SPRIN 
T"(16SPACE >" 

1940 POKE 214,15sPOKE 211,5s SYS 58640sPRIN 
T NA*(Z):RETURN 

6 G4'e*- 


<204> 

<217> 

<087 > 
<231 > 
<09B> 
<238> 
< 022 > 


<223> 
<201 > 
< 001 > 
<004> 
< 118> 
<245> 
<247> 


< 148> 

<054> 

<233> 
<021 > 

< 136> 

<214> 

< 022 > 

< 142> 
<042> 


< 174> 
< 101 > 
<184> 

< 192> 

<06B> 

< 134> 
<250> 
<074> 
<014> 

<059> 

<014> 

< 120 > 
< 180 > 
<127> 

< 129> 

< 141 > 
<032> 

< 1B2> 
<235> 

< 140> 

< 122 > 
<175> 

< 130> 

< 176> 
<082> 

< 124> 

< 115> 
<039> 

< 11B> 
< 200 > 
<025> 

< 1BB> 

< 126> 


»MENUE-MAKER« (Schluß). Beachten Sie bitte die 
Eingabehinweise auf Seite 6 


Filemanager 

schafft 

Übersicht 

Irgendwann steht wohl jeder C 64-Besitzer 
verzweifelt vor seiner Diskettensammlung 
und sucht ein bestimmtes Programm. 
Ohne eine entsprechende Liste kann das 
jedoch zu einer aufwendigen Suche füh¬ 
ren. »Filemanager« schafft hier wirkungs¬ 
voll Abhilfe. 

F ilemanager sortiert die Einträge nach drei Kriterien. 
Dadurch entfällt ständiges Umsortieren. »Filemanager« 
(Listing) läuft nicht mit Hypra-Load zusammen. 

Zum Programm 

Fangen wir mit der Speicheraufteilung an. »Filemanager« 
belegt den Speicherplatz von $C000 - $CFD9. Die Filena¬ 
men werden zwischen einer Variablen (Ugrenze) und $C000 
abgelegt. Außerdem existieren noch drei Zeigerstapel mit 
den Adressen $CFD2, $DFEC, $EFF6. Diese Zeigerstapel 
bestehfin auf 16-Bit Zeigern, die auf den Anfang der einzel¬ 
nen Fiio.iamen zeigen. Beim Sortieren werden nur diese Zei¬ 
gerstapel sortiert. Die Filenamen selber bleiben an ihrer 
Stelle im Speicher. Ein Filename ist folgendermaßen aufge¬ 
baut 
1. Byte: 

Bits 0-3: Länge-1 des eigentlichen Filenamens. 

Bits 4-5: Übertrag der Blocklänge der Files. 

Bits 6-7: Filetyp 00 = Prag, 01 = Seq., 10 = Usr, 

11 = Rel. 

2. Byte: 

Blocklänge des Files. 

Bytes 3-4: ID des Files 

Byte 5: Länge gesamtes File-Element: Name des 

Files. 

Belegte Speicherbereiche: 

(SCFC7) - $C000 = Bereich Speicherplatz für 
Filenamen 

$C000 - SCE8F = Maschinenprogramm 
$CE8F - SCFDB = Bereich Datentabellen und Variablen 
$CFDC -($CFD3) = Bereich Zeigerstapel für Blook 
$CFE6 - ($CFD5) = Bereich Zeigerstapel für Hook 
SCFFO -($CFD7) = Bereich Zeigerstapel für Alook 

Die Liste, die auf Diskette abgespeichert wird, hat folgen¬ 
des Format: 

Am Anfang stehen die Anzahl Byte, die für die gesamten 
Filenamen ohne Zeiger benötigt werden, danach kommt die 
Anzahl der Filenamen selber. Nach diesen 4 Byte folgt dieses 
periodische Format l-mal: 

2 Byte: l.ter Zeiger aus obersten Zeigerstapel- 

Ugrenze. 

2 Byte: l.ter Zeiger aus mittleren Zeigerstapel- 

Ugrenze. 

2 Byte: l.ter Zeiger aus unteren 

Zeigerstapel-Ugrenze. 

5-20 Byte: l.ter Filename der ungeordneten Liste. 
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Beim Laden wird eine noch im Speicher befindliche Liste 
nicht gelöscht, das heißt: es wird immer dazugeladen 
(Merge). Da auch die Zeiger mit gespeichert werden, ist eine 
Programmliste, die vor dem Speichern geordnet war, auch 
sofort nach dem Laden nach Blocklänge, alphabetischer Rei¬ 
henfolge sowie nach der ID sortiert. 

Befehle von »Filemanager«: 

Alle Befehle bis auf »@« werden zu Token umgewandelt und 
können somit abgekürzt werden. 

»@« 

»@« alleine liest den Fehlerkanal aus. Falls ein String folgt, 
wird dieser, falls er nicht mit »$« beginnt, über den Befehl¬ 
kanal zur Floppy gesendet. 

Beispiel: @ "$t* =seq" listet alle sequentiellen Files, die mit 
»t« beginnen. 

DMERGE 

Dmerge benötigt keine weiteren Parameter. Das 
Inhaltsverzeichnis der Diskette wird in der Liste aufge¬ 
nommen. 

HELP 

Keine Parameter. »Help« listet alle neuen Schlüssel¬ 
wörter bis auf »@«. 

SMERGE 

Wie »Dmerge«, außer daß nur die Filenamen in der Liste 
aufgenommen werden, die sich noch nicht in ihr befin¬ 
den. Dabei sind alle Vergleichkriterien relevant. Da die 
Liste bei jeden Filenamen neu durchsucht werden 
muß, ist »Smerge« besonders bei längerer Liste erheb¬ 
lich langsamer als »Dmerge«. »Smerge« eignet sich 
dazu, neue Programmnamen in der Liste aufzuneh¬ 
men, wenn sich schon einige Programmnamen der ein¬ 
gelegten Diskette in der Liste befinden. 

SLOOK 

Listet das gesamte Inhaltsverzeichnis der Diskette. 
Filenamen, die sich schon in der Liste befinden, wer¬ 
den revers gelistet. Beim Suchen in der Liste wird die 
ID nicht berücksichtigt, da das gleiche Programm 
schon auf einer anderen Diskette mit anderer ID sein 
kann. 

KILL 

»Kill« löscht die gesamte Liste. 

QUIT 

Quit schaltet »Filemanager« aus. »Filemanager« kann 
mit »SYS 50000« reaktiviert werden, ohne eine even¬ 
tuell im Speicher befindliche Liste zu löschen. 

MEM 

Mem gibt die Anzahl der noch freien Filenamen-Plätze, 
begrenzt durch die Anzahl Zeiger im Zeigerstapel, die 
Anzahl der in der Liste befindlichen Namen, den noch 
freien Speicherplatz für die Filenamen selber und den 
schon verbrauchten Speicherplatz an. Dann wird 
»Membot« und der Zeiger auf Anfang Filenamenspei¬ 
cher ausgegeben. 

MEMBOT Numerischer Ausdruck 

Setzen des Zeigers auf Anfang Filenamenspeicher auf 
einen neuen Wert, ohne die Liste zu zerstören. Mem¬ 
bot wird dazu genutzt, den Speicherplatz entspre¬ 
chend den Anforderungen zu bemessen. »Out of 
Memory Error« wird ausgegeben, wenn: 

- der Zeiger auf einen niedrigeren Wert gesetzt werden 
soll, als in 55/56 steht (Obergrenze Speicherplatz für 
Basic Interpreter). 

- dadurch der Zeiger auf das erste nicht genutzte Byte 
der Liste (Spointer) $0000 =Ogrenze überschreitet. 


Disk Numerischer Ausdruck 

»Disk« setzt die Nummer des aktuellen lEC-Peripherie- 
Gerätes. Nach dem Laden mit Basic-Lader wird auto¬ 
matisch Disk PEEK (186) - durchgeführt. Da es bei fal¬ 
scher Eingabe nicht zum Programmabsturz kommen 
kann, wird auf eine Überprüfung des Wertes verzichtet. 

MERGE String 

Laden einer auf Diskette gespeicherten Liste in den 
Speicher. 

PUT String 

Speichert die Liste auf Diskette. 

SORT 

Sortiert die Liste alphabetisch, nach ID und nach Block¬ 
länge. 

WRITE Numerischer Ausdruck String Filetyp String 

Liest die Blocklänge, den Namen, den Typ und die ID 
eines Programms in den Speicher ein. 

Dabei ist zu beachten, daß keine Verknüpfungen 
erlaubt sind wie zum Beispiel für String: 
"abc * +" cde". In diesem Fall muß man einer Stringva- 
riablen diesen Wert zuweisen: A$="abc" + "cde": 
Write12A$P "ID". 

Beim Filetyp genügt es, den ersten Buchstaben anzu¬ 
geben. In diesem Fall müssen aber zwei beliebige Zei¬ 
chen folgen. »Illegal Name Error« wird bei nicht eindeu¬ 
tigen Angaben sowie bei Verwendung des Jokers aus¬ 
gegeben. 

SCRATCH Parameter, wie Write 

Löscht alle Files, die der Eingabemaske entsprechen, 
aus der Liste. Verwendung des Jokers »*« ist erlaubt 
für alle Parameter. Statt eines Jokers kann für die ID ein 
Leerstring eingegeben werden, oder man kann die ID 
auch ganz weglassen. Beispiel: Es sollen alle Filena¬ 
men aus der Liste entfernt werden, die sich auf der Dis¬ 
kette mit der ID "AD" befinden und mit "File" begin¬ 
nen: 

Scratch* "File*"* "AD" 

Bei Verwendung des Jokers beim Filetyp müssen 
nicht, siehe letztes Beispiel, dem Joker zwei Zeichen 
folgen. Die Anzahl der gelöschten Namen wird ausge¬ 
geben. Da für gelöschten Namen die Blockverschiebe- 
Routine und die Zeigerkorrektur-Routine, die wie¬ 
derum dreimal die Verschiebe-Routine aufruft, benötigt 
wird, braucht »Scratch« meist sehr viel Zeit. 

BLOOK Numerischer Ausdruck - Numerischer Ausdruck 
Listetalle Namen, die der Eingabemaske entsprechen. 
Verkettung numerischer Ausdrücke ist nicht gestattet. 
Verwendung des Jokers ist erlaubt. Sonst Syntax, wie 
beim List-Befehl. 

Beispiel: alle Namen listen 
Blook oder Blook* 

ALOOK String - String 

Funktion und Syntax wie Blook 

ILOOK 

siehe Alook 

Bei sortierter Liste werden bei »Blook« nach Blocklänge, 
bei »Alook« nach alphabetischer Reihenfolge, bei »Hook« 
nach ID die Filenamen geordnet ausgegeben. 

»Filemanager« wird mit dem MSE eingegeben. Das fertige 
Programm sollte vor dem ersten Start gespeichert und wie¬ 
der geladen werden, da die Blockverschiebe-Routine des 
Basic-Laders den Zeiger auf Variablenanfang ($2d/$2) 
benutzt. 

(Christoph Deeken/gk) 


122 


SONDERHEFT 







C 64 


TIPS&TRICKS 


Die wichtigsten Unterprogramme 


ACOMPARE $C053 - $C09F 

Zeigerl und Zeiger3 zeigen auf den Anfang je eines 
Elementes. Diese Elemente werden auf die alphabeti¬ 
sche Reihenfolge hin verglichen. Das Ergebnis steht in 
C- und Z-Flag. 

ACTIVATE SC350 - $0366 

Aktivieren des File-Managers. 

BASOUT SC2DA - SC2ED 

Ausgabe eines Zeichens mit Verwaltung des Spalten¬ 
zählers Cursor. 

BCOMPARE $C09f - $C0B7 

Wie »Acompare«, nur Blocklänge als Kriterium 

BEFEHLCH $C3F2 - $C40C 

Öffnen des Befehls-Kanals der Floppy 

CHKFILMEN $C4AA - SC4D3 

Wie »Chknammem«, prüft auf Platz für Zeiger3 Ele¬ 
mente und (Zeigerl) Bytes. 

CHKNAMMEM $C499 - SC4D3 

Prüft auf Platz für Element in Akkul. Falls kein Platz vor¬ 
handen, dann »Out of memory error«, sonst Rückkehr 
in Hauptprogramm. 

COMPARE SC0D6 - $C115 

Wie »Acompare«, das Vergleichskriterium wird in die 
Bitmaske übergeben. Bit 3-0 sind Direktbits, Bit 7-4 
sind Vorrangsbits. Die Bits werden von links nach 
rechts geprüft. Wird ein gesetztes Vorrangsbit gefun¬ 
den, dann wird geprüft, ob das entsprechende Direkt¬ 
bit gesetzt ist. Falls das entsprechende Direktbit nicht 
gesetzt ist, wird das Vorrangsbit gelöscht, ansonsten 
wird die entsprechende Vergleichsroutine aufgerufen. 
Ist das Ergebnis Z=0, dann ist die Routine beendet. 
Sonst werden die entsprechenden Bits in Bitmaske 
gelöscht und der Vergleich beginnt von vorne, bis alle 
Bits gelöscht sind oder als Ergebnis bei einem Ver¬ 
gleich Z=0 herausgekommen ist. 

CRETURN SC2D2 - $C2ED 

Ausgabe von Carriage Return. 

DIROPEN $C3C8 - $C3F2 

Öffnen des Directories. Löschen des Status. 

DOPEN $C3CE - SC3F2 

Öffnen eines Lesefiles. Parameter für Filenamen in den 
Registern. 

ERRORD $0420 - $0430 

Auslesen des Fehlerkanals 

ERROROP $C6B0-$C6C0 

öffnen des Fehlerkanals der Floppy 

FIRSTNAM $0566 - $C5E1 

öffnet Directory und holt erstes Element nach Akkul. 

FLOPPY $C68F - $C6A8 

Gibt String, dessen Adressen in $22 und dessen 
Länge in Speicher steht, auf den Befehlskanal der 
Floppy aus. 

FLOPPYD $0692 - $C6A8 

Wie Floppy, nur ohne öffnen des Befehlskanals. 

FNADRESS $0018 - $0041 

Stackbot zeigt auf den Anfang eines Zeigerstapels. 
Index ist relativer Zeiger in diesem Stapel. Zuerst wird 
der Inhalt der Adresse »Stackbot +2index« nach 


Zeiger2 kopiert. Dann wird der Inhalt von Zeiger2 nach 
Zeigerl gebracht. 

GETAKKU $0623 - $C63C 

Holt das Element, auf das Zeigerl zeigt, nach Akkul. 

GETLONGI $0041 - $C04A 

Aus den ersten Byte von Akkul werden die Bits, in 
denen die Namenslänge-1 steht, herausgefiltert (and 
#%00001111) und in Namlogl gespeichert. 
Chklongl $0044 - $C04A 

Wie Getlongl, nur daß der Inhalt des A-Registers über¬ 
geben wird. 

GETLONG2 $C04A - $0053 

Wie Getlongl, nur mit Akku2 und Namlog2. 

Chklong2 $C04D - $0053 

Wie Getlong2, aber der Akkumulator wird übergeben. 

HOCHKOM $C2D8 - $C2ED 

Ausgabe eines Hochkommas. 

ICOMPARE $C0B7 - $0005 

Wie Acompare, ID als Kriterium. 

IECINI $0400 - $0416 

Wenn Status =0, dann Fehlerkanal auslesen und näch¬ 
sten Befehl interpretieren, sonst Byte vom lEC-bus 
holen. 

INTERRUPT $0345 - $C34C 

Einschalten des ROMs und Sprung zum Basic- 
Kaltstart. (Wird benutzt, um bei abgeschalteten ROM 
ein Abstürzen bei Drücken der Restore-Taste zu ver¬ 
meiden). 

KEYS" SC0D8 - $C1F4 

Das X-te Wort aus Newtab wird ausgegeben. 

LEERCHAR $C2D5 - $C2ED 

Ausgabe eines Spaces. 

MEMFREE $0479 - $0489 

Freier Speicherplatz nach Zeiger2. 

MEMFULL $0465 - $0479 

Voller Speicherplatz nach Hzeiger. 

NAMFREE $0489 - $0499 

Anzahl freier Elemente nach Zeiger4. 

NEWLIST $C1F4 - $0212 

List-Routine für die neuen Token. 

NEXTIND $C60B - $0623 

Index - lndex+1. Wenn Index = Counter, dann Z = 1. 

NEXTNAM $C57F - $C5E1 

Holt nächstes Element des Directories nach Akkul. 

PRINTHEX $0212 - $0246 

Die 16-Bitzahl A/X wird ausgegeben und bis zur 6. Zif¬ 
fer mit Spaces aufgefüllt. 

PRINTNAM $0246 - $C2AB 

Das Element in Akkul wird ausgegeben. Prüfung auf 
Stop-Taste. Warteschleife auf Tastendruck. 

ROMAUS $0000 - $C00C 

Umschalten auf RAM 

ROMEIN $C00C - $0018 

Umschalten auf ROM 

SETGRENZ $C5ED - $0602 

Füllt Akku2 mit $00 und Akku3 mit $ff. 

SETINDEX $C5EF - $C5F8 

Index =-1. 
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STORREAKKU $C4D3 - $C566 

Legt Element in Akkul in Liste ab. 

TAB SC2AB - $C2CB 

Ausgabe von Spaces bis zur nächsten Zehnertabula¬ 
tur. 

TCOMPARE SC0C5-$C0D6 

Filetyp als Kriterium, sonst wie »Acompare«. 
TOKENNEU $C115 - $C1D8 

Einbindung der neuen Token. 

TRANSFER $C2ED - $C345 und SC366 - $C3AE 

Der Bereich Zeiger2 bis Zeiger4 wird um Index Byte 
verschoben. Dabei wird Index als vorzeichenbehaftete 
Zahl benutzt. 

DECTXTPT $C6A8 - $C6B0 

Decrementiert den Programmzähler ($7a). 

INNAM SC6C0 - $C702 

Holt Filename vom Bildschirm nach Akkul. 

INGRENZ SC702 - $C73F 

Holt Grenzwerte vom Bildschirm nach Akku2 und 
Akku3. 

AI NACH A3 $C730 - SC73C 

Kopiert Akkul nach Akku3. 

INGRENZ6 SC73C - $C73F 
Sprungbefehl für Ingrenz. 

AI NACH A2 $C73F - $C74B 

Kopiert Akkul nach Akku2. 

INBL $C7A7 - $C7E0 

Holt Blocklänge vom Bildschirm nach Akkul. 

INID $C7EF - SC814 

Holt ID vom Bildschirm nach Akkul. 

ORDER SC844 - $C90C 

Sortiert aufsteigend den Zeigerstapel, auf den X/Y 
zeigt, nach den Kriterien, die in A stehen (Bitmaske). 
Z1Z3Z2Z4 SC90C - SC91D 

Kopiert Zeigerl nach Zeiger3 und Zeiger2 nach 
Zeiger4. 

CHKSTRDA $CB52 - $CB75 

Prüft nach den Kriterien in Bitmaske, ob sich das Ele¬ 
ment in Akkul in der Liste befindet und holt gegebe¬ 
nenfalls Adresse nach Zeiger 4. 

Gefunden: C=1. 

CORPTRSUB $CB9B - $CC5B 

Korrigiert alle Zeiger des Zeigerstapels, auf den X/Y 
zeigt, um den Wert Index, falls der betreffende Zeiger 
größer als Zeiger3 ist. Falls der betreffende Zeiger = 
Zeiger3 ist, dann wird dieser aus dem Stapel entfernt. 
CORPTRDE SCC5B - $CC64 

Decrementiert Zeiger für »Corptrsub«. 

CORPTRIM SCC64 - SCC70 

Incrementiert Zeiger für »Corptrsub«. Falls Ende 
erreicht, dann C=0. 

CORPTRUE $CC67 - SCC70 

Vermindert den Wert für den zu korrigierenden Zeiger¬ 
stapel um eine Page. 

CORPTR $CCFB - $CD10 

Korrigiert alle Zeigerstapel. »Corptrsub«. 

PARA SCD10 - $CD6D 

Holt gesamtes Element vom Bildschirm und setzt ent¬ 
sprechend der verwendeten Joker Bitmaske. 

Variable 


Zeiger 1 
Zeiger 2 
Zeiger 3 
Zeiger 4 


$61 

$63 

$65 

$FC 


Bitmaske $C34C - Bedeutung siehe »Compare« 
Namlongl $C34D - siehe Getlongl 
Namlong2 $C34E - siehe Getlong2 
Kursor $C34F - siehe Tab. 

Akku2 = $CEBO - $CEC4 -Speicherplatz für Uhtergrenz- 
wert beim Listen 

Akkul = $CEC4 - $CED8 -Hauptarbeitsspeicher für File¬ 
elemente 

Akku3 = $CED8 - $CEEC -Speicher für Obergrenzwert 
beim Listen 

Stackpnt $CE8F -Zwischenspeicher für Stackpointer 
Speicher $CE90, Speicher2 $CE91, Speicherplatz, um Zwi¬ 
schenwerte abzulegen, die nicht problemlos auf dem Stack 
zwischengespeichert werden können. 

Hzeiger $CE9 2 Hilfszeiger für Zwischenwerte 

Index $CE94 wird meist als Zähler verwendet. 

Stackbot $CE96 dient zur Übergabe der Anfangsadressen 
der Zeigerstapel an Unterroutinen. 

Ugrenze $CFC7 enthält Adresse auf Anfang Speicherbe¬ 
reich für Filenamen. 

Counter $CFD1 enthält Anzahl Namen in Liste 
Bpointer $CFD3 zeigt auf Ende Zeigerstapel für Blook 
Ipointer $CFD5 zeigt auf Ende Zeigerstapel für llook 
Apointer $CFD7 zeigt auf Ende Zeigerstapel für Alook 
Spointer $CFD9 zeigt auf Ende benutzter Bereich für 

Konstante 


Oyi^nz = $C000 Obergrenze für Speicherplatz File¬ 
namen. 

Nammax = 2053 maximale Anzahl Namen in Liste 

Datentabellen 


ZweiPot $CE98 - $CEA0 enthält 255-Zweierpotenzen 
Kurtable $CEA0 - $CEA8 Tabulatorstops für Tab 
Comtablo $CEA8 - $CEACLowbytes der Adressen der 
Vergleichsroutinen 

Comtabhi $CEAC - $CEB0 Highbytes - 
Newtab $CEEC - $CF99 Schlüsselworttabelle für 
Keystr. 

Newtable $CF47 - $CF99 Schlüsselworttabelle für neue 
Token 

Adrtable $CF99 - $CFBB Adressen-1 der Befehle 
Filetyp $CFBB - $CFBF Anfangsbuchstaben der File¬ 
typen 

Altwerte $CFBF - $CFC9 Anfangswerte für Counter, 
Bpointer, Ipointer, Apointer und Spointer 
Vecaltta $EBB4 Normale Adressen für Klartext in Token 
und umgekehrt, Statement ausführen. 

Vecneuta $CFC9 - $CFD1 Neue Werte für Klartext in 
Token.... 


Anfangsadressen der Befehle 


@ 

$C66A 

Quit 

$C3AE 

Kill 

$C3BB 

Omerge 

$C5E1 

Alook 

$C74B 

Blook 

$C7E0 

llook 

$C814 

Sort 

$C823 

Put 

$C9AE 

Merge 

$CA47 

Slook 

$CB75 

Membot $CC70 

Write 

$CD6D 

Scratch $CD95 

Merge 

$CE4E 

Help 

$CE6A 

Mem 

$CAF6 

Disk 

$CAED 
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C 64 


TIPS&TRICKS 


Vier Bild¬ 
schirme im 
Speicher 

100 Zeilen Listing auf Tastendruck abruf¬ 
bereit, vier Bildschirmseiten auf einmal, 
freie Verwendung in eigenen Programmen. 
Dies sind die unverkennbaren Vorzüge von 
»SCREENCOPY«, das sich gleichzeitig als 
Editierhilfe und Maskenutility präsentiert. 

D as Programm »SCREENCOPY« gibt dem Anwender 
die Möglichkeit, bis zu vier Bildschirmseiten auf 
Tastendruck in das RAM unter dem Interpreter-ROM 
($A000-$BFFF) zu verschieben, wieder in den aktuellen 
Bildschirm zu holen, oder auf Diskette zu speichern. Hierbei 
werden alle Farbinformationen (sowie Reverse-Darstellun- 
gen etc.) mitgespeichert. Ein Vorteil dieser Speicherbele¬ 
gung ist, daß die vier Bildschirmseiten keinen Basic-Speicher 
belegen. »SCREENCOPY« bietet mehrere Anwendungs¬ 
möglichkeiten. 

1. Beim Editieren von Programmen kann es sehr nützlich 
sein, wenn man wichtige Notizen schnell auf eine Bildschirm¬ 
seite schreibt und diese zwischenspeichert. Dies ist erheb¬ 
lich übersichtlicher als herumliegende Notizzettel, da die 
Informationen auf Tastendruck wieder zur Verfügung stehen. 
Oder kennen Sie auch folgendes Problem: Man listet das zu 
bearbeitende Programm und möchte dann einen Programm¬ 
abschnitt bearbeiten, der sich über mehrere Bildschirm¬ 
seiten erstreckt. Und dann wird gelistet, verbessert, ge¬ 
listet.gelistet. Hier ist die Lösung: Listen Sie die ersten 

25 Zeilen und drücken danach auf die Fl-Taste. Schon ist der 
erste Bildschirm gespeichert. Dasselbe passiert mit den je¬ 
weils folgenden 25 Zeilen, bis alle vier Funktionstasten mit je 
einem Bild belegt sind. Somit haben Sie einen Bildschirm mit 
100 (hundert!) Zeilen zur Verfügung. 

2. Man benützt das Programm zur Erstellung und Planung 
von Bildschirmmasken (Menüs, Untermenüs etc.). Ist die 
Maske (oder Masken) fertiggestellt, kann sie mittels CTRL- 
und entsprechender Funktionstaste auf Diskette gespei¬ 
chert werden. Das besondere hierbei ist, daß nicht nur ein 
Bildschirm, sondern zwei, drei oder vier Bildschirme zusam¬ 
men (unter einem Namen) gespeichert werden können. Um 
eine hohe Anwenderfreundlichkeit zu realisieren, wurden alle 
Funktionen auf die Funktionstasten (F1-F8) gelegt. Um die 
Bildschirmseiten auch innerhalb von Programmen verwen¬ 
den zu können, steht Ihnen das Programm »PAGE4« zur Ver¬ 
fügung. Der Aufruf der Bildschirme erfolgt über den SYS- 
Befehl. Das Programm »SCR.RENAME« eignet sich zur 
Änderung (vor dem Speichern!) der von »SCREENCOPY« 
festgelegten Bildschirmnamen. 

Bedienungsanleitung 


SCREENCOPY 

Tippen Sie das Programm aus Listing 1 mit dem MSE ab 
und speichern Sie es auf Diskette. Nach dem absoluten 
Laden (load "SCREENCOPY",8,1) geben Sie den Befehl 


»NEW« ein, um ein »OUT OF MEMORY« zu vermeiden. 
Gestartet wird es mit »SYS 49152«. Jetzt wird bei jedem 
Interrupt die Abfrageroutine der Funktionstasten durchlau¬ 
fen. Die Funktionstasten sind wie folgt belegt: 

Fl - der aktuelle Bildschirm wird in den Bereich ab $A000 
(Seite 1) kopiert. 

F3 - der aktuelle Bildschirm wird in den Bereich ab SA800 
(Seite 2) kopiert. 

F5 - der aktuelle Bildschirm wird in den Bereich ab $B000 
(Seite 3) kopiert. 

F7 - der aktuelle Bildschirm wird in den Bereich ab $B800 
(Seite 4) kopiert. 

Bevor Sie den aktuellen Bildschirm mittels F-Tasten unter 
das ROM kopieren, sollte die Cursorfarbe der Hintergrund¬ 
farbe angeglichen werden, da es sonst passieren kann, daß 
der Cursor mitkopiert wird. 

Möchten Sie den Bildschirm (unter dem ROM) wieder in 
den aktuellen Bildschirm verschieben, dann drücken Sie ein¬ 
fach die Taste »SHIFT« in Kombination mit der gewählten 
Funktionstaste (das entspricht den Tasten F2/F4/F6/F8). 
Nun zum Speichern: 

CTRL/FI - Wenn Sie diese Kombination drücken, wird die 
Seite 1 auf Diskette gespeichert. 

CTRL/F3 - Hier werden Seite 1 und 2 gespeichert. 
CTRL/F5 - Bildschirmseiten 1 bis 3 werden gespeichert. 
CTRL/F7 - Bildschirmseiten 1 bis 4 werden gespeichert. 

Wichtiger Hinweis: Wollen Sie jeden Bildschirm einzeln 
speichern, so ist das nur über die Kombination CTRL/FI 
möglich. Dabei ist zu beachten (wenn schon ein File 
»SCRFFN1« existiert), daß vor dem Speichern entweder mit 
dem beiliegenden Programm »SCR.RENAME« der Bild¬ 
schirmname geändert wird, oder aber der vorhandene Bild¬ 
schirm auf Diskette mit »OPEN1,8,15,"R:NEUER NAME= 
ALTER NAME:CLOSE 1« geändert wird, da sonst die Fehler¬ 
meldung »FILE EXISTS« auftritt. 

PAGE4 

Tippen Sie »PAGE4« (Listing 2) mit dem MSE ab. Um die 
Bildschirmseiten in Programmen zu verwenden, laden Sie 
das Programm »PAGE4« absolut (.8,1) und geben den Befehl 
»NEW« ein. Eine Initialisierung ist nicht erforderlich. Wenn 
PAGE4 von einem Basic-Programm nachgeladen werden 
soll, gehen Sie wie folgt vor: 

1) Laden Sie das Programm, welches »PAGE4« nachladen 
soll. 

2) Geben Sie »PRINT PEEK (45)« und »PRINT PEEK (46)« 
ein und notieren die angezeigten Werte. 

3) Am Anfang des Basic-Programms soll dann folgendes 
stehen: 

10 IF A = 0 THEN A = 1:L0AD "PAGE4",8,1 
15 IF A = 1 THEN A = 2:L0AD "...",8,1 
Nachladen der gespeicherten Bildschirme 
20 P0KE 45,X: P0KE 46,Y : CLR 
Die Werte X/Y sind die Zahlen, die in den Zellen (45) und 
(46) standen. 

Der Aufruf der gewünschten Seite erfolgt durch: SYS 
828,n (n = erste bis vierte Bildschirmseite). Das Programm 
»SCREENCOPY« wird natürlich nicht mehr benötigt. 

SCR.RENAME 

Mit diesem Programm (Listing 3) kann man die 
Bildschirmnamen vor der Speicherung ändern. Zu beachten 
ist hier, daß der Name max. 8 Zeichen lang sein darf, da die 
SAVE-Routinemitdiesem Wertarbeitet. DerBildschirmnamel 
kann mit diesem Programm direkt geändert werden. Bei 
Änderung von Namen 2 muß die Variable in der Zeile 65 in 
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C 64 


»N2« umgeändert werden. Entsprechendes gilt für Name3 
- »N3«, Name4 - »N4«. Es gibt noch 2 Alternativen: 

1) Ändern der Namen auf Diskette 

2) Die Namen mit einem Maschinensprachenmonitor über¬ 
schreiben. Sie stehen ab der Adresse $C217 (49687) im 
Arbeits-Speicher. 

Programmbeschreibung: 

a) SCREENCOPY: Das Programm »SCREENCOPY« (U- 
sting 4) belegt den Speicherbereich $C000(49152)- 
$0237(49719). Der Interrupt-Vektor $314/15 zeigt auf die 
Tastaturabfrage der Routine. Die Konstante $A000 steht in 
der Zeropage-Adresse $B3/4. Sie dient als Zeiger der Start¬ 
adresse des zu speichernden Bereiches. Die Zelle $02 wird 
als Zähler benutzt, damit bei gedrückter Kombination 
CTRUF-Taste nicht bei jedem Interrupt die SAVE-Routine 
angesprungen wird. In den Zellen $FB-$FE werden jeweils 
die Start- und Endadressen für die Kopier-Routine über¬ 
geben. 

b) PAGE4: Das Programm »PAGE4« (Listing 5) liegt im 
Bereich $0330(828) bis $03EE(1066). Hier wird mit voller 


Absicht mit dem SYS-Befehl gearbeitet, damit keine Vektoren 
geändert werden. Es verträgt sich mit allen Programmen 
(Programmerweiterungen), die den Kassettenpuffer nicht für 
sich beanspruchen. Beim SYS-Aufruf wird zuerst auf nach¬ 
folgendes Komma geprüft und der Wert geholt. Ist dieser 
größer als 4, wird die Fehlermedlung »ILLEGAL QUANTITY« 
ausgegeben. 

c) SCR.RENAME: Die vordefinierten Bildschirmnamen 
sind: 

Seite 1: »SCREEN-1«, Seite 2: »SCREEN-2« 

Seite 3: »SCREEN-3«,Seite 4: »SCREEN-4« 

NI: Adresse von Name 1($C217-49687) 

N2: Adresse von Name 2 

N3: Adresse von Name 3 

N4: Adresse von Name 4 

N$: Bildschirmname 

N: Länge des Bildschirmnamens 

I: Laufvariable bei der Fbr-Next-Schleife 

(W.Schneider/og) 


Programm 

screencopy. 

obj 

C000 

c237 

C0a8 

3 

60 

85 

fd 

84 

fe 

20 

04 

c2 

61 

cl70 

3 

a9 

36 

85 

01 

a2 

08 

20 

ba 

16 



















c9 


























































C0b8 

3 

0f 

c9 

05 

f0 

26 

c9 

06 

f0 

b6 

cl80 

8 

bd 

ff 

a9 

b3 

a2 

00 

a0 

aB 

lc 












C 0C 0 

8 

3d 

c9 

03 

f0 

54 

4c 

31 

ea 

03 

Cl88 

3 

20 

da 

ff 

68 

85 

01 

58 

4c 

7c 

C000 

: 

78 

a9 

19 

a0 

C0 

Bd 

14 

03 

76 

c0c8 

3 

a5 

01 

48 

a9 

36 

85 

01 

20 

09 

Cl90 

3 

31 

ea 

78 

a5 

01 

48 

a9 

36 

6f 

c00B 

: 

8c 

15 

03 

5B 

a9 

00 

a0 

a0 

49 

C0d0 

3 

34 

cl 

85 

fb 

a0 

a0 

84 

fc 

el 

Cl98 

3 

85 

01 

a2 

08 

20 

ba 

ff 

a9 

73 

C010 

3 

85 

b3 

84 

b4 

a9 

05 

85 

02 

03 

c0d8 

: 

20 

04 

C2 

20 

3d 

cl 

,10 

a4 

5d 

cla0 

3 

08 

a2 

lf 

a0 

c2 

20 

bd 

ff 

f 9 

C018 

3 

60 

ad 

Bd 

02 

4a 

b0 

19 

4a 

16 

C0£?0 

3 

4c 

46 

cl 

a5 

01 

48 

a9 

36 

da 

claB 

3 

a9 

b3 

a2 

a7 

a0 

af 

20 

dB 

82 

c020 

: 

4a 

b0 

18 

a5 

cb 

c9 

04 

f0 

7a 

c0e8 

3 

85 

01 

20 

34 

cl 

85 

fb 

a0 

f 6 

clb0 

: 

ff 

68 

85 

01 

58 

4c 

31 

ea 

e7 

C02B 

3 

le 

c9 

05 

f0 

2e 

c9 

06 

f0 

b5 

C0f0 

3 

a8 

84 

fc 

20 

04 

c2 

20 

3d 

6f 

clbB 

3 

78 

a5 

01 

48 

a9 

36 

B5 

01 

bl 

C030 

3 

3e 

C9 

03 

♦ 0 

4e 

4c 

31 

ea 

14 

c0f 8 

3 

cl 

a0 

ac 

4c 

46 

cl 

a5 

01 

c9 

ClC0 

3 

a2 

08 

20 

ba 

ff 

a9 

08 

a2 

78 

C03B 

3 

4c 

b3 

C0 

c6 

02 

a5 

02 

f0 

9e 

C100 

: 

48 

a9 

36 

85 

01 

20 

34 

cl 

cl 

clcB 

3 

27 

a0 

c2 

20 

bd 

ff 

a9 

b3 

de 

C040 

3 

03 

4c 

31 

ea 

4c 

53 

cl 

20 

ba 

c 108 

- 

85 

fb 

a0 

b0 

B4 

fc 

20 

04 

82 

cld0 

: 

a2 

7b 

a0 

b7 

20 

dB 

ff 

68 

eB 

C048 

3 

97 

C0 

85 

fd 

a0 

a0 

84 

fe 

7f 

cl 10 

3 

c2 

20 

3d 

cl 

a0 

b4 

4c 

46 

d7 

cldB 

3 

85 

01 

58 

4c 

31 

ea 

78 

a5 

15 

c050 

3 

20 

04 

C2 

20 

a0 

C0 

a0 

a4 

03 

cl 18 

s 

cl 

a5 

01 

48 

a9 

36 

85 

01 

5a 

cle0 

• 

01 

48 

a9 

36 

85 

01 

a2 

08 

31 

c05B 

3 

4c 

a9 

C0 

20 

97 

C0 

85 

fd 

3e 

cl20 

s 

20 

34 

cl 

85 fb 


iQ 

84 

2c 

c le8 


20 

ba 

ff 

a9 

08 

a2 

2f 

a0 

2e 

C060 

3 

a0 

aB 

84 

fe 

20 

04 

c2 

20 

c3 

cl28 

3 

fc 

20 

04 

c2 

20 

3d 

cl 

a0 

c2 

Clf0 

s 

c2 

20 

bd 

ff 

a9 

b3 

a2 

ff 

f 4 

C06B 

3 

a0 

C0 

a0 

ac 

4c 

a9 

C0 

20 

7b 

cl30 

3 

bc 

4c 

46 

cl 

a9 

00 

a0 

04 

01 

cif B 

; 

a0 

bf 

20 

dB 

ff 

68 

85 

01 

f 6 

C070 

3 

97 

C0 

85 

fd 

a0 

b0 

84 

fe 

28 

cl38 

3 

85 

fd 

84 

fe 

60 

a9 

00 

a0 

51 

c200 

3 

58 

4c 

31 

ea 

a2 

04 

a0 

00 

f 5 

c078 

3 

20 

04 

c2 

20 

a0 

C0 

a0 

b4 

4b 

cl40 

3 

d8 

85 

fd 

84 

fe 

60 

85 

fb 

ec 

c20B 

3 

bl 

fb 

91 

fd 

cB 

d0 

f 9 

e6 

a4 

C0B0 


4c 

a9 

C0 

20 

97 

C0 

85 

fd 

66 

cl48 

3 

84 

fc 

20 

04 

c2 

68 

85 

01 

5a 

c210 

3 

fc 

e6 

fe 

ca 

d0 

f 2 

60 

53 

65 

c0BB 

s 

a0 

b8 

84 

fe 

20 

04 

c2 

20 

f 3 

Cl50 

3 

4c 

31 

ea 

a9 

05 

85 

02 

a5 

f 4 

C21B 

3 

43 

52 

45 

45 

4e 

20 

31 

53 

d0 

C090 


a0 

C0 

a0 

bc 

4c 

a9 

C0 

a9 

b8 

cl5B 

3 

cb 

c9 

04 

f0 

0f 

c9 

05 

fe 

5c 

c220 

: 

43 

52 

45 

45 

4e 

2d 

32 

53 

44 

C09B 

: 

00 

a0 

04 

85 

f b 

B4 

fc 

60 

33 

C160 

3 

31 

c9 

06 

f0 

53 

c9 

03 

f0 

87 

c22B 

: 

43 

52 

45 

45 

4e 

2d 

33 

53 

50 

C0a0 

3 

a9 

00 

a0 

d8 

85 

f b 

84 

fc 

dl 

Cl68 

3 

75 

4c 

31 

ea 

78 

a5 

01 

4B 

f 6 

c230 

8 

43 

52 

45 

45 

4e 

2d 

34 

ff 

b5 


Listing 1. »SCREENCOPY«, ein Programm zur Verwaltung von bis zu 4 Bildschirmseiten. 
Bitte beachten Sie die Eingabehinweise auf Seite 7. 


pragramm x page4.obj 033c 03ee 


033c 

s 

20 

fl 

b7 

B0 

01 

f0 

0f 

ea 

f 4 

0344 

g 

02 

f0 

26 

e0 

03 

f0 

3d 

e0 

d2 

034c 

: 

04 

f0 

54 

4c 

4B 

b2 

a5 

01 

la 

0354 

g 

48 

•9 

36 

85 

01 

20 

bf 

03 

cl 

035c 

g 

85 

fb 

aB 

a0 

84 

fc 

20 

db 

83 

0364 

g 

03 

20 

c7 

03 

a0 

a4 

4c 

d0 

cc 

036c 

I 

03 

aS 

01 

48 

a9 

36 

85 

01 

f0 

0374 

e 

20 

ba 

03 

85 

fb 

a0 

a8 

84 

d5 

037c 

g 

fc 

20 

db 

03 

20 

c7 

03 

a0 

6d 

0384 

X 

ac 

4c 

d0 

03 

aS 

01 

48 

a9 

c2 

038c 

: 

36 

B5 

01 

20 

be 

03 

85 

fb 

db 

0394 

c 

a0 

b0 

84 

fc 

20 

db 

03 

20 

7a 

039c 

x 

c7 

03 

a0 

b4 

4c 

d0 

03 

a5 

46 

03a4 

: 

01 

48 

a9 

36 

85 

01 

20 

be 

59 

03ac 

: 

03 

85 

fb 

a0 

b8 

B4 

fc 

20 

69 

03b 4 

e 

db 

03 

20 

c7 

03 

a0 

bc 

4c 

d3 

03bc 

X 

d0 

03 

a9 

00 

,iW 

04 

85 

fd 

b4 

03c 4 

X 

84 

fa 

60 

a9 

00 

a0 

dB 

85 

88 

03cc 

X 

fd 

84 

fe 

60 

Ob 

fb 

B4 

fc 

lb 

03d4 

g 

20 

db 

03 

60 

Sb 

0! 

60 

a2 

d7 

03dc 

X 

04 

aB 

00 

bl 

fb 

91 

fd 

c8 

3c 

03e4 

g 

d0 

f 9 

t?6 

fc 

e6 

fe 

ca 

dB 

3d 

03ec 

X 

f 2 

60 

00 

00 

00 

00 

00 

00 

0f 


Listing 2. »PAGE4« zum Einbauen in 
Ihre eigenen Programme 


0 REM *** SCR.RENAME *** 

<051 > 

1 REM DAZU ZEILE 65 ABAENDERN ! ! 

2 REM NAME1 = NI * NAME2 = N2 

<246> 

NAME3 = N3 * NAME4 = N4 

<244> 

3 REM * 

< 146> 

4 s 

<236> 

5 s NI=49686 : N2=N1+B 

<035> 

10 N3=N2+8 s N4-N3+B 

< 132> 

15 : 

<247> 

20 PRINT CHR#<147> SPRINT 

< 011 > 

25 PRINT" SCREEN-NAME (MAX.B STELLEN):" 

<157> 

30 PRINT SPRINT " "5 

<087 > 

35 : 

< 011 > 

40 INPUT N* :N=LEN(N*> 

<036> 

45 IF N>B THEN 20 

<033> 

50 IF N<B THEN N*= N#+CHR*<32> :N=N+1 

: 

GOTO 50 

< 002 > 

55 : 

<031> 

60 FÜR 1=1 TO N 

<045> 

65 : POKE Nl + I, ASC (MID# <N*, I , 1) > 

<150> 

70 NEXT 

< 0 S 0 > 

75 END 

<077> 

© G4'et- 

Listing 3. »SCR.RENAME« zum Umbenennen der 
Bildschirme vor dem Speichern 
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TIPS&TRICKS 


10 sys 9*4096 

12 .opt oo 

13 *= *c000 

14 , 

20 -flag = * 028 d 

21 taste = *cb 

22 irq = *ea31 

29 ;- 

30 ; 

110 sei 

111 1 da #<beg sldy #>beg 

112 sta *0314 :sty *0315 

113 cli 

115 lda #*00 :1dy #*a0 

116 sta *b3 :sty *b4 


Sprofi-ass aufruf 
;startadresse 


117 lda #5 

122 rts 

123 ;- 

130 ; 

131 beg lda -flag 

132 : 

133 : 

134 : 


:sta *02 


; init 


;*a000 als 
5 zeiger f.save 
scounter 


jshift/etrl—If lag 

lsr sbcs tshift 
lsr 

lsr :bcs tctrl 
lda taste 

cmp #4 :beq storel ;ftaste gedr. 

cmp #5 :beq store2 

cmp #6 :beq store3 

cmp #3 :beq store4 

jmp irq 


135 : 

140 s 
145 s 
150 : 

155 : 

160 : 

163 ;- 

164 ; 

170 tshift jmp shift ;in akt.bildsch. 

171 tctrl dec *02 ;counter =0 

172 lda *02 :beq contr;dann save 

190 jmp irq ;sonst weiter irq 

200 contr jmp Ctrl 
220 ; 

221 ;================================== 

222 ;storel—4 => der aktuelle bildschirm 
wird im ram <a000-bfff> abgelegt . 


227 

9 1—1 ^ - - 

5 





230 

storel 

jsr 

upl 

s sta 

*fd 

232 

: 

ldy 

#*a 0 

ssty 

*fe 

240 

s 

jsr 

copy 



245 

: 

jsr 

up 2 

s ldy 

#*a4 

255 

: 

jmp 

cop 



269 

5 





270 

store 2 

jsr 

upl 

s sta 

*fd 

275 

: 

ldy 

#*a 8 

ssty 

*fe 

285 

: 

jsr 

copy 



290 

s 

jsr 

up 2 

sldy 

#*ac 

300 

s 

jmp 

cop 



314 

5 





315 

store3 

jsr 

upl 

s sta 

*f d 

320 

: 

ldy 

#*b 0 

s sty 

*fe 

330 

8 

jsr 

copy 



335 

8 

jsr 

up 2 

sldy 

#*b4 

345 

s 

jmp 

cop 



359 

! 





360 

store4 

jsr 

upl 

s sta 

*fd 

365 

8 

ldy 

#*b 8 

s sty 

»•fe 

375 

8 

jsr 

copy 



380 

8 

jsr 

up 2 

sldy 

#*bc 

390 

i 

jmp 

cop 




410 ;- 

450 upl lda #*00 sldy #*04 ;*0400 nach 

455 : sta *fb :sty *fc ;*fb/c 

460 : rts 

464 5 

465 up2 lda #*00 sldy #*d 8 ;*d800 nach 

470 : sta *fb ssty *fc ;*fb/c 

475 s rts 

Listing 4. Source-Code-Listing zu »SCREENCOPY« 


479 j 

480 cop 
485 s 
490 : 


sta *f d ssty *fe 
jsr copy 
jmp irq 


491 

s 



— 

492 

shi-ft 

lda 

taste 


493 

8 

cmp 

#4 s beq 

holel 

494 

8 

cmp 

#5 sbeq 

hol e 2 

495 

: 

cmp 

#6 s beq 

hol e3 

496 

8 

cmp 

#3 s beq 

hole4 

497 

a oa 

s 

jmp 

irq 



499 

500 

501 
irm 

502 


5 

5 =“=====- 
;holel-4 
wird in d 


=> der gespeicherte bildsch 
■aktuellen zurueckkopiert. 


505 

holel 

lda 

*01 

s pha 


510 

8 

lda 

#*36 

s sta 

*01 

515 

8 

jsr 

up3 

ssta 

*fb 

520 

8 

ldy 

#*a 0 

ssty 

*fc 

525 

8 

jsr 

copy 



530 

: 

jsr 

up4 

sldy 

#*a4 

540 

8 

jmp 

cop 2 



545 

5 





555 

hole 2 

lda 

*01 

s pha 


560 

8 

lda 

#*36 

s sta 

*01 

565 

8 

jsr 

up3 

s sta 

*-f b 

570 

8 

ldy 

#*a 8 

ssty 

*fc 

580 

8 

jsr 

copy 



585 

8 

jsr 

up4 

s ldy 

#*ac 

595 

8 

jmp 

cop 2 



600 

5 





610 

hole3 

lda 

*01 

s pha 


615 

s 

lda 

#*36 

ssta 

*01 

620 

s 

jsr 

up3 

ssta 

*-fb 

625 

s 

ldy 

#*b 0 

ssty 

*fc 

633 

s 

jsr 

copy 



640 

s 

jsr 

up4 

s ldy 

#*b4 

650 

s 

jmp 

cop 2 



655 

5 





665 

hole4 

lda 

*01 

s pha 


670 

s 

lda 

#*36 

ssta 

*01 

675 

s 

jsr 

up3 

s sta 

*fb 

680 

s 

ldy 

#*b 8 

s sty 

*fc 

690 

s 

jsr 

copy 



695 

: 

jsr 

up4 

s 1 dy 

#*bc 

705 

s 

jmp 

cop 2 




709 

710 
720 
725 
730 

734 

735 
740 
745 

749 

750 
755 
765 
770 

775 

776 

780 

781 

782 

783 

784 

785 

786 
78B 

789 

790 


;■ 


up3 lda #*00 sldy #*04 ;*0400 nach 

s sta *fd ssty *fe ;*fd/e 

s rts 
5 

up4 lda #*00 sldy #*d 8 ;*dB00 nach 

s sta *fd ssty *-fe ;*fd/e 

s rts 
5 

cop 2 sta *fb ssty *fc 

s jsr copy 

s pla ssta *01 

s jmp irq 

Ctrl lda #5 ssta *02 ;setze zaehler 
s lda taste ;Ctrl/f-taste 

s cmp #4 sbeq savel ; gedrueckt"?" 
s cmp #5 s beq save2 

s cmp #6 s beq save3 

s cmp #3 s beq save4 

s jmp irq 


================== 


; save 1-4 =>die bildschirme unter 
dem rom werden abgespeichert. 
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TIPS&TRICKS 


C 64 



791 

savel 

sei 




792 

: 

lda 

$01 

s pha 


794 

: 

lda 

#$36 

ssta 

$01 

795 

: 

ldx 

#8 

s jsr 

$ffba 

796 

: 

lda 

#8 



797 

: 

ldx 

#<nal 

sldy 

#>nal 

79B 

s 

jsr 

$ffbd 



799 


lda 

#$b3 



800 

: 

ldx 

#$00 

s ldy 

#$a 8 

801 

: 

jsr 

$f f dB 



802 

s 

pla 

ssta $01 


803 

: 

cli 

s jmp 

irq 


805 

; 





810 

save 2 

sei 




811 

s 

lda 

$01 

s pha 


812 


lda 

#$36 

s sta 

$01 

813 

: 

ldx 

#8 

s jsr 

$ffba 

814 


lda 

#8 



815 

: 

ldx 

#<na 2 

sldy 

#>na 2 

816 

3 

jsr 

$ffbd 



817 


lda 

#$b3 



818 


ldx 

#$a7 

s ldy 

#$af 

819 

: 

jsr 

$ffd 8 



820 

: 

pla 

ssta 

$01 


822 

: 

cli 

s jmp 

irq 


825 

; 





830 

save3 

sei 




831 


lda 

$01 

s pha 


832 


lda 

#$36 

ssta 

$01 

833 


ldx 

#8 

s jsr 

$ffba 

834 


lda 

#8 



835 


ldx 

#<na3 

s ldy 

#>na3 

836 


jsr 

$ffbd 



837 


lda 

#$b3 



838 


ldx 

#$7b 

: ldy 

#$b7 

839 


jsr 

$f f dB 



840 


pla 

: sta 

$01 

S4€H 

843 


cli 

: jmp 

irq 


845 

5 





850 

save4 

sei 




851 

: 

lda 

$01 

s pha 


852 

8 

lda 

#$36 

s sta 

$01 

853 

8 

ldx 

#8 

s jsr 

$ffba 

854 

: 

lda 

#8 



855 

8 

ldx 

#<na4 

sldy 

#>na4 

856 

: 

jsr 

$ffbd 



857 

8 

lda 

#$b3 



858 

3 

ldx 

#$ff 

sldy 

#$bf 

859 

8 

jsr 

$ffd 8 



860 

3 

pla 

s sta 

$01 


862 

8 

cli 

s jmp 

irq 



5 ===== 

===== 

====== 



an 


901 ;startadresse ==> in $fb/c 

endadresse ==> in $fd/e 

902 ;die angegebenen bereiche werden 
diesem unterprg. kopiert. 

- ================================ 


mit 


903 


905 copy ldx #4 sldy #0 
910 n lda <$fb>,y 
915 : sta <$fd>,y 
920 : iny 
925 : bne n 

930 : inc $fc :inc t-fe 
935 : dex 
940 : bne n 
945 : rts 

950 ;- 


960 

nal 

. asc 

"screen 1 " 

961 

na 2 

. asc 

"screen- 2 " 

962 

na3 

. asc 

"screen—3" 

963 

na4 

. asc 

"screen-4" 


READY. 


Listing 4. »SCREENCOPY« (Schluß) 


;profi-ass 
;startadresse 


10 sys 9*4096 

12 .opt oo 

13 *= $033c 

14 ; 

50 illq = $b24B 
55 koget = $b7fl 
90 ; 

100 jsr koget 
110 cpx #1 :beq holel 
120 cpx #2 :beq hole2 
130 cpx #3 :beq hole3 
140 cpx #4 ibeq hole4 
150 jmp illq 
200 ; 

201 ;================= 

202 ;die gespeich.screens werden ueber 
sys—be-f eh 1 — >sy sB2B, n (n=l-4) auf gerufen 

203 ; ======: 


510 

515 

520 

525 

530 

540 

545 


= ES = = = = = = = = = = = 


======== 


560 
565 
570 
580 
585 
595 
600 
610 
615 
3 

625 
635 
640 
650 
655 ; 
665 hi 
670 : 
675 : 
680 : 
690 s 
695 : 
705 : 
710 5 
720 u| 
725 : 
730 : 
734 : 


lda 

$01 

s pha 


lda 

#$36 

ssta 

$01 

jsr 

up3 

ssta 

$fb 

ldy 

#$a 0 

s sty 

$fc 

jsr 

copy 



jsr 

up4 

s ldy 

#$a4 

jmp 

cop 2 



lda 

$01 

s pha 


lda 

#$36 

ssta 

$01 

jsr 

up3 

ssta 

$fb 

ldy 

#$a 8 

s sty 

$fc 

jsr 

copy 



jsr 

up4 

sldy 

#$ac 

jmp 

cop 2 



lda 

$01 

s pha 


lda 

#$36 

ssta 

$01 

jsr 

up3 

ssta 

$fb 

ldy 

#$b 0 

s sty 

$fc 

jsr 

copy 



jsr 

up4 

s ldy 

#$b4 

jmp 

cop 2 



lda 

$01 

s pha 


lda 

#$36 

s sta 

$01 

jsr 

up3 

s sta 

$fb 

ldy 

#$b 8 

: sty 

$fc 

jsr 

copy 



jsr 

up4 

s 1 dy 

#$bc 

jmp 

cop 2 




740 s 
745 : 
749 ; 


lda 

#$00 

s ldy 

#$04 

;$0400 

nach 

sta 

rts 

$fd 

s sty 

$fe 

;$fd/e 


lda 

#$00 

sldy 

#$dB 

;$d800 

nach 

sta 

rts 

$fd 

s sty 

$fe 

5 $fd/e 


! sta $fb 

s sty 

$fc 




;fertig 

;kopierroutine 


755 : jsr copy 

765 s pla :sta $01 

770 : rts 

775 ; 

900 copy ldx #4 :ldy #0 
905 n lda <$fb>,y 
910 : sta <$fd),y 
915 : iny 
920 : bne n 

925 : inc $fc sine $fe 
930 : dex 
935 : bne n 
940 rts 


Listing 5. Source-Code-Listing zu »PAGE4« 
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C 64 


TIPS&TRICKS 


Joystick¬ 
abfrage in den 
Interrupt 
verlegt 

Beeinflussen Sie mit dem Joystick ein 
Sprite während des Programmablaufs. Ein 
optimaler Zusatz um Spiele zu program¬ 
mieren und Menüs zu unterstützen. 

A b jetzt haben Sie mit der Abfrage Ihres Joystick keine 
Probleme mehr. Dieses Programm übernimmt das für 
Sie vollständig und bewegt entsprechend der Joy¬ 
stickbewegungen das Sprite mit der Nummer 1. Das Pro¬ 
gramm wurde in Maschinensprache geschrieben, um eine 
möglichst hohe Geschwindigkeit zu erreichen. Um das Pro¬ 
gramm vom Basic-Ablauf zu trennen, wurde es in den Inter¬ 
rupt eingebaut. Gesteuert wird dabei mit dem Joystick in Port 
2. Das Programm (Listing 1) selbst befindet sich im Kasset¬ 
tenpuffer und wird mit »SYS 951« gestartet. Das entspre¬ 
chende Sprite (Nummer 1) läßt sich auf den gesamten Bild¬ 
schirm bewegen (auch über den kritischen Punkt, bei dem 
das Low-Byte der X-Achse den Wert 255 übersteigt) und läuft 
nicht über den Rand hinaus. Versuchen Sie doch einmal das 
kleine Demo-Programm (Listing 2). 

Um das Programm auf Port 1 umzustellen, ändern Sie mit¬ 
tels POKE in den folgenden Speicherstellen den Wert von 
»0« auf »1«: 829, 839, 849 und 854. Der Knopf des Joy¬ 
sticks wird vom Programm nicht berücksichtigt. 

(H. Werner/og) 


PROGRAMM 

: JOY 

IRQ 



033C 03C4 


033C 

s 

AD 

00 

DC 

29 

01 

D0 

03 

CE 

86 


0344 

: 

01 

D0 

AD 

00 

DC 

29 

02 

D0 

D9 


034C 

: 

03 

EE 

01 

D0 

AD 

00 

DC 

29 

CI 


0354 

: 

04 

D0 

03 

CE 

00 

D0 

AD 

00 

98 


035C 

i 

DC 

29 

08 

D0 

03 

EE 

00 

D0 

32 


0364 

s 

AD 

10 

D0 

C9 

01 

D0 

1A 

AD 

El 


036C 

: 

00 

D0 

C9 

40 

D0 

03 

CE 

00 

AF 


0374 

I 

D0 

AD 

00 

D0 

C9 

00 

D0 

08 

25 


037C 

: 

CE 

00 

D0 

A9 

00 

BD 

10 

D0 

02 


0384 


4C 

A0 

03 

AD 

00 

D0 

C9 

16 

71 

Libiing i. 

038C 

: 

D0 

03 

EE 

00 

D0 

AD 

00 

D0 

B6 

»JOY IRQ« 

0394 

i 

C9 

FF 

D0 

08 

A9 

01 

BD 

00 

6 B 

nohon Qio 

039C 


D0 

8 D 

10 

D0 

AD 

01 

D0 

C9 

0B 

ycuci I oic 

03A4 

: 

E6 

D0 

03 

CE 

01 

D0 

AD 

01 

DC 

bitte mit 

03AC 

3 

D0 

C9 

31 

D0 

03 

EE 

01 

D0 

15 

dem MSE 

03B4 

: 

4C 

31 

EA 

78 

A9 

3C 

BD 

14 

3D 

03BC 

■ 

03 

A9 

03 

BD 

15 

03 

58 

60 

92 

(Seite 7) ein 


10 POKE 2053,143sLOAD"JOY IRQ",8,1 <B42> 
20 SYS 951 :REM INITIALISIERUNG <191> 
30 POKE V+21,1 :REM SPRITE EIN <046> 
40 POKE V+39,1 :REM FARBE WEISS <03B> 
50 POKE V+0,160 :REM SPRITE IN... <173> 
60 POKE V+1,120 :REM ...DIE MITTE <123> 
70 POKE 2040,11 :REM SPRITEZEIGER... <247> 
75 t REM ...AUF BLOCK 11 <196> 
80 FÜR X=704 TO 766:PDKE X,255:NEXT <020> 
85 : REM SPRITEINHALT DEFINIEREN <039> 

Listing 2. Ein kleines Demo-Programm für »JOY IRQ« 


Und er 
LISTet doch! 

Man kann jedes Basic-Programm LISTen, 
auch wenn es mit einem LIST-Schutz verse¬ 
hen ist. Das Programm »LISTKNACKER« 
erledigt das für Sie - eventuelle POKEs 
oder Steuerzeichen hindern das Pro¬ 
gramm nicht am LISTen. 

S tellen Sie sich vor, Sie haben ein Programm mit einem 
(fast) perfekten LIST-Schutz versehen, und wollen 
nach geraumer Zeit eine Verbesserung vornehmen. 
Doch die Version ohne Schutz ist nicht aufzufinden, und wie 
Sie das Programm damals geschützt haben, wissen Sie auch 
nicht mehr so genau. Was tun, um an ein Listing zu kommen? 
Ganz einfach: Sie nehmen den »LISTKNACKER« und holen 
sich Ihr Listing direkt von der Diskette. 

Vom »LISTKNACKER« gibt es zwei Versionen: eine, um auf 
dem Bildschirm zu LISTen (Listing 1), und die andere, um das 
Listing auf den Drucker auszugeben (Listing 2). Geben Sie 
also die gewünschte Version mit dem Checksummer ein, 
speichern Sie sie und starten sie mit RUN. Dann legen Sie die 
Diskette mit dem zu listenden Programm ein und bestätigen 
dies durch Betätigen der CONTROL-Taste. Daraufhin geben 
Sie den Namen des Programms ein. Auf dem Bildschirm 
erscheinen die ASCII-Werte der Steuerzeichen mit vorange¬ 
stelltem Komma in weiß (zum Beispiel »Cursor down« als 
»,17«), die restlichen Zeichen und Befehle in hellblau. Auf 
einem Drucker sind die entsprechenden Zeichen revers dar¬ 
gestellt. Als Drucker lassen sich alle diejenigen verwenden, 
bei denen »OPEN 4,4:CMD4:LIST«zum korrekten LISTen des 
Programms führt. 

(G. Engist/og) 


Zeile 10 Sprung nach Zeile 220 


Zeile 220 
START 

-360 

320 

Programmfile öffnen 

330-340 Fehlermeldung von Floppy 

350 

in indizierte Variable A$() werden Basic-Befehle 
eingelesen 

360 

2 Byte, die die Startadresse ergeben, werden 
überlesen 

l 

Zeile 160 

-210 

ZEILENNUMMER berechnen und ausgeben, über Programmende 
entscheiden die Zeilen 

160 

die 2 Byte, die auf die nächste Zeile zeigen, werden über¬ 
lesen 

180 

Statusvariable = 66 entspricht Programmfile-Ende 

210 

A=0 entspricht Gänsefüßchenmodus aus 

1 t 


Zeile 20-150 
KERN 

30 AS= " " entspricht Zeiger auf nächste Zeilennummer 
50-110 entscheiden über Gänsefüßchenmodus (A=0 aus, 

A=1 ein) 

120-130 nachprüfen, ob Basic-Befehl oder nicht; wenn ja, wird die 
indizierte Variable A$() benützt 
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TIPS&TRICKS 


C 64 


7 REM VON 

8 REM SEORG ENGIST 

9 REM 7B18 ACHKARREN 

10 GOTO 220 

20 POKE 646,14:GET#2,A* 

30 IF A*=""GOTO 160 
40 B=ASC(A*> 

50 IF B=G THEN IF A THEN A=H:GOTO 120 
60 IF B=G THEN A=I 
70 IF A=H GOTO 120 

80 IF BXJ THEN IF B<K THEN PRINT A*;:GOTO 
20 

90 IF B>L THEN PRINT A*;:GOTO 20 
100 B*=","+RIGHT*(STR*(B>,LEN(STR*(B))-1> 
110 POKE 646,1:PRINT B*;:GOTO 20 
120 IF B>M THEN IF B<N THEN PRINT A*(B-P>; 
:GOTO 20 

130 IF B>N THEN IF B<Q THEN PRINT A*(B-R); 

:GOTO 20 

140 IF B>J THEN PRINT A*s:80T0 20 
150 PRINT CHR*(5)","RIGHT*(STR*(B),LEN(STR 
*(B>)-l>;:GOTO 20 
160 FOR Z=1 TO 3:GET#2,A*:NEXT Z 
170 GET#2,B*:A*=A*+CHR*(.):B#=B*+CHR*(.) 
180 IF ST =66 THEN CLOSE 1:CLOSE 2:END 
190 C=ASC(A*):D=ASC(B*>:E=256*D+C 
200 A*=STR*(E):B*=RIGHT*(A*,LEN(A*)-1>+" “ 
210 PRINT:PRINT B*;:A=.:GOTO 20 
220 CLR:PRINT CHR*(142)CHR*(147)CHR*(5)"13 
DOWNJ 

230 PRINT" <2SPACE>-r , {2SPACE>’r- Ui FR sUL UL 
IT UI UL SUI ffs Hi 

240 PRINT" <2SPACEJ=<2SPACEJ- Ü{2SPACE J-(2 
SPACEJlJFi QlJ ^<2SPACE>BTi 9 C2SPACE 
>STJ 

250 PRINT" C2SPACE JT5f I?{SHIFT-SPACE JÜK2SPA 
CEJ^SPACEJ* iFEliUZiiy -T£(:3D 
OWN> 

260 PRINT TAB(17)"V O N 

270 PRINT TAB(9)"G E O R G{2SPACEJE NGl 
S T"CHR*(154) 

280 G=34:1=1:J=31:K=128:L=159:M=127:N=204: 
P=128:0=256:R=205 

290 PRINT TAB(7)"C3D0WNJDISKETTE EINLEGEN 
! (CTRL)<DOWNJ":POKE 649,.:WAIT 653,4: 
POKE 649,10 

300 OPEN 1,8,15,"10”:PRINT TAB(4) 

310 INPUT"PROGRAMMNAME ";NA* 

320 OPEN 2,8,0,"0:"+NA* 

330 INPUT # 1, EN , EN* 

340 IF EN THEN PRINT TAB(17)"<2D0WNJ”EN:PR 
INT TAB(20—INT(LEN(EN#)/2))EN*:END 
350 DIM A*(75):FOR Z=.TO 75:READ A*(Z):NEX 
T Z:PRINT CHR*(147> 

360 FOR Z=.TO 1:GET#2,A*:NEXT Z:GOTO 160 
370 DATA END,FOR,NEXT,DATA,"INPUT#" 

380 DATA INPUT,DIM,READ,LET,GOTO,RUN 
390 DATA IF,RESTORE,GOSUB,RETURN 
400 DATA REM,STOP,ON,WAIT,LOAD,SAVE 
410 DATA VERIFY.DEF,POKE, "PRINT#",PRINT 
420 DATA CONT,LIST,CLR,CMD,SYS,OPEN 
430 DATA CLOSE, GET, NEW, "T ABC, TO, FN 
440 DATA"SPC(",THEN,NOT,STEP,+ 

450 DATA-,*,/,t,AND,0R,">" 

460 DATA= , " < " , SGN , I NT , ABS, USR , FRE 
470 DATA POS,SQR,RND,LOG,EXP,COS,SIN 
480 DATA TAN,ATN,PEEK,LEN,"STR*",VAL 
490 DATA ASC,"CHR#","LEFT*", "RIGHT*" 

500 DATA"MID*",GD 

© 64'er 


< 180> 
<251 > 
<072> 
<234> 
<032> 
<203> 

< 194> 

< 1B0> 
<092> 
<062> 

< 178> 
<035> 

< 152> 

< 113> 

<239> 

<045> 
<021 > 

<045> 
<107> 
<231 > 
<090> 
<034> 
<021 > 
<255> 

<208> 

< 131 > 


<081 > 

<224> 

< 010 > 

<103> 

<255> 


<033> 

<080> 

<181> 

< 012 > 

< 107> 

<041> 

< 143> 
<236> 
< 011 > 
<014> 
<251 > 
<107> 
<252> 
<054> 
<061 > 
<219> 
<233> 
<217> 
< 220 > 

< 193> 
< 010 > 
<070> 


Listing 1. »LISTKNACKER« LISTet jedes 

Basic-Programm auf den Bildschirm 


7 REM VON 

8 REM GEORG ENGIST 

9 REM 7818 ACHKARREN 

10 GOTO 220 
20 GET#2, A* 

30 IF A#=""GOTO 160 
40 B=ASC(A«) 

50 IF B=G THEN IF A THEN A=H:GOTO 120 
60 IF B=G THEN A=I 
70 IF, A=H GOTO 120 

80 IF B>J THEN IF B<K THEN PRINT#4,A*5:GOT 

a 20 

90 IF B>L THEN PRINT#4,A*;:GOTO 20 
100 B*=CHR*(18)+","+RIGHT*(STR#(B),LEN(STR 
*(B)>—1)+CHR*(146) 

110 PRINT#4,B*;:GOTO 20 

120 IF B>M THEN IF B<N THEN PRINT#4,A*(B-P 
)|:GOTO 20 

130 IF B>N THEN IF B<0 THEN PRINT#4,A*(B-R 
>;: GOTO 20 

140 IF B>J THEN PRINT#4,A*;:GOTO 20 
150 PRINT#4,CHR*(18);RIGHT*(STR*(B),LE 
N(STR*(B))-l>;CHR*(146):GOTO 20 
160 FOR Z=1 TO 3:GET#2,A*:NEXT Z 
170 GET#2,B*:A*=A*+CHR*(.):B*=B*+CHR*(.> 
180 IF ST =66 THEN CLOSE 1:CLOSE 2:CLOSE 4: 
END 

190 C=ASC (A*) : D=ASC ( B*) : E=256*D+C 
200 A*=STR*(E):B*=RIGHT*(A*,LEN(A*)-1)+" " 
210 PRINT#4:PRINT#4,B*;:A=.:G0T0 20 
220 CLR:PRINT CHR*(142)CHR*(147)CHR*(5)"<3 
DOWNJ 

230 PRINT" < 2 SPACEJ r f{ 2 SPACEJ-R Ui nTs sUL Ui 
* UI UL sUL ffs Wi 

240 PRINT"<2SPACEJ=<2SPACEJ = Ü(2SPACEJ-C2 
SPACE>B£i aU =<2SPACEJBFi 5T2SPACE 

JSÜ 

250 PRINT" <2SPACEJ-2y FISHIFT-SPACEJ.JA(2SPA 
CEJF<2SPACEJ7 iEEÜÜJiH ?i<3D 
nwNJ 

26* . RINT TAB(17) "V O N 

270 PRINT TAB(9)"G E O R GC2SPACEJE NGl 
S T"CHR*(154) 

280 G=34:1=1:J=31:K=128:L=159:M=127:N=204: 
P=128:D=256:R=205 

290 PRINT TAB(7)"{3D0WNJDISKETTE EINLEGEN 
! (CTRL)<DOWN>":POKE 649,.:WAIT 653,4: 
POKE 649,10 

300 OPEN 1,8,15,"10":PRINT TAB(4) 

310 INPUT"PROGRAMMNAME ";NA# 

320 OPEN 2,8,0,"0:"+NA* 

330 INPUT#1,EN,EN* 

340 IF EN THEN PRINT TAB(17>"<2DDWNJ"EN:PR 
INT TAB(20-INT(LEN(EN*)/2))EN*:END 
350 DIM A*(75):FOR Z=.TO 75:READ A*(Z):NEX 
T Z:PRINT CHR*(147):OPEN 4,4 
360 FOR Z=.TO 1:GET#2,A*:NEXT Z:GOTO 160 
370 DATA END,FOR,NEXT,DATA,"INPUT#" 

380 DATA INPUT,DIM,READ,LET,GOTO,RUN 
390 DATA IF,RESTORE,GOSUB,RETURN 
400 DATA REM,STOP,ON,WAIT,LOAD,SAVE 
410 DATA VERIFY,DEF,POKE,"PRINT#",PRINT 
420 DATA CONT,LIST,CLR,CMD,SYS,OPEN 
430 DATA CLOSE, GET, NEW, "TABC, TO, FN 
440 DATA"SPCC,THEN,NOT,STEP, + 

450 DATA-,*,/,T,AND,0R,">“ 

460 DATA=,"<",SGN,INT,ABS,USR,FRE 
470 DATA POS,SQR,RND,LOG,EXP,COS,SIN 
480 DATA TAN,ATN,PEEK,LEN,"STR*",VAL 
490 DATA ASC,"CHR*","LEFT#","RIGHT*" 

500 DATA"MID*",GO 

© 64'er 


Listing 2. »LISTKNACKER« für den Drucker 


< 180> 
<251 > 
<072> 
<234> 

< 109> 
<203> 

< 194> 
<1B0> 
<092> 
<062> 

< 102 > 
< 202 > 

< 172> 
<1B3> 

< 159> 

<245> 

< 188> 

<015> 

< 107> 
<231 > 

< 020 > 
<034> 
<021 > 

< 180> 

<208> 
< 131 > 


<081 > 


<224> 

< 010 > 


< 103> 
<255> 


<033> 
<080> 
< 181 > 
< 012 > 

< 107> 

<041 > 

<004 > 

<236> 
< 011 > 
<014> 
<251 > 

< 107> 
<252> 
<054> 
<061 > 
<219> 
<233> 
<217> 
< 220 > 

< 193> 
< 010 > 
<070> 
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C 64 


T1PS&TRICKS 


Ordnung 
ist das halbe 
Leben 

Mit diesem Programm bringen Sie auf 
bequeme Weise Ordnung in die Direc- 
tories Ihrer Disketten. Nicht nur eine ver¬ 
besserte Optik des Inhaltsverzeichnisses 
hilft Ihnen bei der Suche nach bestimmten 
Programmen. 

I st Ihnen das auch schon mehrmals passiert: Sie hatten 
auf einer Diskette ein schön geordnetes Directory und 
beim Speichern eines weiteren Files stand dieses nicht 
sauber am Schluß des Directory, sondern mitten zwischen 
den anderen Programmen. Mit dem hier vorgestellten 
Directory-Sortierprogramm ist es nun möglich, diese »falsch 
hineingeratenen« Files herauszunehmen und an geeigneter 
Stelle wieder einzusetzen. Auch das Einfügen von Trennstri¬ 
chen ist möglich. Bild 1 und Bild 2 zeigen Ihnen den Unter¬ 
schied eines unsortierten zu einem sortierten Directory. Mit 
etwas Geschick kann man seine Disketten auch so umsortie¬ 
ren, daß an erster Stelle immer ein Ladeprogramm für das 
Hauptprogramm steht. Man kann sich dadurch viel Such¬ 
arbeit sparen, denn man lädt einfach das erste Programm. 

Nach dem Starten des Programms legt man die Diskette 
ein, die sortiert werden soll und drückt eine Taste. In der lin¬ 
ken oberen Ecke wird nun die Sektornummer des Directory- 
Blocks angezeigt, den der Computer gerade einliest, rechts 
daneben die Anzahl der in den Speicher eingelesenen Files. 


Direktory mit System 


Nach beendetem Einlesen erscheint links vom obersten File 
ein schwarzer Pfeil, der sich mit den Funktionstasten F3 nach 
oben und F5 nach unten bewegen läßt. Mittels Fl kann nun 
ein mit diesem Pfeil gekennzeichnetes File nach rechts her¬ 
ausgeschoben und mit F3 und F5 verschoben werden. An 
gewünschter Stelle wird es mit Fl wieder eingefügt. Somit ist 
ein beliebiges Vertauschen aller Files im Directory möglich. 

F8 schreibt das sortierte Directory wieder auf die Diskette 
zurück. Will man das geänderte Directory nicht gespeichert 
haben, so kann statt dessen mit F6 noch einmal das alte oder 
ein anderes eingelesen werden. 

Zur optischen Abgrenzung mehrerer Files dient der Trenn¬ 
strich, den man mit F2 erzeugen, mit F3 und F5 verschieben 
und schließlich wieder mit Fl einfügen kann. Wem übrigens 
ein anderer Trennstrich besser gefällt, der kann in Zeile 260 
für die Minuszeichen andere einsetzen, zum Beispiel 
SHIFT+*. SHIFT + C ist nicht zu empfehlen, da dieser Strich 
bei Groß-Kleinschrift-Umschaltung ein großes C ergibt. Der 
Trennstrich belegt keinen Block auf der Diskette und ist zur 
besseren Unterscheidung mit DEL im Directory gekenn¬ 
zeichnet. Ein versehentlich mit »F2« erzeugter Trennstrich 
kann, wenn er nach rechts gebracht wird, mit F4 wieder 
gelöscht werden. In gleicher Weise können auch Files aus 
dem Directory gelöscht werden. Dabei werden aber die von 


dem File belegten Blöcke nicht wieder freigegeben, so daß 
ein abschließendes »VALIDATE« der Diskette erforderlich ist, 
wenn man ein File gelöscht hat. 

Nun zum Aufbau des Programms. Es ist vorwiegend in Basic 
geschrieben und enthält zwei kurze Maschinensprache- 
Routinen. Die erste dient zum Einlesen der Filenamen und 
Fileparameter und wird mit SYS 52992, log. Filenummer, 
Länge, String aufgerufen. Das Lesen mit GET # in Basic wäre 
dafür viel zu langsam. Mit dem zweiten Maschinenprogramm 
werden die am Bildschirm angezeigten Files nach oben 
oder unten gescrollt. Aufgerufen wird es mit 
SYS 53056,r,oz,ls,uz,rs. 

Dabei haben die Parameter folgende Bedeutung: 

r = Scrollrichtungen: 0 für nach oben und 1 für nach unten 

oz = oberste Zeile 

Is = linke Spalte 

uz = unterste Zeile 

rs = rechte Spalte 

Durch Speichern des Speicherbereichs von SCFOO bis 
$CFFF kann diese Routine auch in andere Basic- oder 
Maschinenprogramme eingebunden werden. 

(Edwin Göbel/ah) 


a ui-^rw «ui m tmm -i 

16 

"1. PRG" 

PRG 

7 

"MSE VI.0" 

PRG 

58 

"APFELMANN" 

PRG 

13 

"HARDCOPY KOALA" 

PRG 

12 

"2. PRG" 

PRG 

6<? 

"PROFIPRINT" 

PRG 

4 

"APFELROUTINEN" 

PRG 

69 

"LYRIC 3.0" 

PRG 

12 

"CHECKSUMMER V3" 

PRG 

32 

"APFELMANN.PIC" 

PRG 

41 

"0. PRG" 

PRG 

26 

BLOCKS FREE. 


READY. 


Bild 1. Das Durcheinander eines unsortierten Directorys 


0 lil III lii TW 1 ■■■■■■MM 

12 M CHECKSUMMER V3" PRG 

7 "MSE VI.0" PRO 

0 "-" DEL 

13 "HARDCOPY KOALA" PRG 

0 "-" DEL 

69 "LYRIC 3.0" PRG 

0 "-" DEL 

41 "0. PRG" PRG 

16 "1. PRG" PRG 

12 "2. PRG" PRG 

0 " HYPRA PLATOS " PRG 

0 "-" DEL 

69 "PROFIPRINT" PRG 

0 "-" DEL 

4 "APFELROUTINEN" PRG 

58 "APFELMANN" PRG 

32 "APFELMANN.PIC" PRG 

26 BLOCKS FREE. 


Bild 2. Der »Directory-Sorter« schafft schnell Ordnung 
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C 64 


10 GOTO 100 

< 194> 

490 

SYS 53056,0,CP,2,23,18:IF 023 THEN EN 


20 INPUT#1,F1,F*,F2,F3:IF F1=0 THEN RETURN 

<049> 


=EN+1:GOSUB 60:EN=EN-1 

<082 > 

30 PRINT Fl;F*,F2;F3:END 

< 196> 

500 

FOR I=N0+CP-2 TO C-l:ZUC1+1>=ZU<1+2):N 


40 IF NO+EN>=C THEN RETURN 

<209> 


EXT 

<073> 

50 SYS 53056,0,2,2,23,1B:N0=N0+1 

< 182> 

510 

POKE 214,CP:POKE 211,19:SYS 58732 

<225> 

60 POKE 214,23:PQKE 211,2sSYS 5B732:PRINT 


520 

PRINT"TT"TE* 

< 112 ) 

NA* < ZU(NO+EN-1));:RETURN 

<238> 

530 

GET TA*:IF TA*=""THEN 530 

< 160> 

70 IF NO=0 THEN RETURN 

< 157> 

540 

IF TA*="<F3>"THEN IF CP>2 THEN CP=CP-1 


80 SYS 53056,1,2,2,23,18:NO=NO—1 

<218> 


:SYS 53056,0,2,19,24,37:SYS 53056,0,2, 


90 POKE 214,2: POKE 2U,2:SYS 5B732:PRINT N 



0,23,0 

<233> 

A*(ZU(NO+1)):RETURN 

<195> 

550 

IF TA*="<F3>"THEN IF CP=2 THEN GOSUB 7 


100 POKE 53280,6:POKE 53281,6 

< 00 B> 


0 

<053> 

110 PRINT"{CLR,YELLOW,RVSONJ"TAB(9)"EPLOX' 


560 

IF TA*="{F5>"THEN IF CP<EN THEN CP=CP+ 


S DIRECTORY-SORT" 

<034> 


1:SYS 53056,1 ,2,19,24,37:SYS 53056,1,2 


120 PRINT TAB ( 8 )"-" 



,0,23,0 

<041 > 

:IF DG=1 THEN 200 

< 175> 

570 

IF TA*="<F5>"THEN IF CP=23 THEN GOSUB 


130 PRINT" FlC2SPACEJEINTRAG MARKIEREN/EIN 



40 

<135> 

ORDNEN" 

< 192> 

580 

IF TA*="{F1>"THEN 620 

<174> 

140 PRINT" F2{2SPACE >TRENNSTRICH ERZEUGEN" 

<017> 

590 

IF TA*="<F4>"THEN TE*="{16RIGHT> ":C=C- 


150 PRINT" F3<2SPACE > AUF " 

<091 > 


1 : EN=C:IF EN>23 THEN EN=23 

<224> 

160 PRINT" F4{2SPACE>L0ESCHEN" 

< 154> 

600 

IF TA*="<F4 >" THEN PRINT"{HOME,LIG.RED, 


170 PRINT" F5{2SPACE > AB" 

< 190> 


4RIGHT>"C-1"{LEFT,SPACE,CYAN > ": GOTO 64 


180 PRINT" F 8 {2SPACEJSPEICHERN" 

<250> 


0 

< 010 > 

190 PRINT " {3SPACE,3D0WN>BITTE DISKETTE EI 


610 

GOTO 530 

< 110 > 

NLEGEN" : DG=1 : POKE 198,0:WAIT 198,63:60 


620 

SYS 53056,1,CP,2,23,18 

< 012 > 

TO 110 

<240> 

630 

FOR I=C-1 TO NO+CP-1 STEP—1:ZU<I+1)=ZU 


200 OPEN 1,8,15,"I":DIM AN* ( 145),NA*<145), 



CI):NEXT:ZU(NO+CP—1 ) =TE 

<209> 

RE* ( 145),ZU C146),SN<19> 

<234> 

640 

POKE 214,CP:POKE 2U,2:SYS 58732 

<057> 

210 FOR 1=1 TO 18:READ SN<I):NEXT 

< 166> 

650 

PRINT TE*"{19SPACE1“ 

<007> 

220 FOR 1=52992 TO 53242:READ X:POKE I,X:N 


660 

GOTO 370 

<208> 

EXT 

<047> 

670 

OPEN 2,8,2,"#":T=1B:FOR 1=0 TO INT<(C- 


230 GOSUB 20:OPEN 2,8,2, : GOSUB 20 

<081 > 


2)/8>:IF B*I+8>=C-1 THEN T=0 

<103> 

240 S= 1 : C= 1 : N*=CHR* < 0 ) : NN*=N*+N*+N* 

< 177> 

680 

PRINT#1,"B-P 2 0" : PRINT#2,CHR*<T)CHR* ( 


250 FOR 1=1 TO 10:NU*=NU*+NN*:NEXT 

<005> 


SN(1+2) ) 

< 121 > 

260 AN* <0>=CHR* < 128)+CHR* < 18)+CHR* < 1 ): NA* < 


690 

FOR BP=0 TO 7 : PRINTttl,"B-P 2";BP*32+2 

< 159> 

0 > = "-" 

<213> 

700 

IF BP+8*I+1>=C THEN PRINT#2,NU*; : NEXT: 


270 RE* ( 0)=NN*+NN*+NN*+N*+N* 

<049> 


GOTO 720 

<023> 

280 PRINT#1,“U1 2 0 1B"S:PRINT“{H0ME,LIG.R 


710 INT#2,AN*<ZU<BP+B*I+1>)NA*(ZU(BP+ 8 *I 


ED >" S “ {LEFT,SPACE > " 

<153> 


+1) ) RE*(ZU(BP+8*I+1 )>;: NEXT 

< 011 > 

290 GET#2, T* : GET#2, S* : S=ASC < S*+N* ) 

< 146> 

720 

PRINT#1,"U2 2 0 1B"SN ( 1+1 ): PRINT"{LIG. 


300 FOR BP=0 TO 7 : PRINT # 1, " B—P 2";BP*32+2 

<023> 


RED,HOME >" TAB ( 36 ) SN < I + 1 >" {LEFT,SPACE,C 


310 SYS 52992,2,3,X*:AN*(C>=X*:IF LEFT* <X* 



YAN>":GOSUB 20:NEXT 

<018> 

,1 ) =N*THEN NEXT:GOTO 340 

<097> 

730 

CLOSE 1:CLOSE 2:RUN 

<211 > 

320 SYS 52992,2,16,X*:NA*<C>=X*:SYS 52992, 


740 

DATA 1,4,7,10,13,16,2,5,8,11,14,17,3,6 


2,11,X*:RE*(C> =X* 

<066> 


,9,12,15,18 

< 210 > 

330 ZU < C > =C: PRINT " {HOME,4RIGHT }" C " {LEFT,SP 


750 

DATA 32,253,174,32,158,183,32,30,225,3 


ACE>" : C=C+1 : NEXT 

<236> 


2,253,174,32,158,183,138,72,32,253 

<246> 

340 IF T*< >" "THEN 280 

<08B> 

760 

DATA 174,32,139,176,133,73,132,74,32,1 


350 CLOSE 2:POKE 650,128:PRINT"{HOME,2D0WN 



63,182,104,32,117,180,160,2,185 

<230> 

,BLACK > > {CYAN,UP >“;: CP=2 : NO=0 : EN=C : IF 


770 

DATA 97,0,145,73,136,16,248,200,32,18, 


EN>23 THEN EN=23 

<239> 


225,145,98,200,196,97,208,246,32 

<0B0> 

360 PRINT CHR* <13>TAB(2)NA*< NU+1 ) ; : NU=NU+1 


780 

DATA 204,255,96,0,0,0,0,0,32,245,207,1 


: IF NU<EN—1 THEN 360 

< 12B> 


38,72,32,245,207,224,0,176,3,76 

<208> 

370 GET TA*:IF TA*=""THEN 370 

< 001 > 

790 

DATA 72,178,224,24,176,249,134,251,32, 


380 IF TA*="{F3>"THEN IF CP>2 THEN CP=CP-1 



245,207,224,0,144,240,224,39,176 

<038> 

: SYS 53056,0,2,0,23,0 

<007> 

800 

DATA 236,134,253,32,245,207,224,25,176 


390 IF TA*= " {F3 >" THEN IF CP=2 THEN GOSUB 7 



,227,134,252,232,138,56,229,251 

< 138> 

0 

< 147> 

810 

DATA 144,218,240,216,133,250,32,245,20 


400 IF TA*="{F5>"THEN IF CP<EN THEN CP=CP+ 



7,224,40,176,207,228,253,144,203 

<144> 

1 : SYS 53056,1,2,0,23,0 

<223> 

820 

DATA 134,254,104,170,165,172,72,165,17 


410 IF TA*= " {F5 >" THEN IF CP>=23 THEN GOSUB 



3,72,165,174,72,165,175,72,224,0 

<064> 

40 

<116> 

830 

DATA 208,22,166,251,198,250,240,44,32, 


420 IF TA*= " {F1 > "THEN 480 

<092> 


240,233,232,189,240,236,133,172 

< 188> 

430 IF TA*="{F2VTHEN IF C<145 THEN F=1:C= 


S 

CD 

DATA 181,217,32,219,207,48,236,202,240 


C+1 : PRINT " {LIG.RED,HOME,4RIGHT >" C-1 " {L 



,3,76,72,17B,166,252,198,250,240 

< 02 B> 

EFT,SPACE,CYAN}":EN=EN+1:IF EN>23 THEN 


850 

DATA 16,32,240,233,202,189,240,236,133 


EN=23 

<078> 


,172,181,217,32,219,207,48,236,164 

<090> 

440 IF TA*="{F2>"THEN IF F=1 THEN F=0:TE=0 


B60 

DATA 254,32,240,233,32,36,234,169,32,1 


:TE*=NA*(0):GOTO 510 

< 121 > 


45,209,136,196,253,16,249,76,88 

<224> 

450 IF TA*="{F 8 >"THEN 670 

< 129> 

B70 

DATA 233,41,3,13,136,2,133,173,32,224, 


460 IF TA*="{HOME>"THEN 730 

<218> 


233,164,254,177,172,145,209,177 

<206> 

470 GOTO 370 

<016> 

880 

DATA 174,145,243,136,196,253,16,243,96 


480 TE=ZU < NO+CP-1):TE*=NA*(TE) 

<226> 


,32,253,174,76,158,183 

<209> 

Listing zum »Directory-Sorter«. Beachten Sie bitte den Checksummer auf Seite 6 



134 


SONDERHEFT 
















V Vvvv \ ^'• v >. V \ v\ v\ va v \W i V\V 

ÄiRl: 

WWhB li 

IwwPw^Wll''' 

mW' VmUMWiTOYmVi 


■'.' .'ife vfe/ty^ *w/ ‘f */ y;:‘V. ; 


nS||« 

'wf\ tfe.Mtö}» «wwftWk' : mw# 
i,m - mi 

'«SiiMÄisMaMi" i v. 

|Ä®V $*w®' ■•.•' *..' V? i • 

’:* V' ", V‘V' '< iV^\ "Mmi * 


mm 




Ä#'Ä 
MmtM (*$$&*$# 


M i«# .Vv *&$*$»** gyj 

;; ■ »{? i->«*.;n» v 


W/sWtWffWtt 
%'‘AWMr <■•'■'•'/ 






















TIPS&TRICKS 


C 64 


POKEs, die 
Sie kennen 
sollten 


Hex Dezimal 

3D/3E 61/62 


Welcher C64-Benutzer hat sich noch nicht 
mit dem Basic seines Computers herum¬ 
geärgert? Viele Programmierlösungen 
sind nur über PEEK und POKE möglich. 
Die folgende Liste der wichtigsten PEEKs 
und POKEs soll Ihnen behilflich sein. 


3F/40 63/64 


Hex 

Dezimal 

Beschreibung 



1 

1 

Inhalt 55 = normal 

Inhalt 54 = Basic ausgeschaltet (auf 
RAM umgestellt) 

Inhalt 53 = Basic und Kernal auf RAM 
umgestellt. 

(Es empfiehlt sich dabei, das Basic und 
das Kernel vorher ins RAM zu POKEn, 
damit der Computer bei der Umschal¬ 
tung nicht aussteigt.) 

45/46 

69/70 

A 

10 

Ist PEEK (10) = 0, so war der letzte 
Befehl LOAD. Ergibt PEEK (10) eine 1, 
ist VERIFY eingegeben worden. 



11 

17 

Mit diesem PEEK läßt sich abfragen, 
wie die letzte Variable zugewiesen 
wurde. Ist PEEK (17) = 00, dann war 
die letzte Variablenzuweisung ein 
INPUT, oder es hat noch keine Zuwei¬ 
sung stattgefunden. 

78 

120 



Ist PEEK (17) = 64, dann wurde die 
letzte Variable durch GET geholt. 

90 

144 



Bei PEEK (17) = 152 erfolgte die letzte 
Variablenübergabe durch einen READ- 
Befehl. 

91 

145 

13 

19 

Durch POKE 19,64 wird beim nächsten 
INPUT-Befehl kein Fragezeichen mehr 
ausgegeben. Allerdings kann man 
nachher durch Drücken der RETURN- 
Taste nicht mehr in die nächste Zeile 

93 

147 



gelangen. Es empfiehlt sich daher, 
nach dem INPUT-Befehl diesen Befehl 





wieder mit POKE 19,0 rückgängig zu 
machen. 

9D 

157 

18 

24 

Mit POKE 24,0 wird FORMULAR TOO 
COMPLEX ERROR aufgehoben. 



2B/2C 

43/44 

Der Anfang des zur Zeit im Speicher 
befindlichen Basic-Programms errech¬ 
net sich durch PEEK (43J+PEEK (44) 





*256. 



2D/2E 

45/46 

Das Ende des Basic-Programms erhält 
man durch PEEK (45)+PEEK (46)* 
256. 

B6 

182 

37/38 

55/56 

Mit PEEK (55)+256*PEEK (56) kann 
das Ende des Basic-RAMs abgerufen 

B7 

183 



werden. 

B8 

184 

39/3A 

57/58 

Die Zeilennummer, bei der nach einer 
Programmunterbrechung gestoppt 

B9 

185 



wurde, errechnet sich durch PEEK 
(57) + 256*PEEK (58). 

BA 

186 


Beschreibung 

Zeiger auf Basic-Statement für CONT: 
Durch PEEK (61) + PEEK (62)*256 
erhält man die Speicherstelle, die nach 
dem zuletzt ausgeführten Basic-Befehl 
liegt, das heißt die Speicherstelle, von 
der sich der Basic-Interpreter bei 
CONT den nächsten Befehl holt. 

Tip: Bei CONT kommt öfter CANT 
CONTINUE ERROR vor, wenn man 
nach dem Stoppen ein CLR eingege¬ 
ben oder in irgendeiner Programmzeile 
etwas geändert hat. Liest man die 
Werte mit PEEK (61) und PEEK (62) 
nach der Unterbrechung aus, dann 
macht ein CLR oder ähnliches nichts 
aus, wenn man vor CONT die zuvor aus¬ 
gelesenen Werte wieder in die Spei¬ 
cherstellen POKEt. 

Nummer der aktuellen DATA-Zeile: 

Mit PEEK (63)+PEEK (64) * 256 erhält 
man die Nummer der DATA-Zeile, aus 
der gerade das letzte Datum geholt 
wurde. (Gut zum Finden von Fehlern in 
DATA-Zeilen geeignet.) 

Zuletzt zugewiesene Variable: 

Bei normalen Fließkommavariablen liest 
man den Wert mit PRINT CHR$(PEEK 
(69))+CHR$(PEEK (70)) aus. 

Bei Integervariablen (zum Beispiel 
XY%) erhält man den Namen durch 
PRINT CHR$(PEEK(69)-128)+CHR$ 
(PEEK (70)—128). 

Strings (zum Beispiel VX$) erhält man 
durch PRINT CHR$(PEEK(69)) + 
CHR$(PEEK (70)-128). 

Nach Ausführung dieses POKEs nimmt 
der C64 keinerlei Befehle mehr an: 
POKE 120,2 

Statusbyte: Mit PRINT ST läßt sich das 
Statusbyte abfragen. 

Nach WAIT 145,16,16 wartet der Com¬ 
puter auf den Feuerknopf von Joy¬ 
stick! 

Wenn man die LOAD-Routine im 
Betriebssystem anspringt, holt es sich 
aus der Speicherstelle 147 die Informa¬ 
tion, ob LOAD oder VERIFY durchge¬ 
führt wird. 

Inhalt 0 = LOAD 
Inhalt 4 = VERIFY 
Ausgabe-Kontrolle: 

Inhalt 000 = Progamm-Modus 
Inhalt 128 = Direktmodus 
Damit bei LOAD-Befehlen vom Pro¬ 
gramm aus die Mitteilungen SEARCH- 
ING, LOADING oder VERIFYING auf 
dem Bildschirm erscheinen, setzt man 
vor dem LOAD- VERIFY- oder SAVE- 
Befehl ein POKE157,128. 

PEEK (182) ruft die Anzahl der Zei¬ 
chenlesefehler ab. 

PEEK (183) gibt die Länge des File¬ 
namens an. 

Die laufende Filenummer kann mit 
PEEK (184) abgerufen werden. 

Die aktuelle Sekundäradresse kann mit 
PEEK (185) angegeben werden. 

Die derzeitige Gerätenummer wird 
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TIPS&TRICKS 


Hex 

Dezimal 

Beschreibung 

durch PEEK (186) abgerufen. 

Hex 

Dezimal 

C5 

197 

Derzeitiger Tastendruck: PEEK (197) 



C6 

198 

NachWAIT 198,1 wartet der Computer 
auf eine gedrückte Taste. 

291 

657 

C7 

199 

RVS Flag: eine reverse Zeichenaus¬ 
gabe bei PRINT erfolgt nach POKE 
199,1. POKE 199,0 hebt den RVS- 
Modus auf. 

302 

770 

C8 

200 

Zeiger auf Zeilenende. PEEK (200) gibt 
an, wieviel Zeichen die zuletzt eingege¬ 
bene Zeile hatte. 

307 

775 

C9/CA 

201/202 

PEEK (201) gibt die Zeile der aktuellen 
Cursorposition an, während PEEK 
(202) die Spalte abruft. 

308 

776 

CB 

203 

Die derzeitig gedrückte Taste im 
CHR$-Modus kann mit PEEK (203) 
abgefragt werden. Ist keine Taste 

309 

777 



gedrückt, so steht der Wert 64 in die¬ 

30D/30E 781/782 



sem Byte. 



CC 

204 

Nach POKE 204,0 bleibt der Cursor an, 
auch bei GET-Befehlen. Mit POKE 
207,0 : POKE 204,1 kommt man dann 
wieder auf den Normalzustand zurück. 

310/311 

784/785 

D3 

211 

POKE 211,Wert setzt die Spalte der 
Cursorposition. Werte von 0 bis 39 
können eingegeben werden. Siehe 
auch 214. 



D5 

213 

Länge der momentanen Bildschirm¬ 
zeile: über PEEK (212) läßt sie sich 
abfragen. 

314/315 

788/789 

D6 

214 

POKE 214,Wert setzt die Zeile der Cur¬ 
sorposition. Die Werte 0-24 können 
eingegeben werden. Nach SYS 58640 







erscheint der Cursor auf der entspre¬ 

chenden Position. 

D7 

215 

Das zuletzt eingegebene Zeichen im 
ASCII-Code liest man mit PEEK (215) 

318/319 

792/793 



aus. 



277- 

631- 

Tastaturpuffer (ASCII-Code): Über den 



280 

640 

POKE-Befehl lassen sich beispiels¬ 
weise Zeichen in den Tastaturpuffer 
eingeben. 



281- 

641- 

Start- und Endadresse des Basic- 

321/322 

801/802 

284 

644 

RAMs: Durch Ändern dieser Werte 
kann man die Größe des Basic-RAMs 
verändern, zum Beispiel: 

328 

808 



POKE 643,0 : POKE 644,128 : SYS 
64764 setzt das Ende des Basic- 
RAMs um 8 KByte nach unten. Anderes 

32D 

813 



Beispiel: POKE 641,0 : POKE 642,16 : 

332/333 818/819 



SYS 64764 setzt das Basic-RAM um 

2 KByte nach oben. 



286 

646 

POKE 646,Farbwert setzt die Cursor¬ 
farbe. 

33C- 

828- 

287 

647 

Farbe unter dem Cursor: Mit den Wer¬ 
ten 0 bis 15 werden die jeweiligen Far¬ 
ben gePOKEt. 

3FB 

1019 

289 

649 

Länge des Tastaturpuffers: Nach POKE 
649,0 wird die gedrückte Taste nicht 
mehr auf den Bildschirm ausgegeben. 
Die maximale Größe des Tastaturpuf¬ 
fers beträgt 10. 



28C 

652 

Zähler für REPEAT-Verzögerung: Alle 
eingePOKEten Werte verzögern die 
Repeat-Funktion. Höherer Wert = grö¬ 
ßere Verzögerung. 



28D 

653 

PEEK für Shift-, Commodore- und für 
CTRL-Taste: 




Beschreibung 

Bit 0 = Shift-Taste, Bit 1 = Commodore- 
Taste und Bit 2 = Control-Taste. 

Nach POKE 657,128 ist eine Umschal¬ 
tung Groß-/Kleinschrift von der Tastatur 
her unmöglich. POKE 657,0 erzeugt 
wieder den Normalzustand. 

Durch EinPOKEn eines beliebigen Wer¬ 
tes erfolgt die READY-Ausgabe unend¬ 
lich oft, nur noch Ausschalten hilft. 
POKE 775,Wert aktiviert einen List¬ 
schutz. Nur über den Wert 167 kann der 
Listschutz aufgehoben werden. 

Der Befehl POKE 776,1 zerstört das 
Programm. 

Nach POKE 777,1 wird kein Befehl 
mehr ausgeführt. Der Cursor befindet 
sich in der linken Ecke. 

Startadresse, ab der ein Programm 
geladen wird: Durch entsprechende 
POKE-Werte kann ein Basic-Programm 
in einen anderen Speicherbereich gela¬ 
den werden. 

USR-Vektor: Erfolgt der Einsprung in 
ein Maschinenprogramm über den 
USR-Befehl, so muß die Einsprung¬ 
adresse vorher in diese beiden Byte 
gePOKEt werden. 

IRQ, Hardware-Interrupt: Das Betriebs¬ 
system springt ständig in diese Routine, 
durch Ändern des Inhalts kann man 
eigene, »interruptgesteuerte« Maschi¬ 
nenroutinen ständig laufen lassen. 
POKE 788,49 hebt die Wirkung der 
Stop-Taste auf. POKE 788,52 schaltet 
sie wieder ein. 

Restore-Vektor: PEEK (792) + PEEK 
(793) *256 ergibt die Speicherstelle, 
an die bei Restore-Tastendruck ge¬ 
sprungen wird. 

Beispiel: Bei POKE 792,226 : POKE 
793,252 wird beim Drücken der 
Restore-Taste ein Reset ausgelöst. 
Durch die Kombination POKE 801,0 : 
POKE 802,0 : POKE 818,165 wird ein 
SAVE-Schutz aktiviert. 

POKE 808,225 hebt die Stop-Taste 
auf, POKE 808,237 reaktiviert sie. 
Nach POKE 813,2 läßt sich ein Pro¬ 
gramm nicht mehr ändern. 

Folgende Kombinationen bewirken 
ebenfalls einen SAVE-Schutz: 

1. POKE 818,116 : POKE 819,196 

2. POKE 818,34 : POKE 819,253 
Kassettenpuffer: Nach LOAD oder 
VERIFY stehen im Kassettenpuffer fol¬ 
gende Informationen: 

828: 1 = normales File, 3 = wurde mit 
SAVE "Name",1,1 abgespeichert. Sol¬ 
che Programme werden bei LOAD auto¬ 
matisch ab der Adresse geladen, von 
der sie abgespeichert wurden. 
829/830: Hier ist die Startadresse des 
Programms abgelegt (829 ist das Low- 
Byte, 830 das High-Byte). 

831/832: Endadresse des Programms. 
833-1019: 186 Zeichen langer Pro¬ 
grammname (auf dem Bildschirm wer¬ 
den nur 16 angezeigt, aber es lassen 
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Hex Dezimal 

9006 36870 

9007 36871 
42291 


D016 53270 

DO20 53280 
D021 53281 
DC00 56320 


DC01 56321 
DC05 56325 

DC90 56464 


Beschreibung 


Hex Dezimal Beschreibung 


sich bis 186 Stellen lange Programmna¬ 
men abspeichern). Der Kassettenpuf¬ 
fer ist auch gut zum Ablegen eigener 
Maschinenprogramme geeignet, so¬ 
fern mit der Floppy gearbeitet wird. 
PEEK (36870) liest die Horizontal- 
Position des Lichtgriffels. 

PEEK (36871) liest die Vertikal-Position 
des Lichtgriffels. 

Koppeladressen angleichen: Falls Pro¬ 
gramme mit NEW gelöscht wurden, 
kann man mit diesem SYS-Befehl die 
Byte 2049 und 2050 wieder in Ord¬ 
nung bringen, wenn vorher etwas ande¬ 
res als 0 in diese Speicherzellen gePO- 
KEt wird. 

VIC-Control-Register: Ein horizontales 
Softscrolling kann gePOKEt werden. 
POKE 53270,0 = scrollen nach links 
POKE 53270,1 = scrollen nach rechts 
POKE 53280,Wert setzt die Rahmen- 


DDOO 


DD02 


FF81 

FFD5 


färbe des Bildschirms. 

POKE 53281,Wert setzt die Hinter¬ 
grundfarbe auf dem Bildschirm. 
Joystick Port 2: 

WAIT 56320,16,16 wartet auf Feuer¬ 
knopf 

WAIT 56320,4,4 wartet auf Linksbewe¬ 
gung des Joysticks 
WAIT 56320,1,1 wartet auf Joystick 
nach oben 

WAIT 56320,2,2 wartet auf Joystick 
nach unten 

WAIT 56320,8,8 wartet auf Joystick 


FFE7 


56576 


56578 


65409 

65493 


65511 


Mit PEEK(56576) kann man die Pins 
PB0-PB7 vom User-Port (auf der 
Unterseite des Ports, siehe Handbuch) 
auslesen. Mit POKE in diese Speicher¬ 
stelle kann man auch Ausgaben über 
den User-Port laufen lassen. 
Datenrichtungsregister für User-Port: 
Jedes der Bits gibt die Datenrichtung 
für die Pins PB0-PB7 des User-Ports 
an (Bit gesetzt = Ausgang, Bit nicht 
gesetzt = Eingang). 

SYS 65409 setzt den Video-Chip des 
C64 auf den Ursprungszustand 
zurück. 

LOAD-Routine des Betriebssystems. 
Mit folgender kleiner Routine kann man 
Unterprogramme nachladen, ohne 
irgendwelche Basic-Pointer (wie zum 
Beispiel die Zeiger auf die Endadresse, 
45 und 46) zu verändern: 

POKE 186,1 : POKE 780,0 : 

POKE 781,0 : POKE 782,96 : 

POKE 183,0 : SYS 65493 
Erklärung: 186,1 = Geräteadresse für 
Recorder 

781 und 782 gibt die Startadresse an, 
ab der das Programm geladen werden 
soll. 

183,0 = kein Programmname. 

SYS 65493 = LOAD-Routine. 

Durch SYS 65511 lassen sich alle Files 
schließen. So erspart man sich das 
lästige Eintippen von CLOSEI :CLOSE2: 
CLOSE3... 


nach rechts 

Wie 56320, aber Joystick in Port 1. 
Die Blinksequenz des Cursors kann in 
diesem Byte bestimmt werden. Höhe¬ 
rer Wert = langsamere Blinksequenz. 
Mit POKE 56325,58 wird die normale 
Blinksequenz festgelegt. 

Nach WAIT 56464,16,16 wartet der 
Computer auf den Feuerknopf des Joy¬ 
sticks 2. 


Dabei sollte aber beachtet werden, daß 
auf diese Weise nur der Kanal 
geschlossen wird, aber keine Dateien 
auf einer Disk. 

Grafik und Sprites wurden im Grafikkurs von H. Ponnath und 
im 64'er Sonderheft 4 sehr ausführlich beschrieben. Auf 
PEEKs und POKEs für diesen Bereich wurde daher verzich¬ 
tet. 

(M. Kohlen/kn) 


Die 

Modulfabrik 

Ganz gleich, ob Sie ein Maschinensprache¬ 
oder Basic-Programm in einem EPROM 
speichern möchten - mit dem Modulgene¬ 
rator geht es blitzschnell und komfortabel. 

D er Modulgenerator zeichnet sich gegenüber vielen 
zum Teil mit der Hardware (EPROM-Programmierge- 
rät) mitgelieferten und anderen käuflichen Program¬ 
men dieser Art durch seine einfache, menügesteuerte Bedie¬ 
nung aus. Er ermöglicht das komfortable Generieren eines 
aus bis zu fünf Programmen (Basic oder Maschinensprache) 


bestehenden Auto-Start-Moduls mit Menüsteuerung. Dieses 
Modul kann anschließend mit der Treibersoftware des 
EPROM-Brenners auf ein EPROM übertragen werden. 

Vor der Beschreibung des Modulgenerators selbst sollen 
zuvor der Aufbau und die Funktionsweise der von ihm gene¬ 
rierten Programme erläutert werden. Sie belegen den 
Bereich von $8000 bis $A000 und eignen sich somit zum 
Brennen auf ein 0, beziehungsweise $AFFF, 8 KByte oder 
16 KByte EPROM. Hinter der Modulkennung »CBM 80« für 
den Autostart befindet sich ein kurzes Steuerprogramm zur 
Tastaturabfrage, zum Verschieben und Starten der gespei¬ 
cherten Programme; dahinter sind eine Liste der Programm¬ 
namen sowie eine Tabelle mit wichtigen Adressen: 


Byte 1 und 2: 
Byte 3 und 4: 
Byte 5 und 6: 
Byte 7 und 8: 


Anfangsadresse des Programms 
im Modul 

Endadresse+1 des Programms 
im Modul 

Endadresse+1 des Programms nach 
dem Verschieben 
Startadresse des Programms 
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Zum Verschieben der Programme aus dem EPROM in den 
eigentlichen Speicherbereich wird die Blockverschiebe- 
Routine des Basic-Interpreters ($A3BF) benutzt. Hierbei 
sind die ersten sechs Byte erforderlich. 

Zum Start des Programms werden zunächst die Bytes 7 
und 8 auf Basic-Start geprüft ($0801). Bei positivem Ergeb¬ 
nis wird später ein »RUN«-Befehl simuliert. 

Ist es negativ, wird geprüft, ob diese Bytes gleich Null sind. 
In diesem Fall wird das Programm nicht gestartet, und man 
bleibt weiterhin im Modul-Menü. Auf diese Weise können 
mehrteilige Programme verschoben werden, bevor das 
eigentliche Hauptprogramm gestartet wird (enthaltene 
Nachlade-Befehle müssen bei diesem Programmteil selbst¬ 
verständlich vorher entfernt werden). Enthalten die Bytes 7 
und 8 weder die Basic-Kennung noch die Null-Kennung, wird 
das Programm direkt angesprungen, das heißt mit jmp $xxxx 
gestartet. 

Hinter den beschriebenen Tabellen befinden sich die 
gespeicherten Programme unmittelbar hintereinander. 
Tabelle 1 zeigt noch einmal schematisch den beschriebenen 
Aufbau: 


$8000 

Modulkopf »CBM 80« etc. 

$8009 

Modulname 

$8033 

Initialisierung nach Reset 

$805C 

Steuerprogramm mit Verschiebe- und Startroutine 

$8149 

Text des Modul-Menüs (ASCII-Zeichen) 

$8173 

Programmnamen (maximal fünf je 16 Zeichen) 

$81C3 

Tabelle (Adressen) 

$81EB 

Programm 1 


Programm n 

$9FFF 

letztes Byte 

$A000 

— 


Tabelle 1. Aufbau der generierten Modul-Programme 


Durch das notwendige Steuerprogramm stehen dem 
Anwender bei 8-KByte-Modulen lediglich 30 oder 32 Blöcke 
für die Programme zur Verfügung, was für die meisten 
Anwendungen ausreichend ist. 

Nachdem Aufbau und Funktionsweise der generierten Pro¬ 
gramme kurz erläutert wurden, folgt nun die Beschreibung 
des Modulgenerators. Er belegt das von Basic nicht benutzte 
RAM von $C000-$CFFF. Nach dem Kopieren des eben 
beschriebenen Modul-Steuerprogramms nach $8000 befin¬ 
det man sich in einem Menü, das folgende Programmpunkte 
enthält: 

Fl Directory 
F3 Disc Commands 
F5 File Load 
F7 Save Modul 
F8 Quit 

Nach der Betätigung einer der Funktionstasten prüft der 
Modulgenerator, ob die Diskette (Gerätenummer 8) einge¬ 
schaltet ist. Wenn nicht, ertönt ein akustisches Signal, und es 
wird eine Fehlermeldung ausgegeben (»Device not pre¬ 
sent«), Bei erfolgreichem Test wird das gewünschte Menü- 
Unterprogramm gestartet. Jedes Unterprogramm ist durch 
Eingabe eines »RETURN« zu verlassen, so daß man sich die 
einzelnen Programmpunkte ruhig ansehen kann. 

Der erste Programmpunkt bedarf sicherlich keiner näheren 
Erläuterung. 

Das zweite, mit der Funktionstaste F3 gestartete Unterpro¬ 
gramm, dient dem Senden von Floppy-Systembefehlen 
(Scratch, Rename, Copy, Format, Validate, Initial., etc.), mit 
dem auch das Listen von Teilen der Directory möglich ist, zum 
Beispiel: 


»$:T?A*« listet alle Programme des Directory, deren erster 
Buchstabe ein »T« und deren dritter Buchstabe ein »A« ist. 

Die Eingabe des Floppy-Kommandos muß im Modulgene¬ 
rator ohne Anführungsstriche erfolgen. 

Das dritte Unterprogramm des Modulgenerators (F5) dient 
dem Laden beziehungsweise Anhängen (Merge) eines Pro¬ 
gramms an das Modul-Programm (ab Adresse $81EB), 
beziehungsweise an das zuletzt geladene. Wird dieses 
Unterprogramm gewählt, werden auf dem Bildschirm die 
Anzahl freier Bytes, die Anzahl freier Blöcke und die Anzahl 
der bereits geladenen Programme angezeigt. Ist diese Zahl 
bereits fünf, erscheint kurz die Meldung »Out of Memory«, 
und man befindet sich wieder im Hauptmenü. Andernfalls 
erscheint »Filename:«, und man kann den Namen des 
gewünschten Programms eingeben. Drückt man dagegen 
nur die »RETURN«-Taste, gelangt man, wie bereits erwähnt, 
ins Hauptmenü zurück. Nach der Eingabe des Fiienamens 
und »RETURN« wird versucht, das Programm zu laden. Tritt 
dabei ein Fehler auf (zum Beispiel File not found), wird dies 
unverzüglich angezeigt und zum Hauptmenü zurückgesprun¬ 
gen. Benötigt das geladene Programm mehr Speicherkapazi¬ 
tät als im Modul vorhanden, wird dies hinterher mit »Out of 
Memory« angezeigt und das Programm als nicht geladen 
betrachtet. 

Nach erfolgreichem Ladevorgang (Meldung »00,OK,00, 
00«) fragt das Programm, ob die Ladeanfangsadresse auch 
die Startadresse ist. Bei Ladeanfangsadresse $0801 fragt 
er, ob das Programm mit »RUN«, andernfalls ob es mit »SYS 
Anfangsadresse« gestartet werden soll. Diese Frage ist mit 
»J« oder »N« zu beantworten. Wird die Frage bestätigt, 
erscheint »O.K.«, und man befindet sich wieder im Haupt¬ 
menü. Bei »N« wird man nach der dezimalen (Integer-Zahl) 
Sta,Iresse des Files gefragt (»Start mit SYS:?«). Wird an 
dieser Stelle lediglich die »RETURN«-Taste gedrückt, wird 
das Programm später im Modul lediglich verschoben (nicht 
gestartet!). Die Filenamen und die Adressen (Anfang, Ende 
und Start) werden in die Tabellen des Modul-Programms ein¬ 
getragen, bevor in das Hauptmenü des Modulgenerators 
zurückgesprungen wird. Ist das Modul-Programm erstellt, 
kann es mit dem vierten Menüpunkt (F7) abgespeichert wer¬ 
den. Zunächst wird wiederum nach dem Filenamen gefragt, 
unter dem das Programm auf der Diskette abgelegt werden 
soll. Der eingegebene Filename des Moduls erscheint später 
auch mit dem Zusatz »Modul-Version« in der obersten Bild¬ 
schirmzeile des Modul-Menüs und sollte deshalb sinnvoll 
gewählt werden. 

Gespeichert wird immer der gesamte Bereich von $8000 
bis $A000 (beziehungsweise bis $AFFF), so daß 33 Blöcke 
(66 Blöcke) auf der Diskette belegt werden. 

Nach dem Speichern kann man mit dem letzten Punkt*des 
Menüs (F8) den Modulgenerator verlassen. Wurde ein Pro¬ 
gramm geladen, das Modul jedoch nicht gespeichert, 
erscheint der Hinweis »Warning - Changes Not Saved. Quit 
(J/N)«. Bei Eingabe von »J« wird man gefragt, ob man das 
Modul testen oder zurück zu Basic will. Beim Modultest wird 
lediglich ein Software-Reset ausgelöst, mit dem man direkt in 
das erstellte Modul-Programm gelangt und die integrierten 
Files mit den Tasten 1-n (n=maximal 5) starten kann. 

Bei »Quit TO Basic« wird das Programm mit einem »rts« 
(entspricht dem Basic-Befehl »end« verlassen. Der Modul¬ 
generator befindet sich weiterhin im RAM (Basic-RAM und ab 
Adresse $C000) und kann deshalb sowohl mit »RUN« als 
auch mit »SYS 49152« neu gestartet werden. 

Einen Warmstart des Modulgenerators (Start ohne Verlust 
der bereits geladenen Files) erreicht man durch Eingabe von: 
»SYS 49175«. 

Der Modulgenerator (Listing) wird mit dem MSE eingege¬ 
ben. (Norbert Jungmann/aw) 
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Programm 

: modulgen 



0801 

1436 

0af 9 


a9 

00 

8d 

fc 

cf 

4c 

6c 

c6 

44 

0e09 


20 

20 

20 

36 

34 

20 

4b 

42 

fe 












0b01 


ad 

fd 

cf 

0a 

0a 

0a 

aa 

aB 

bf 

Bell 

: 

49 

54 

20 

20 

28 

38 

20 

4b 

ec 












0b09 


00 

b9 

d0 

cf 

9d 

dl 

81 

e8 

54 

0el9 


42 

29 

0d 

00 

12 

ad 

c3 

bd 

4c 

0B01 


0d 

08 

cl 

07 

9e 

28 

32 

30 

bB 

0b 11 


cB 

C0 

0B 

dB 

f 4 

ae 

fd 

cf 

b2 

0e21 

s 

92 

0d 

00 

12 

b0 

c3 

ae 

92 

85 

0809 


36 

33 

29 

00 

00 

00 

a9 

2d 

24 

0b 19 


Ba 

0a 

0a 

0a 

0a 

aa 

a0 

00 

e5 

0e29 


0d 

00 

12 

dd 

32 

dd 

92 

20 

13 

0811 


85 

5f 

a9 

08 

85 

60 

a9 

36 

20 

0b21 


b9 

e0 

cf 

9d 

Bl 

81 

cB 

e8 

0b 

0e31 

: 

20 

31 

32 

38 

20 

4b 

42 

49 

75 

0B19 


B5 

5a 

a9 

14 

BS 

5b 

a9 

59 

45 

0b29 


c4 

b7 

30 

f 4 

ee 

fd 

cf 

ad 

ed 

0e39 

s 

54 

20 

28 

31 

36 

20 

4b 

42 

e4 

0821 


85 

58 

a9 

cf 

85 

59 

20 

bf 

5a 

0b31 


fd 

cf 

Bd 

56 

81 

ad 

d2 

cf 

b4 

0e41 

: 

29 

0d 

00 

12 

ad 

c3 

bd 

92 

48 

0B29 


a3 

4c 

50 

c3 

a9 

00 

8d 

f d 

4c 

0b 39 


Bd 

fe 

cf 

ad 

d3 

cf 

Bd 

ff 

el 

0e49 

: 

0d 

00 

ii 

11 

ld 

ld 

ld 

ld 

26 

0831 


cf 

a9 

ff 

Bd 

fc 

cf 

a9 

05 

85 

0b41 


cf 

a9 

19 

a0 

cc 

4c 

le 

ab 

3e 

0e51 

: 

ld 

id 

ld 

ld 

45 

4e 

54 

45 

Ba 

0839 


Bd 

20 

d0 

a9 

00 

Bd 

21 

d0 

d2 

0b49 


18 

a9 

05 

a0 

ff 

a2 

ff 

ca 

36 

0e59 

: 

52 

20 

44 

49 

53 

4b 

20 

43 

8c 

0841 


20 

62 

c8 

a2 

M 

86 

fb 

bd 

bB 

0b51 


d0 

fd 

88 

d0 

fa 

e9 

01 

c9 

f 2 

0e61 

8 

4f 

4d 

4d 

41 

4e 

44 

3a 

0d 

de 

0849 


ab 

ca 

e8 

e0 

00 

dB 

03 

ee 

20 

0b59 


00 

d0 

f 4 

4c 

67 

c3 

a9 

ca 

59 

0e69 

: 

0d 

ld 

ld 

3d 

3e 

00 

11 

9d 

57 

0851 


6d 

c3 

c9 

00 

f0 

06 

20 

d2 

78 

0b61 


a0 

cb 

20 

le 

ab 

20 

60 

a5 

3b 

0e71 

: 

9d 

3c 

20 

44 

45 

56 

49 

43 

70 

0859 


ff 

4c 

6b 

c3 

e6 

fb 

a5 

fb 

ae 

0b 69 


84 

7b 

86 

7a 

20 

73 

00 

20 

7a 

0e79 

: 

45 

20 

38 

20 

4e 

4f 

54 

20 

dl 

0861 


c9 

10 

f0 

0a 

8a 

48 

20 

3d 

96 

0b71 


f 3 

bc 

20 

f 7 

b7 

a5 

14 

a6 

10 

0e81 

: 

50 

52 

45 

53 

45 

4e 

54 

20 

Be 

0B69 


c4 

6B 

aa 

4c 

6b 

c3 

20 

3e 

67 

0b79 


15 

Bd 

d6 

cf 

Be 

d7 

cf 

4c 

84 

0e89 

8 

3e 

91 

91 

0d 

00 

11 

20 

50 

40 

0B71 


fl 

f0 

fb 

c9 

BS 

f0 

lf 

c9 

02 

0b81 


19 

c6 

ad 

fc 

cf 

c9 

00 

fB 

35 

0e91 

: 

52 

45 

53 

53 

20 

12 

3c 

52 

ed 

0B79 


87 

f0 

12 

c9 

88 

f0 

14 

c9 

2a 

0b89 


07 

ad 

fd 

cf 

d0 

if 

fB 

41 

2c 

0e99 

: 

45 

54 

55 

52 

4e 

3e 
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Die besten 
Tips und 
Tricks 

Es ist einfach lästig, immer wieder -zig 
Hefte nach einem bestimmten Trick durch¬ 
suchen zu müssen. Deshalb haben wir 
die wichtigsten und interessantesten Tips 
und Tricks aus früheren 64’er-Ausgaben 
für Sie zusammengestellt. 

K ennen Sie folgende Situation? Man sitzt vor einem 
Programmierproblem und erinnert sich - da stand 
doch mal was bei den Tips und Tricks. Ein Stapel 
64’er wird geholt, und die Sucherei geht los. Wir wollen da 
Abhilfe schaffen. Auf den folgenden Seiten finden Sie unter 
anderem kurze Programme zu den Themen: Basic-Program- 
me retten und verbinden, Bildschirm speichern, Cursor steu¬ 
ern, Listschutz, Maschinenprogramme speichern, PET- 
Simulation, Reset-Hilfen. 

Basic-Programme verbinden 


So : ich einen C 64-Besitzer wird es schon geärgert 
haben, daß sein Computer keinen MERGE-Befehl besitzt. Mit 
wenig Aufwand ist es aber dennoch möglich, Basic- 
Programme aneinanderzuhängen: 

1. Im Direktmodus »PRINT PEEK(43); PEEK(44)« eingeben 
und sich die Ergebnisse merken. 

2. Das erste Programm normal laden. 

3. Erscheint jetzt nach »PRINT PEEK(45)« eine Null oder 
eine Eins, dann geben Sie »POKE 43, 256 + 
PEEK(45) - 2 : POKE 44, PEEK(46) - 1 : NEW« ein. Im 
anderen Fall wird »POKE 43, PEEK(45) - 2 : POKE 44, „ 
PEEK(46) : NEW« eingegeben. 

4. Nun wird das anzuhängende Programm geladen (Ach¬ 
tung! Das anzuhängende Programm muß die höheren Zeilen¬ 
nummern haben). 

5. Jetzt POKEn Sie in die Speicherstellen 43 und 44 die 
zu Anfang gemerkten Werte. 

Beide Programme sind nun verbunden. Wichtig bei der 
ganzen Prozedur ist, daß keine Variablen definiert werden, da 
das MERGEn sonst nicht richtig funktioniert. 

(Thomas Lopatic) 

Basic-Programme retten 


Die Betriebssystemroutine »Angleich von Koppeladressen« 
ab Adresse 42291 ermöglicht ein schnelles und einfaches 
»UNNEW« nach einem versehentlichen »NEW« oder Reset: 
POKE 2049,1 : POKE 2050,1 : SYS 42291 
Danach kann zumindest wieder geLISTet werden. Ein voll¬ 
ständiges »UNNEW« verlangt allerdings die Korrektur der 
Zeiger auf den Beginn der Variablen und Felder. Dazu wäre 
die Kenntnis der Programmlänge notwendig. Man kann sich 
aber behelfen, indem man das Programm notfalls in Teilen auf 
dem Bildschirm auf LISTet und die einzelnen Zeilen mit der 
RETURN-Taste neu übernimmt. (Gerhard Wagner) 
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C 64 


UNNEW 


Haben Sie ein Programm versehentlich mit NEW gelöscht, 
hilft UNNEW: 

100 FOR 1=525 TO 578 
120 READ A : POKE I,A : NEXT I 
200 POKE 43,525 AND 255 : POKE 44,2 
210 POKE 45,578 AND 255 : POKE 46,2 
220 CLR : SAVE " UNNEW",8 : REMbzw. ,1,1 
300 DATA 160,003,200,177,043,208,251,200 
310 DATA 200,152,160,000,145,043,165,044 
320 DATA 200,145,043,133,060,160,000,132 
330 DATA 059,162,000,200,208,002,230,060 
340 DATA 177,059,208,245,232,224,003,208 
350 DATA 242,200,208,002,230,060,132,045 
360 DATA 164,060,132,046,096,256 
Wenn Sie dieses Programm eingeben und starten, wird ein 
Programm namens »UNNEW« auf Diskette geschrieben. Falls 
Sie aus Versehen NEW eingetippt haben, dann laden Sie das 
Programm durch 
LOAD "UNNEW" ,8,1 
und starten es durch 
SYS 525 


Bildschirm auf Kassette/Diskette 


Das kurze Maschinenprogramm (Listing 1) dient dazu, den 
Bildschirminhalt beim Commodore 64 zu speichern und auch 
wieder einzuladen. Dies kann mit einem Recorder oder Dis¬ 
kettenlaufwerk geschehen. Dabei werden außer dem eigent¬ 
lichen Bildschirmspeicher (der an eine beliebige Stelle ver¬ 
schoben sein kann und nicht ab Adresse 1024 liegen muß) 
auch das Coior-RAM und die Tabelle der Doppelzeilenkenn- 


0 REM SCREENSAVER 64 <057> 

1 D=55:A=PEEK<56)*256+PEEK<D)-222:G0SUB 4s 

CLR:S=PEEK< 56)»256+PEEK(55) < 216 > 

2 FOR I=S TO S+221s READ AsPOKE I,A:NEXT:A= 

S+173:D=S+1:GOSUB 4:D=S+96:GOSUB 4 <101> 

3 PR I NT " tDQWN > SA VE : •• S: PR I NT " LO AD s " S+95: END <255 > 

4 POKE D,A-INT(A/256>*256sPOKE D+1,A/?56:R 

ETURN <071> 

5 DATA 32,,,162,4,177,7,145,9,200,208,249, 

230,8,230,10,202,208,242,162,24,1B1 <234> 

6 DATA 217,157,231,163,202,208,248,162,218 

,202,202,134,8,177,7,41,15,133,11,232 <117> 

7 DATA 232,134,B,177,7,10,10,10,10,5,11,14 

5,9,200,208,229,230,10,224,219,20B,224 <230> 

8 DATA 169,160,133,8,165,1,72,41,254,133,1 

,169,7,162,244,160,165,32,216,255,170 <038> 

9 DATA 104,133,1,138,176,1,96,76,249,224,3 

2,,,169,,32,213,255,176,243,165,1,72 <130> 


10 DATA 41,254,133,1,162,4,160,,177,9,145, 

7,200,208,249,230,B,230,10,202,20B,242 <154> 

11 DATA 162,24,189,231,163,149,217,202,208 

,248,162,218,202,202,134,8,177,9,145,7 <100> 

12 DATA 232,232,134,8,74,74,74,74,145,7,20 


0,208,235,230,10,224,219,208,230,104 <131> 

13 DATA 133,1,96,32,87,226,162,1,32,121,,2 

40,3,32,241,183,160,2,32,186,255,173, <036> 

14 DATA 221,73,3,133,8,173,24,208,41,240,7 

0,8,106,70,8,106,133,8,160,,132,7,132 <047> 

15 DATA 9,169,160,133,10,96 <051> 

16 CLRs FOR Q=.TO 221:READ A:X=A+X:Y=A—Y:NE 

XT <057> 

17 PRINT"CDOWNJCHECKSUM "MID*("ERROR OK",1 

—5* <X=27349 AND Y=-217),5):END <027> 


© 64■'er 

Listing 1. Listing zu »Bildschirm auf Kassette/Diskette« 


Zeichnungen mitberücksichtigt. Das Speichern und Laden 
erfolgt über einen Pufferbereich im »versteckten« RAM ab 
40960, da die drei verschiedenen Speicherbereiche in 
einem Stück gespeichert und außerdem die 1000 Farbnib- 
bles zu 500 Bytes zusammengeschoben werden. Das er¬ 
spart beim Arbeiten mit dem Recorder wertvolle Zeit. 

Nach dem Eintippen des Basic-Loaders kann durch »RUN 
16« geprüft werden, ob es richtig eingegeben wurde. Trotz¬ 
dem sollte es vor dem Start gespeichert werden, da auch 
durch Prüfsummen nicht alle Fehler erkannt werden können. 
Ausgegeben werden zwei Adressen für das Laden und Spei¬ 
chern. Das Programm kann an jede Stelle des Arbeitsspei¬ 
chers geladen werden, in der vorliegenden Version lädt es 
sich an das Ende des Basic-Arbeitsspeichers. Es ist davon 
auszugehen, daß das Programm direkt nach dem Einschalten 
ohne andere Erweiterungen geladen und gestartet wird. 

Soll ein Bildschirminhalt auf Diskette gespeichert werden, 
so erfolgt dies durch 
SYS 40738 "FILENAME", 8 

Beim Arbeiten mit Recorder kann (auch beim Laden) die 
Gerätenummer entfallen; die Angabe einer Sekundäradresse 
ist nicht erlaubt. Durch das Speichern bedingte Betriebs¬ 
systemmeldungen wie »PRESS RECORD & PLAY« sowie das 
Scrolling des Bildschirms sind unbedeutend und werden 
nicht berücksichtigt. Alle Bildschirmdaten werden zuvor in 
einen Zwischenspeicher übertragen. 

Das Laden solcherart gespeicherter Bildschirminhalte 
geschieht mit 

SYS 40833 "FILENAME", 8 

Zunächst werden die Daten in den Puffer von Adresse 
40960 bis 42483 geladen und dann in MSB-Tabelle, Farb- 
speicher und die momentan gewählte Videomatrix über¬ 
tragen. 

(Ralph Babel) 

Cursorsteuerung leichtgemacht 


Bei professionellen Programmen der PC-Klasse kann der 
Cursor meist über Eingabegeräte wie die Maus positioniert 
werden. Daß es auch recht gut mit dem Joystick und dem C 
64 funktioniert, beweist dieses Programm. 

Haben Sie den kurzen MSE-Lader (Listing 2) eingetippt 
und gestartet, können Sie den Cursor mit einem Joystick in 
Port 2 steuern. Das Steuerprogramm befindet sich von 
Adresse $C000 bis SC066 im Speicher. Die ersten 15 Bytes 
nimmt eine Initialisierungsroutine in Anspruch, die den Inter- 


PROGRAMM : CURSOR C000 C066 


C000 

■ 

A9 

0F 

8D 

14 

03 

A9 

C0 

8D 

B2 

C008 

: 

15 

03 

A9 

06 

85 

02 

60 

C6 

41 

C010 

» 

02 

F0 

03 

4C 

31 

EA 

A9 

06 

F2 

C01S 

: 

85 

02 

A6 

C6 

E0 

08 

90 

03 

B7 

C020 

• 

• 

4C 

31 

EA 

AD 

00 

DC 

29 

01 

03 

C028 

■ 

■ 

C9 

00 

D0 

05 

A9 

91 

20 

5E 

2A 

C030 

: 

C0 

AD 

00 

DC 

29 

02 

C9 

00 

2C 

C038 

: 

D0 

05 

A9 

11 

20 

5E 

C0 

AD 

6B 

C040 

■ 

00 

DC 

29 

04 

C9 

00 

D0 

05 

63 

C048 

■ 

■ 

A9 

9D 

20 

5E 

C0 

AD 

00 

DC 

C7 

C050 

: 

29 

08 

C9 

00 

D0 

05 

A9 

ID 

06 

C058 

: 

20 

5E 

C0 

4C 

31 

EA 

A6 

C6 

F4 

C060 

: 

9D 

77 

02 

E6 

C6 

60 

00 

A0 

C7 


Listing 2. Listing zu »Cursorsteuerung leichtgemacht«. 
Das Programm muß mit dem MSE eingegeben werden. 
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TIPS&TRICKS 


10 REM********************************* 

20 REM» CURSOR STEUEREUNG * 

30 REM* 


* 

65 REM* 

PETER SIEPEN * 

70 REM* 


* 

75 REM* 

VON-STEPHAN- 

STR.6 * 

B0 REM* 


* 

82 REM* 

4200 OBERHAUSEN 1 * 

B4 REM* 


* 

85 REM* TELEFON :(0208)/26555 * 

90 REM********************************* 

95 : 




100 SYS9*4096 


110 

DPT P,00 


111 




112 




113 




114 




120 

= *C000 



125 




130 




140 




150 TEST = 

*02 

;ZAEHLVARIABLE 

160 JOY 

56320 

;PORT #2 

170 AZITP = 

*C6 

;ANZAHL ZEICHEN IM PUFFER 

174 




175 




180 LDA #<BEGINN;INTERUPTVEKTOR 

185 STA *314 


190 LDA #>BEGINN;AUF NEUE 

195 STA *315 

;ADDRESSE SETZEN 

200 LDA #*06 

;ZAEHLVARIABLE 

205 STA TEST 

;HOCHSETZEN 

210 RTS 

; ZURUECK ZU BASIC 

215 




220 




225 




300 BEGINN 

DEC TEST 


320 : 

BEQ START 

;GENUG LEER IRR 

330 


JMP *EA31 

;NEIN WEITER MIT IRR 

340 START 

LDA #*06 

;ZAEHLVARIABLE HOCHSETZEN 

350 


STA TEST 


360 : 

LDX AZITP 

;TASTATURPUFFER 

370 


CPX #*08 

; VOLL 

380 : 

BCC WEITER 


390 


JMP *EA31 

;JA WEITER MIT INTERUPT 

400 WEITER 

LDA JOY 

;WENN JOY NICHT 

410 


AND #1 

;NACH OBEN 

420 


CMP #0 

;WEITER 

430 


BNE NOBEN 


440 


LDA #"□" 

;WENN JA STEUERZEICHEN 

450 


JSR AUSG 

;AUSGEBEN 

460 NOBEN 

LDA JOY 


470 


AND #2 


4S0 


CMP #0 


490 


BNE NUNTEN 


500 


LDA #”B" 


510 


JSR AUSG 


520 NUNTEN 

LDA JOY 


530 


AND #4 


540 


CMP #0 


550 


BNE NLINKS 


560 


LDA #"ll" 


570 


JSR AUSG 


580 NLINKS 

LDA JOY 


590 


AND #8 


600 


CMP #0 


700 


BNE NRECHTS 

710 


LDA #''#1'’ 


720 


JSR AUSG 


730 NRECHTS 

JMP *EA31 


740 




750 




760 




770 




780 




790 




B00 AUSG 

LDX *C6 

;X—REG FUER 

810 


STA *277,X 

;INDIZIERTE 

B20 


INC AZITP 

;ADDRESSIERUNG 

830 


RTS 

;LADEN 

B40 



;IN TASTPUFFER 

850 



;SCHREIBEN 

860 



;ANZAHL ZEICHEN 

870 



;IM TASTPUFFER 

880 



;ERHOEHEN 

890 




900 


Listing 3. 

Assemblerprogramm der 


Cursorsteuerung 


ruptvektor auf $COOF legt und das Steuerprogramm in den 
Kernelinterrupt einbindet. Die Routine wird mit SYS 49152 
aufgerufen. Das Programm benutzt Speicherzelle $02 als 
Zählregister, da der Joystick nur bei jedem sechsten Interrupt 
abgefragt wird. In Zeile 300 des Assemblerlistings (Listing 3) 
wird die Zählvariable um 1 erniedrigt. Ist die Variable 0, wird 
sie auf 6 gesetzt und in die Steuerungsroutine verzweigt. Ab 
Zeile 360 wird der Tastaturpuffer auf freien Platz überprüft. 
Sollte der Puffer voll sein, wird sofort in die Interruptroutine 
des Betriebssystems ($EA31) gesprungen. In Zeile 400 wird 
der Joystick abgefragt und das entsprechende Cursorsteu¬ 
erzeichen in den Akku geladen. Ab 800 wird das Zeichen in 
den Tastaturpuffer geschrieben und der Pufferzeiger erhöht. 

(P. Siepen) 

Cursor steuern 


Das Betriebssystem des C 64 enthält eine Routine, die man 
benutzen kann, um den Cursor an eine beliebige Stelle zu 
setzen. Geben Sie doch mal folgendes ein: 

P0KE 214, (Zeile) : P0KE 211, (Spalte) : SYS 58640 : 
PRINT " TEXT" (Michael Keukert) 


Cursor beschleunigt 


Für alle diejenigen C 64-Besitzer, denen die Bewegung des 
Cursors bisher zu langsam war, gibt es einen speziellen 
POKE. 

Mit POKE 56325,5 wird der Cursor rasend schnell und flitzt 
bei Betätigung der Cursortasten nur noch so über den Bild¬ 
schirm. Wer’s lieber gemütlicher mag, der sollte es statt des¬ 
sen einmal mit POKE 56325,255 probieren. 

(Oliver Bausch) 


Directory ohne Programmverlust 


Häufig möchte man sich das Directory einer Diskette anse- 
hen, ohne das gerade im Speicher befindliche Programm zu 
zerstören. Wenn man das DOS 5.1 nicht geladen hat, behilft 
man sich meist mit der zeitaufwendigen Zwischenspeiche¬ 
rung des Programms auf der Diskette. Es geht jedoch auch 
einfacher und schneller. Geben Sie einfach den folgenden 
Befehl ein: 

POKE 44, PEEK(46) + 1 

Damit wird der Basic-Anfang auf einen freien Speicherbe¬ 
reich gestellt. Sie können jetzt wie gewohnt mit »LOAD "$ ", 8« 
das Directory laden und anschließend auf listen. 

Mit POKE 44,8 sind Sie dann wieder im eigentlichen Pro¬ 
gramm. 

(Heinzpeter Oelkers) 

Floppy-Lister 


Mit einem einfachen SYS-Aufruf können Sie Programme und 
sequentielle Dateien direkt von Diskette listen. Programme 
im Speicher bleiben dabei erhalten. 

»Floppy-Lister« bietet zwei Möglichkeiten, ein Programm 
von Diskette zu listen. Basic-Programme und sequentielle 
Dateien können entweder als Klartext oder als Speicheraus¬ 
zug (Dumps) gelistet werden. Im Dumpmodus werden sämtli¬ 
che Daten als Hexcodes ausgegeben und, soweit möglich, in 
ASCII-Zeichen übersetzt. Deshalb eignet er sich besonders 
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zum Analysieren von unbekannten Programmdateien. 
Maschinenprogramme dürfen grundsätzlich nur auf diese Art 
gelistet werden, will man einen Absturz vermeiden. 

Ist das Ladeprogramm (Listing 4) mit dem MSE eingetippt, 
kann das Maschinenprogramm auf Diskette oder Kassette 
gespeichert werden. Der »Floppy-Lister« kann dann direkt 
geladen (LOAD "name? 8, 1 , oder LOAD "name", 1 , 1) 
und mit SYS 49152, "XY: f ilename " aufgerufen werden. Ver¬ 
gessen Sie nach dem absoluten Laden nicht, den erforderli¬ 
chen NEU-Befehl im Direktmodus einzugeben, um die Basic- 
Zeiger in einen vernünftigen Zustand zu bringen. »X« steht für 
die Fileart: entweder »P« für Programm oder »S« für sequen¬ 
tielle Datei. »Y« steht für den Modus, in dem gelistet werden 
soll: »L« für einfaches Listen und »D« für Ausgabe in Form 
eines Speicherauszugs. Zum Beispiel listet der Befehl SYS 
49152, "SL:TESTSEQUENZ" eine sequentielle Datei mit dem 
Namen »TESTSEQUENZ«. Abkürzungen des Filenamens mit 
»*« sind erlaubt. Falsche Eingaben werden mit einer Fehler¬ 
meldung quittiert. 

Mit der CTRL-Taste kann die Ausgabe verlangsamt und mit 
der RUN/STOP-Taste unterbrochen werden. Eine Fortset¬ 
zung erfolgt mit der A-, und vorzeitiger Abbruch des Listens 
mit der DEL-Taste. Am Ende eines Listings muß immer die 
SPACE-Taste gedrückt werden. 

Das Maschinenprogramm für »Floppy-Lister« liegt im 
Bereich von $C000 -$C2B2 (49152-49842). An das Pro¬ 
gramm schließt sich noch ein Pufferbereich an, wo Daten zwi¬ 
schengespeichert werden. "Floppy-Lister" läuft mit den gän¬ 
gigen Erweiterungen, wie DOS 5.1, Simons Basic und 
Exbasic. 

(B. Schulzki) 


Joystickabfrage: 


Auch die Joystickabfrage ist beim C64 nicht ganz einfach. 
Dabei hilft folgendes Hilfsprogramm: 

10 POKE 56322,224 


20 J0=PEEK(56320) 

30 IF (JO AND 1)=0 THENPRINT " OBEN * 
IF (JO AND 2)=0 
IF (JO AND 4)=0 


40 

50 

60 

70 


THENPRINT"UNTEN" 

THENPRINT"LINKS" 

IF (J0 AND 8) =0 THENPRINT "RECHTS" 

IF (J0 AND 16) =0 THENPRINT "FEUER" 

Dieses Programm gilt für eine Joystickabfrage am Control¬ 
port 2. 

Com modore-Joystick verbessert 

Der Commodore-Joystick VIC-1311 benötigt eine relativ 
große Hebelbewegung, um die Kontakte zu schließen. Bei 
Spielen, die eine hohe Reaktionsgeschwindigkeit erfordern, 
ist diese Eigenschaft sehr ungünstig. Man kann jedoch recht 
einfach Abhilfe schaffen: 

Man entfernt die vier Schauben an der Unterseite des 
Gehäuses und hebt den oberen Teil des Joysticks mit der Pla¬ 
tine vorsichtig ab. Nun wird die Platine an den Durchtrittsöff¬ 
nungen der Schrauben mit je einer etwa 1 Millimeter dicken 
Unterlegscheibe verstärkt. Die vier Unterlegscheiben köi> 
nen mit einem Tropfen Alleskleber (Vorsicht, nicht £)i6i Kon¬ 
takte verkleben!) gegen Verrutschen gesichert werden. 
Danach wird der Joystick wieder zusammengeschraubt. 
Wenn Sie alles richtig gemacht haben und insbesondere 
keine Teile übriggeblieben sind, dann werden die Kontakte 
des Joysticks nun bei erheblich kleineren Hebelbewegungen 
geschlossen. 

(M. Kunze) 


Programm s fXoppylister 


C000 c2b5 




C000 

s 

20 

fd 

ae 

20 

9e 

ad 

20 

a3 

ee 

C000 

3 

b6 

aS 

64 

85 

a7 

a5 

65 

85 

a3 

C010 

: 

aB 

a0 

08 

bl 

a7 

99 

lf 

c3 

8a 

0018 

3 

cB 

C0 

03 

90 

f 6 

ad 

lf 

c3 

f 4 

C020 

3 

c9 

14 

b0 

le 

c9 

04 

90 

24 

2a 

C028 

3 

a0 

00 

ad 

21 

c3 

85 

aB 

ad 

be 

C030 

3 

20 

c3 

85 

a7 

bl 

a7 

99 

22 

Bb 

C038 

I 

c3 

c8 

cc 

lf 

c3 

d0 

f 5 

4c 

a9 

C040 

3 

33 

C0 

a9 

6f 

a 0 

c 2 

20 

le 

2B 

0048 

3 

ab 

4c 

74 

a4 

a9 

88 

a 0 

c2 

b2 

C050 

3 

4c 

46 

C0 

a 2 

00 

bd 

22 

c3 

42 

C058 

3 

8d 

la 

c3 

09 

50 

f0 

08 

c9 

5f 

0060 

1 

53 

d0 

e9 

a 0 

04 

dB 

02 

a0 

ba 

0068 

3 

00 

•8 

bd 

22 

c3 

c9 

4c 

fB 

2 e 

C070 

1 

06 

c9 

44 

d0 

d7 

c8 

c8 

e8 

3f 

C078 

3 

bd 

22 

c3 

c9 

3a 

dB 

cd 

Bc 

eb 

0080 

3 

0 e 

c3 

ae 

lf 

c3 

a9 

2 c 

48 

ca 

C08B 

3 

9d 

22 

c3 

aB 

ad 

le 

c3 

9d 

5a 

0090 

e 

22 

c3 

68 

e8 

9d 

22 

c3 

a9 

18 

C09B 

3 

52 

eB 

9d 

22 

c3 

a9 

00 

eB 

65 

C0a0 

3 

9d 

22 

c3 

ee 

lf 

c3 

ad 

2B 

34 

O 0 a 8 

3 

03 

8d 

0f 

c3 

ad 

29 

03 

8d 

f 9 

cBbB 

3 

10 

c3 

a9 

22 

Bd 

28 

03 

a9 

ca 

C0b8 

3 

c2 

Bd 

29 

03 

ad 

lf 

c3 

a2 

14 

C0C0 

3 

25 

a 0 

c3 

20 

bd 

ff 

a9 

02 

bl 

O0c8 

3 

a 2 

0B 

a 0 

02 

20 

ba 

ff 

20 

ef 

O0d0 

3 

C0 

ff 

a 2 

02 

20 

c6 

ff 

ac 

0 a 

O0d8 

3 

0B 

c3 

b9 

ab 

c2 

8d 

11 

c3 

10 

cBeB 

3 

b9 

ao 

c2 

Bd 

12 

c3 

6c 

11 

65 

cBeB 

3 

c3 

a9 

00 

8d 

13 

c3 

Bd 

14 

df 

C0f0 

3 

c3 

Bd 

15 

c3 

a2 

00 

20 

0f 

00 

C0f 8 


c2 

b0 

03 

4o 

e9 

cl 

20 

cf 

29 

t. 100 

3 

ff 

9d 

16 

c3 

a5 

90 

dB 

05 

f 8 

0108 

3 

e8 

00 

08 

90 

e9 

8d 

15 

c3 

5b 

C110 


a9 

00 

e8 

e 0 

08 

b0 

07 

9d 

6d 

ol 18 

3 

16 

c3 

eB 

4c 

13 

cl 

20 

4c 

2c 

0120 

3 

c2 

ad 

14 

c3 

20 

2 a 

c 2 

ad 

f0 

0 128 

3 

13 

c3 

20 

2 a 

02 

a9 

3a 

20 

Bd 

o 130 

3 

d2 

ff 

a 2 

00 

bd 

16 

c3 

20 

86 

cl38 

3 

23 

c2 

•8 

e0 

08 

90 

f 5 

20 

30 

cl40 

3 

4c 

02 

a9 

12 

20 

d2 

ff 

a 2 

78 

0148 


00 

bd 

16 

c3 

29 

7f 

c9 

20 

lb 

0150 


b0 

04 

a9 

2 e 

dB 

03 

bd 

16 

7b 

C15B 


c3 

20 

d2 

ff 

eB 

eB 

0B 

90 

b7 

0160 

3 

eB 

a9 

0d 

20 

d2 

ff 

ad 

15 

72 

0168 

3 

c3 

d0 

11 

18 

ad 

13 

c3 

69 

30 

c 170 


08 

Bd 

13 

c3 

90 

03 

ee 

14 

81 

0178 

3 

c3 

4c 

f 4 

C0 

4c 

e9 

cl 

20 

12 

cl80 

3 

51 

c 2 

20 

51 

c2 

a2 

ff 

20 

e6 

clB8 

3 

51 

c2 

a5 

a7 

e8 

9d 

b3 

c 2 

68 

cl90 


B0 

03 

90 

f 3 

20 

51 

c 2 

eB 

fe 

0198 

3 

aS 

a7 

9d 

b3 

c2 

d0 

f 5 

eB 

4b 

cla0 

3 

9d 

b3 

c2 

eB 

9d 

b3 

c2 

a9 

ba 

claB 


b3 

85 

5f 

a0 

c2 

84 

60 

20 

lc 

clb0 

8 

37 

aS 

ad 

00 

03 

4B 

ad 

01 

50 

olbB 


03 

48 

a9 

22 

öd 

00 

03 

a9 

c6 

o 1 C0 


c2 

Bd 

01 

03 

20 

c3 

a6 

68 

75 

clcB 

3 

8d 

01 

03 

68 

Bd 

00 

03 

20 

c9 

cld 0 

3 

0f 

c2 

b0 

bl 

4c 

e9 

cl 

20 

fe 

oldS 

3 

cf 

ff 

20 

d2 

ff 

a5 

90 

dB 

la 

c leB 

3 

08 

20 

0f 

c2 

bB 

fl 

4c 

e9 

b4 

cle8 

3 

cl 

2 0 

cc 

ff 

a9 

02 

20 

c3 

9f 

Clf0 

3 

ff 

ad 

0t 

c3 

Bd 

2B 

03 

ad 

84 

clfB 

3 

10 

c3 

8d 

29 

03 

a9 

60 

a0 

b3 

0200 

3 

c2 

20 

le 

ab 

aS 

cb 

c9 

3c 

2B 

c208 

3 

d0 

fa 

a9 

00 

85 

.c6 

60 

a5 

lb 

c 210 

3 

ob 

fO 

0e 

c9 

3f 

d0 

08 

a5 

f 6 

c 218 

3 

ob 

f0 

06 

c9 

0a 

dB 

fB 

38 

92 

c220 

3 

60 

1B 

60 

48 

a9 

20 

20 

d2 

6f 

C22B 

3 

ff 

68 

48 

4a 

4a 

4a 

4a 

20 

17 

c230 

8 

42 

02 

a8 

6B 

29 

Bf 

20 

42 

lb 

0238 

3 

c 2 

48 

98 

20 

d2 

ff 

68 

4c 

b0 

c240 

3 

d2 

ff 

18 

69 

f 6 

90 

02 

69 

14 

c24B 

3 

06 

69 

3a 

60 

a9 

20 

4c 

d2 

10 

c250 

3 

ff 

20 

cf 

ff 

85 

a7 

a5 

90 

a 0 

C25B 

3 

f0 

05 

68 

68 

4c 

e9 

cl 

60 

CB 

c260 

S 

0d 

20 

20 

20 

20 

12 

20 

53 

43 

c268 

3 

50 

41 

43 

45 

20 

Bd 

00 

0d 

57 

c270 

8 

46 

45 

48 

4c 

45 

52 

3a 

20 

05 

0278 

3 

4e 

41 

4d 

45 

20 

5a 

55 

20 

cd 

0 280 

3 

4c 

41 

4« 

47 

20 

21 

Bd 

00 

29 

c288 

3 

0d 

46 

45 

48 

4c 

45 

52 

3a 

bf 

c290 

3 

20 

46 

41 

4c 

53 

43 

48 

45 

a8 

c298 

3 

53 

20 

45 

47 

4e 

47 

41 

42 

lf 

c 2 a 0 

3 

45 

46 

4f 

52 

4d 

41 

54 

20 

97 

c 2 aB 

3 

21 

0d 

00 

7f 

cl 

a9 

C0 

d7 

5e 

c 2 b 0 

3 

cl 

e9 

C0 

32 

a9 

00 

ff 

00 

77 


Listing 4. »Floppy-Lister« 
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List-Schutz für Basic-Programme 


Dieser List-Schutz (Listing 5) ist für Nichteingeweihte sehr 
verblüffend. Die Grundidee dazu stammt aus dem Bericht 
»Disketten-Manipulationen«aus der 64'er, Ausgabe 6/85. Er 
wurde jedoch etwas ausgebaut, so daß hier beim Listen alle 
Steuercodes aktiv werden. Dies wird dadurch erreicht, daß 
man in eine Speicherstelle vor den Codes die Zahl 141 
schreibt. Um nun ein Programm zu schützen, lädt man es und 
gibt zwei Zeilen ein (Listing 5). 

Danach gibt man im Direktmodus ein: 

POKE 2067,71 : POKE 2073,141 : POKE 2118,0 : 

POKE 2119,0 

Listet man nun das Programm, so wird der Bildschirm 
gelöscht und der Text in der REM-Zeile ausgegeben. Durch 
das künstlich erzeugte Basic-Programm-Endezeichen (drei 
Nullen) wird das Listen abgebrochen. Wird im Programm 
dann auch noch durch POKE 788,52 die RUN-STOP-, und 
durch POKE 792,193 die RESTORE-Taste ausgeschaltet, kann 
keiner mehr an das Programm. Aufheben läßt sich dieser List- 
Schutz nur mit einem Monitor und mit der Kenntnis der Funk¬ 
tionsweise des Schutzes. 

(Thomas Uttendorfer) 


1 POKE 2067,73:GOTO 10 <134> 

2 REM"A€CLR,3DQWN,YELLOW>IT IS NOT ALLOWED 

TO LIST THIS PROGRAMIBLUE>AA <123> 

© &»'«• 

Listing 5. Listing zu »List-Schutz für Basic-Programme« 


List- und Löschschutz leichtgemacht 


Es wurden schon viele Methoden veröffentlicht, um ein 
Basic-Programm gegen Listen zu schützen. Aber alle mir 
bekannten Möglichkeiten weisen entschiedene Nachteile 
auf. Entweder der Schutz ist nicht sicher genug und leicht zu 
entfernen, oder er ist viel zu aufwendig. 

Ich habe mich daher entschlossen, ein Programm zu 
schreiben, das diese Mängel umgeht und sogar noch andere 


0 REM ********************************* <131> 

1 REM * <C) U. V. GAISBERG * <195> 

2 REM * AM ZUCKERBERG 70 * <0B0> 

3 REM * 7140 LUDWIGSBURG * <233> 

4 REM * TEL. 07141/55910 * <056> 

5 REM ********************************* <136> 

6 FOR 1=0 TO 340:READ A:B=B+A:POKE 50000+1 

,A <099> 

7 NEXT I <091> 

8 IF B <> 33527 THEN PRINT"FEHLER IN DATAS 

!":END <042> 

9 PRINT-OK !":END <113> 

10 REM DATAS FUER MASCHINENPROGRAMM <157> 

11 DATA 169,0,141,32,208,141,33,208,169,1, 

141,134,2,32,68,229,174,3,8,172 <01B> 

12 DATA 4,8, 192,0,20B,7,224,2, 176,3,76,206 

,195,162,0,142,134,2,169,32,32 <221> 

13 DATA 210,255,232,224,50,208,246,162,0,1 

89,21,196,157,0,4,232,224,29,208 <001> 

14 DATA 245,169,24,157,0,4,232,224,69,208, 

246,162,0,1B9.50,196,157,80,4,232 <190> 

15 DATA 224,B,20B,245,162,0, 189,5B, 196, 157 

,120,4,232,224,8,208,245,162,10 <073> 

16 DATA 160,0,24,32,240,255,169,19,162,13, 

160,4,141,119,2,142,120,2,142,121 <061> 

17 DATA 2,142,122,2,132,198,96,162,0,189,9 

9,196,32,210,255,232,224,31,208 <065> 

18 DATA 245,96,32,68,229,162,10,160,0,24,3 

2,240,255,162,1,142,134,2,202,189 <210> 

19 DATA 66,196,32,210,255,232,224,33,208,2 

45,169,20,162,17,160,255,141,1B <250> 

20 DATA 8,142,29,8,140,4,B,162,0,189,130,1 

96,157,32,8,232,224,34,208,245 <171> 

21 DATA 96,48,18,5,13,34,148,148,148,148,1 

48,148,14B,148,148,148,34,12,12 <122> 

22 DATA 9,19,20,19,3,8,21,20,26,26,76,49,1 

9,25,19,50,48,57,56,19,25,19,53 <045> 

23 DATA 48,49,52,48,80,82,79,71,82,65,77,7 

7,32,45,32,40,67,41,32,85,46,86 <224> 

24 DATA 46,71,65,73,83,66,69,82,71,32,32,4 

9,57,56,52,66,73,84,84,69,32,90 <032> 

23 DATA 69,73,76,69,32,48,32,85,7B,68,32,4 

9,32,69,7B,84,70,69,82,78,69,78 <005> 

26 DATA 32,33,169,255,141,4,8,169,131,162, 

164,141,2,3,142,3,3,76,131,164 <172> 

27 DATA 165,2,141,4,B,169,32,162,B,141,2,3 

,142,3,3,96,0 <150> 

8 M'er 

Listing 6. Listing zu »List- und Löschschutz 
leichtgemacht« 


positive Merkmale aufweist. 

Zunächst eine Zusammenfassung von drei mir bekannten 
Listschutzmöglichkeiten mit ihren Vor- und Nachteilen: 

1. Möglichkeit 

In die erste Zeile des Basic-Programms (zum Beispiel Zei¬ 
lennummer 1) wird REM, gefolgt von zwei Anführungszei¬ 
chen und SHIFT L, geschrieben. 

1 REM " "L (RETURN) 

Der Cursor wird nun auf das zweite Anführungszeichen 
gesetzt und sechsmal SHIFT INST gedrückt (das Anfüh¬ 
rungszeichen wird um sechs Positionen nach rechts gescho¬ 
ben). Dann wird sechsmal DEL eingegeben (es erscheinen 
als Steuerzeichen sechs reverse T) und die Zeile mit 
(RETURN) abgespeichert. Wird nun der LIST-Befehl aufgeru¬ 
fen, meldet sich der Rechner mit: 

7SYNTAX ERROR 
READY. 

Auf den ersten Blick sehr beeindruckend, aber durch Ent¬ 
fernen dieser Zeile ist der Listschutz wieder aufgehoben. 
Außerdem ist ein »LIST 2« noch möglich. 

2. Möglichkeit 

In jede Basic-Zeile werden synthetische Steuerzeichen 
eingefügt (genaue Beschreibung im 64’er-Magazin, Ausgabe 


6/84). Diese Methode ist zwar recht sicher, will man aber alle 
Zeilen eines längeren Basic-Programms schützen, ist der 
Aufwand viel zu groß, vom Speicherplatzbedarf der Steuer¬ 
zeichen ganz abgesehen. 

3. Möglichkeit 

Durch POKE 775,200 wird der Listbefehl außer Kraft 
gesetzt, durch POKE 775,167 wird diese Wirkung wieder auf¬ 
gehoben. Dieser Listschutz ist zwar wirkungsvoll, aber er 
muß erst durch diesen POKE-Befehl aktiviert werden. Nach 
dem Laden eines Programms ist er daher noch nicht aktiv. 

Das hier vorgestellte Programm erzeugt nicht nur einen 
sicheren Listschutz, sondern schützt auch vor dem Löschen 
einzelner Basic-Zeilen. So können zum Beispiel Hinweise auf 
ein Kopierrecht und auf den Autor eines Programms nicht 
geändert oder entfernt werden. Auch kann ein so gesicher¬ 
tes Programm nur mit RUN gestartet werden, ein RUN, 
gefolgt von einer Zeilennummer, führt zu einer Fehlermel¬ 
dung. Jede Zeile des Programms ist geschützt, es können 
also auch einzelne Zeilen nicht gelistet werden. Einzige 
Bedingung für die Verwendung dieses Schutzes: Das zu 
schützende Programm darf keine Zeilennummern 0 und 1 
enthalten. Ansonsten wird eine Fehlermeldung ausgegeben 
und das Programm bleibt unverändert. 
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Das Listschutzprogramm (Listing 6) liegt als Basic-Lader 
vor. Nachdem es richtig abgetippt wurde, kann es durch RUN 
gestartet werden. Das Maschinenprogramm steht dann im 
Speicher ab der Adresse 50000 zur Verfügung. Das zu 
schützende Basic-Programm kann nun geladen werden, 
durch SYS 50000 wird das Schutzprogramm aktiviert und 
das Basic-Programm geschützt. Es kann nun wieder auf Kas¬ 
sette/Diskette gespeichert werden. Das mit dem Listschutz 
versehene Programm ist nur um wenige Bytes größer als 
vorher. 

Funktionsweise 

Das Maschinenprogramm (Listing 6) generiert zwei Basic- 
Zeilen mit den Zeilennummern 0 und 1. Die Zeile 0 ist eine 
REM-Zeile, in der ein unlistbares Zeichen (SHIFT L) steht. 
Hinter diesem Zeichen stehen dann noch zwei kurze Maschi¬ 
nenprogramme, deren Funktionen im folgenden noch erklärt 
werden. In der zweiten Zeile steht ein SYS-Befehl, der eine 
der beiden Maschinenroutinen in Zeile 0 startet. Sind diese 
beiden Zeilen nun erzeugt, wird die Zeilennummer 0 durch 
eine höhere, eigentlich unerlaubte Zeilennummer (größer 
64000) ersetzt. Diese Zeile kann daher auch nicht gelöscht 
werden. 

Da alle nun folgenden Zeilen des Programms kleiner sind 
als die erste, können diese vom Computer nicht mehr erkannt 
werden. Ein Sprung in eine solche Zeile führt zu der Fehler¬ 
meldung: 7UNDEFD STATEMENT ERROR. Es kann daher 
auch keine Zeile gelöscht werden, da diese für den Computer 
ja nicht mehr vorhanden sind. 

Der einzige Nachteil ist, daß es nicht nur ein perfekter List- 
und Löschschutz, sondern auch ein RUN-Schutz ist (auch 
Sprungziele innerhalb des Programms können nicht gefun¬ 
den werden). 

Wird das geschützte Programm gestartet, trifft der Inter¬ 
preter als erstes auf den SYS-Befehl in Zeile 1. Es folgt ein 
Sprung in das Maschinenprogramm in der REM-Zeile. Dort 
wird die Zeilennummer wieder auf 0 gesetzt, und der Vektor 
auf den Basic-Warmstart wird auf die zweite Maschinenrou¬ 
tine gesetzt. 

Nun kann das Basic-Programm ohne Fehler ausgeführt 
werden. Wird der Programmlauf unterbrochen (durch STOP- 
Taste, Fehlermeldungen, Programmende und so weiter), wird 
das zweite Maschinenprogramm über den Basic- 
Warmstartvektor angesprungen. Dort wird die Zeilennummer 
wieder hochgesetzt, der Warmstartvektor wieder auf den 
normalen Wert gebracht und die Warmstartroutine ange¬ 
sprungen. Das Programm liegt nun wieder in der geschützten 
Form vor. 

(Ulrich von Gaisberg) 


Maschinenprogramme auf Tastendruck 


Mit einer kleinen Routine kann man ein Maschinenprogramm 
mit einem Tastendruck aufrufen. Dafür benutzt man ein Zei¬ 
chen, das normalerweise nicht oder nur selten verwendet 
wird. Ich habe mich für das @-Zeichen entschieden. 

Im Interpreter existiert eine Schleife, die einen Basic- 
Befehl holt und ausführt. 

A7E1 JMP (0308) ; zeigt normalerweise auf A7E4 

A7E4 JSR 0073 » nächstes Zeichen aus Basic-Text holen 

A7E7 JSR A7ED ; Statement ausführen 

A7EA JMP A7AE ; zurück zur Interpreterschleife 

In den Speicherzellen $0308 und $0309 (776 und 777 
dez) liegt ein Zeiger, der normalerweise auf den Beginn die¬ 
ser Schleife zeigt. Verbiegt man nun den Zeiger auf eine 
eigene Routine, kann man den Basic-Befehl auf das eigene 
Zeichen überprüfen. 


Wird es erkannt, springt man auf den Anfang des 
gewünschten Unterprogramms. Wurde das Zeichen nicht 
vorgefunden, macht man in der Schleife normal weiter. 

Dieses Verfahren verwende ich bei der Programmierhilfe 
»Merge« aus Ausgabe 4/84, die normalerweise mit SYS 
50000 gestartet werden muß. Es kann aber auch für andere 
Maschinenprogramme umgeschrieben werden. 

»Merge« belegt den Speicherbereich 50000 bis 50264. 
Die eigene Routine beginnt auf Adresse 49152 (C000 hex). 
Der Wert in den Adressen $0308 und $0309 muß deshalb 
auf C000 abgeändert werden. Der Computer durchläuft 
dann vor jedem Befehl, den er ausführen soll, folgende 
Schleife: 

C000 JSR 0073 i nächstes Zeichen holen 
C003 CMP 40 ; Vergleich mit ©-Zeichen 
C005 BEQ ; verzweigen wenn erkannt 
C007 JSR 0079 ; Flags setzen 
COOA JMP A7E7 ; Rücksprung 
COOD JSR 0073 ; nächstes Zeichen holen 
C010 JSR 0350 ; zur eigenen Routine 
0013 JMP A7AE i Rücksprung 

Nach dem Drücken von @ und RETURN wird nun das Pro¬ 
gramm ab Adresse 50000 (C350 Hex) ausgeführt. Auf die 
anderen Befehle hat diese Routine keinen Einfluß. Eine 
Hürde gibt es noch zu meistern. Die Änderung der Adressen 
0308 und 0309 ist auf der Basic-Ebene mit POKE nicht 
möglich. Dies ist auch verständlich, da POKE auch ein Basic- 
Befehl ist und durch die Änderung der ersten Adresse der 
Einsprung verändert wird. 

Deshalb muß diese Adreßänderung in Maschinensprache 
durchgeführt werden. 

C100 LDA 00 ; Lade Akku mit 00 
C102 STA 0308 ; Speichere Akku nach 0308 
C105 CO ; Lade Akku mit CO 

C107 STA 0309 ; Speichere Akku nach 0309 
C10A RTS ; Rückkehr nach Basic 

Basic-Lader für Befehlserweiterung 
240 FOR 1= 49152 TO 49152 + 21 
250 READ Q : POKE I, Q 
260 NEXT 

300 FOR I = 49408 TO 49408 + 10 

310 READ Q : POKE I, Q 

320 NEXT : SYS 49408 

11000 DATA 32,115,0,201,64,240,6,32,121 

12000 DATA 0,76,231,167,32,115,0,32,80 

13000 DATA 195,76,174,167 

14000 DATA 169,0,141,8,3,169,192,141,9,3,96 

Diesen Basic-Lader tippt man hinter das Programm 
»Merge« und speichert es gemeinsam ab. 

Die Zeilennummern sind so gewählt, daß man sie direkt 
zum Basic-Lader von »Merge« dazutippen kann. In Zeile 
10260 müssen aber dann die letzten fünf Nullen gelöscht 
werden. 

Mit SYS 49408 wird die Befehlserweiterung aktiviert und 
steht dann zur Benutzung bereit. 

(Patrik Fleig) 

Maschinenprogramme auf 
Diskette speichern 


Reine Maschinenprogramme haben gegenüber einem Basic- 
Lader zwei entscheidende Vorteile. Sie sind wesentlich kür¬ 
zer und können direkt, ohne zeitraubendes POKEn, geladen 
werden. Dieses Programm soll Ihnen helfen, Maschinenpro¬ 
gramme auf Diskette zu speichern. 

Ein einfacher Basic-Lader besteht aus einer READ/POKE- 
Schleife, in der DATAs in den Speicher geschrieben werden. 
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50000 

REM BASIC-LADER 

<034> 

50010 

DATA . 

<05B> 

50020 

DATA . 

<068> 

50030 

DATA . 

<078> 

50040 

» 

<231 > 

50050 

REM MASCHINENPROGRAMME AUS 

<065> 

50060 

REM DATALADERN 

<219> 

50070 

s 

<005> 

500B0 

REM S KOENNEN WEGGELASSEN WERDEN 

<056> 

50090 

: 

<025> 

50100 

REM DA = STARTADRESSE 

<249> 

50110 

REM EA = ENDADRESSE 

< 125> 

50120 

s 

<055> 

50130 

OPEN 1,8,1, "NAME" 

< 131 > 

50140 

B 

<075> 

50150 

REM SA U.EA ZUORDNEN 

<036> 

50160 

: 

<095> 

50170 

SH = INT(SA/256) :REM HIGH-BYTE 

< 166> 

50180 

SL = SA—SH*256 : REM LOW-BYTE 

<064> 

50190 

PRINT#1,CHRS*(SL)!CHR*(SH) | 

<065> 

50200 

s 

<137> 

50210 

FOR I=SA TO EA 

<249> 

50220 

READ WERT 

<064> 

50230 

PRINT#1,CHR*(WERT>5 

<079> 

50240 

NEXT I 

<029> 

50250 

: 

<1B7> 

50260 

CLOSE 1 

<232> 

© G4'«r 


Listing 7. Listing zu »Maschinenprogramme auf 

Diskette speichern« 



Jeder Wert, der in dieser Schleife gePOKEt wird, ist ein Byte 
eines Maschinenprogramms, ein Maschinenbefehl oder ein 
Teil davon. Anstatt die DATAs in den Speicher zu POKEn, 
kann ein Basic-Lader dazu benutzt werden, das Maschinen¬ 
programm auf Diskette abzuspeichern. Der Lader wird dazu 
nur etwas geändert. 

Ein Maschinenprogrammfile auf Diskette enthält, vor den 
Maschinenbefehlen, in den ersten beiden Bytes, die Start¬ 
adresse des Programms. Der Computer erkennt daran, ab 
welcher Speicherstelle er das Programm laden soll. 

Der Basic-Lader (Listing 7) muß also ein Programmfile 
eröffnen, die Startadresse des Maschinenprogramms ins File 
schreiben und anschließend alle Werte aus den DATA-Zeilen. 
Wie das im einzelnen programmiert wird, können Sie am 
Listing des Beispielprogramms sehen, das Sie ohne weiteres 
an jedes Ladeprogramm anpassen können. 

Der wichtigste Befehl in diesem Beipiel steht in Zeile 
50130: 

OPEN 1,8,1, "Programmname" 

Er öffnet eine Datei. Allerdings keine sequentielle, sondern 
eine Programmdatei. Die Sekundäradresse 1 sagt der Floppy 
1541, daß nun ein Programm (NAME.PRG) geschrieben 
wird. Häufig findet man für diesen Befehl die Syntax 
OPEN 2,8,2, "Programmname,P, W" 
bei der man die Sekundäradresse frei wählen darf. Hier muß 
jedoch nach dem Namen angegeben werden, daß eine Pro¬ 
grammdatei (P) geöffnet werden soll, in die geschrieben wird 
(Write). Entsprechend kann bei sequentiellen Dateien optio¬ 
nal »SW« bei Schreib- oder »S,R« bei Lesezugriffen angege¬ 
ben werden. 

Nachdem in Zeile 50130 die Programmdatei angelegt 
wurde, muß die Startadresse des Maschinenprogrammes 
gespeichert werden. Die Startadresse wird dazu in den Zei¬ 
len 50170 und 50180 in Low- und High-Byte zerlegt und die 
zwei Byte in Zeile 50190 in das Programmfile geschrieben. 
Jetzt wird das eigentliche Programm gespeichert. Die nume¬ 
rischen Werte müssen dazu mit der CHR$-Funktion in die 
entsprechenden Strings übersetzt werden. Um die erforderli¬ 
che Datendichte beim Schreiben des Files zu erreichen, muß 


jedem String ein Semicolon »;« folgen. Ohne Semicolon ist 
das Programm später nicht lauffähig. Sind alle Werte, die der 
Basic-Lader in den Speicher gePOKEt hätte, gespeichert, 
wird die Datei mit CLOSE geschlossen. Damit ist das Maschi¬ 
nenprogramm auf Diskette gespeichert und kann mit 
LOAD "NAME",8,1 

geladen und, wenn dies notwendig ist, mit dem entsprechen¬ 
den SYS-Befehl gestartet werden. 

Laden von Maschinenprogrammen in Basic 
Sie können Maschinenroutinen mit Hilfe von Basic- 
Programmen laden, ohne sie zu zerstören. Dabei ist zu 
beachten, daß nach dem Laden das Basic-Programm von 
neuem startet. Die Basic-Zeile 
10 LOAD "KEIN ENDE,"8,1 

bewirkt deshalb eine Endlosschleife, die immer wieder das 
Maschinenprogramm »KEIN ENDE« lädt. Da angelegte Varia¬ 
blen dabei erhalten bleiben, kann mit 
10 IF A=0 THEN A=1:L0AD "KEIN ENDE" ,8,1 
ein mehrmaliges Laden verhindert werden, da beim Neustart 
A=1 ist. 


(S. Wengler) 


Der C 64 als PET 


Wenn Sie CBM 2000, 3000 oder 4000 geschriebene Pro¬ 
gramme auf Ihrem C 64 laufen lassen wollen, müssen Sie 
umständlich PEEKs und POKEs ändern. Der »Pet-Simulator« 
nimmt Ihnen diese Arbeit ab. 

Ist das Programm (Listing 8) eingegeben und gestartet, 
werden als erstes die DATAs für das Maschinenprogramm in 
den Bereich ab Adresse 49152 gePOKEt (SU = Prüfsumme 
für r i Daten). Danach fragt das Programm nach der Zeichen¬ 
farbe. Sie werden aufgefordert, eine Zahl zwischen 0 und 15 
einzugeben. 

(0 = schwarz 1 = weiß,..., 15 = grau 3). 


1 REM ********************************* 

2 REM * PET - SIMULATOR * 

3 REM * * 

4 REM * <C> BY W. HOPF 19B4 * 

5 REM ********************************* 

6 : 

7 REM PROGRAMM VOR DEM START ABSPEICHERN 

8 I 

10 FOR 1=49152 TO 49152+91:READ A:SU=BU+A 

20 POKE I,AiNEXT 

30 IF SU<>12552 THEN END 

40 PRINT"<CLR,2D0WN>BITTE WAEHLEN SIE DIE 
ZEICHENFARBE" 

50 PRINT"{DOWN>(0-15 EINGEBEN)!{DOWN>" 

60 INPUT ZFIIF ZF>=0 AND ZFC-15 THEN POKE 
49239,ZFsPOKE 646,ZFsGOTO B0 
70 PRINT"{DOWNJNICHT ERLAUBT":FOR 1=1 TO 1 
000:NEXT:GOTO 40 

80 SYS 49152tPOKE 1,54iPRINT"{CLRIPET-SIMU 
LATOR AKTIV": NEW 

10000 DATA 160,0,132,254,169,160,133,255 
10005 DATA 177,254,145,254,200,208,249,230 
10010 DATA 255,166,255,224,192,208,241 
10015 DATA 169,5,141,0,221,141,24,208,169 
10020 DATA 128,141,136,2,133,56,169,4 
10025 DATA 133,44,169,0,141,0,4,169 
10030 DATA 63,141,37,184,169,192,141,38 
10035 DATA 184,169,193,141,24,3,96,32 
10040 DATA 235,183,24,165,21,201,128,144 
10045 DATA 18,201,132,176,14,24,105,88 
10050 DATA 133,255,165,20,133,254,169,0 
10055 DATA 234,145,254,96 

60000 l 

60010 REM LISTE DER VERWENDETEN COMMDDORE— 
STEUERZEICHEN 
60020 REM "{CLR>" = CLR 
60030 REM ”{DOWN>" = CRSR-DOWN 

Listing 8. Listing zu »Der C64 als PET« 


< 132> 
<251 > 
<052> 
<218> 

< 136> 
<238> 
<071 > 
<240> 
<231 > 

< 117> 
<064> 

<063> 

< 124> 

<0B9> 

<066> 

<208> 

< 121 > 
<103> 

< 189> 
<221 > 
<229> 
<241> 
<018> 
<211 > 
<095> 

< 177 >. 
<209> 
<037> 
<029> 

< 140> 
<245> 

< 186> 
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Bei anschließendem Starten des Maschinenprogrammes 
wird das Basic-ROM in das darunterliegende RAM gePOKEt 
(Basic-Interpreter kopieren). Anschließend wird das Bild¬ 
schirm-RAM von Adresse 1024 nach Adresse 32768 ver¬ 
legt. Basic-Speicheranfang und -ende werden dem des PET 
angepaßt. Weiterhin wird in der POKE-Routine des Basic-In- 
terpreters ein Eingriff vorgenommen, nach der der Computer 
aus dem Interpreter in eine Routine des Maschinenpro¬ 
gramms springt. Hier wird überprüft, ob das Bildschirm-RAM 
angesprochen wurde. Trifft dies zu, wird die dazugehörige 
Farb-RAM-Adresse berechnet und der vorher festgelegte 
Farbwert (Zeichenfarbe) hineingePOKEt. Um das Zurückset¬ 
zen des Bildschirmes auf das C 64-Förmat zu vermeiden 
(durch Drücken der RUN/STOP- und RESTORE-Tasten), wird 
die RESTORE-Taste durch Verändern des NMI-Vektors aus¬ 
geschaltet. Programme können aber noch mit der 
RUN/STOP-Taste unterbrochen werden. 

Nach Ablauf des Maschinenprogrammes meldet sich der 
Computer mit »PET-SIMULATOR AKTIV«. Sie können jetzt 
immer noch die Zeichenfarbe mit POKE 49239, ZF (ZF = 
Zeichenfarbe - siehe oben) ändern. Wenn Sie jetzt zum Bei¬ 
spiel POKE 32768,1 eingeben, erscheint ein »A« am linken 
oberen Bildschirmrand in der gewählten Zeichenfarbe. 
Schlußbemerkung: Bevor Sie das Programm starten, emp¬ 
fiehlt es sich, es vorher zu speichern, da sich das Programm 
selbständig löscht. 

(Wolfgang Hopf) 


Pseudo-Interrupt 


Diese Befehlserweiterung erlaubt es, ein Basic-Programm zu 
jedem beliebigen Zeitpunkt per Tastendruck durch die 
Fl-Taste unterbrechen zu lassen. Es kann dann in eine vorher 
definierte Basic-Routine gesprungen werden. Diese könnte 
zum Beispiel den noch freien Speicherplatz oder die Uhrzeit 
anzeigen. 

Das Programm (Listing 9) bitte mit dem MSE eingeben. Es 
liegt dann im Speicherbereich von 40499 bis 40768. Gela¬ 
den wird es absolut mit LOAD "PSEUDO-IRQ" ,8,1- Da das 
Programm im Bereich für die Basic-Variablen steht, muß es 
durch POKE 56,158:CLR vor Überschreiben geschützt wer¬ 
den. Nach dem Start durch »SYS 40541« stehen die neuen 
Befehle zur Verfügung: 

IF1JUMP <Zeilennummer> legt fest, in welche Zeile im 
Falle einer Unterbrechung durch die Fl-Taste gesprungen 
werden soll. Tritt der Befehl mehrmals auf, so gilt die zuletzt 
angegebene Zeilennummer. 

IJBACK bewirkt die Fortsetzung des Basic-Programms ab 
der Stelle, an der unterbrochen wurde. 

!SF1 verhindert Unterbrechungen. Dies kann zum Beispiel 
beim Aufbau einer Grafik oder bei Arbeiten mit der Disketten¬ 
station wichtig sein. 

!CF1 läßt gesperrte Unterbrechungen wieder zu. 

(Guido Schuhmacher) 


Es muß nicht immer »READY.« sein... 


Wenn Sie sich darüber ärgern, daß der C 64 nach jedem aus¬ 
geführten Befehl sein stupides »READY.« auf den Bildschirm 
schreibt, dann geben Sie doch die beiden folgenden Zeilen 
im Direktmodus ein: 

FOR 1=40960 T0 49151 : POKE I,PEEK(I) : NEXT : 

POKE 1,54 : REM Basic-Interpreter ins RAM laden 
FOR 1= 41848 T0 41853 : POKE 1,32 : NEXT : 

REM READY-Meldung überschreiben 
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39 

6 B 

77 

9eel 

8 

B5 

7b 

60 

85 

7a 

a9 

00 

Bd 

ff 

9ee9 

8 

01 

9b 

20 

79 

00 

4 c: 

e7 

a7 

c2 

9e+l 

8 

c9 

S3 

f0 

07 

c V 

43 

f 0 

lc 

34 

9e+9 

8 

4c 

0B 

af 

20 

73 

00 

c9 

46 

24 

9+01 

8 

d0 

b3 

20 

73 

00 

c9 

31 

dB 

d6 

9f 09 

8 

ac 

a9 

75 

Bd 

01 

9e 

20 

73 

05 

9+11 

8 

00 

4c 

ae 

a7 

20 

73 

00 

c9 

09 

9+19 

8 

46 

dB 

9a 

20 

73 

00 

c9 

31 

33 

9+21 

8 

d0 

93 

a9 

00 

8 d 

01 

9e 

20 

cl 

9+29 

8 

73 

00 

4c 

ae 

a7 

4a 

42 

41 

de 

9f 31 

: 

43 

cb 

a9 

2 e 

85 

22 

a9 

9+ 

d9 

9f 39 

: 

85 

23 

4c 

47 

a4 

01 

00 

a5 

e9 


Listing 9. Listing zu »Pseudo-Interrupt« 


WbV..\ Sie jetzt irgendeinen Befehl eingeben, erscheint 
kein »READY.« mehr. Natürlich können Sie aber auch einfach 
den Text ändern: 

A$="HALLO." : FOR 1=1 T0 6 : POKE 41847+1,ASC 
(MID$(A$,I,l)) : NEXT 

Nach Eingabe dieser Zeile meldet sich der Interpreter nach 
jeder Eingabe mit »Hallo.«. Sie können jeden beliebigen Text 
wählen, vorausgesetzt, er ist maximal sechs Zeichen lang. 

(Andreas Scharrer) 


Reset 


Falls Sie in einem Programm einen Reset wünschen, dann 
benutzen Sie folgenden Befehl: 

SYS 64738 

Mit folgendem kleinen Programm sorgt man von Basic aus 
dafür, daß ein Reset keinen Effekt hat: 

100 FOR 1=32770 T0 32778 
110 READ A : POKE I,A 
120 NEXT I 

130 DATA 10, 128, 195, 194, 205 
140 DATA 56, 48, 88, 0 

(Daniel Kossmann) 


Einfacher Reset-Schalter selbstgebaut 


Sehr preiswert und einfach kommt man im Selbstbau zu 
einem Reset-Schalter, wenn man sich im Elektronikfachge¬ 
schäft einen sechspoligen Diodenstecker und einen 
Miniatur-Tastschalter besorgt. Der Tastschalter wird zwi¬ 
schen die Pins 2 und 6 des Diodensteckers gelötet. Zur Pin¬ 
belegung vergleiche auch Seite 142 im C 64-Handbuch. Der 
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so präparierte Diodenstecker wird nun in den seriellen Port 
des C64 beziehungsweise VC 20 gesteckt. Falls der Port 
bereits von Floppy oder Drucker belegt ist, kann der Stecker 
natürlich auch in die freie Buchse des entsprechenden Zu¬ 
satzgerätes eingesteckt werden. Auf Knopfdruck wird nun in 
jedem Fall wieder der Einschaltzustand des Computers her¬ 
gestellt. 

Die Kosten für Stecker und Taste betragen etwa 4 Mark. 

(Henning Zipf) 


Reset-Helfer für C64 


Das Betriebssystem des C 64 enthält ab der Adresse $FD02 
ein Unterprogramm, das im Steckmodulbereich ab $8000 
nach der Zeichenfolge »CBM80« sucht. Nach dem Einschal¬ 
ten des Computers oder nach einem Reset wird dieses 
Unterprogramm jedesmal aufgerufen. Werden ab der 
Adresse $8003 die Zeichen »CBM80« gefunden, dann wird 
nicht zum Basic-Start gesprungen, sondern das Betriebssy¬ 
stem nimmt an, daß ein Modul eingesteckt ist, holt sich aus 
der Speicherzelle $8000/$8001 die Startadresse des 
Modulprogramms und verzweigt dorthin. 

Das kleine »Reset-Helfer«-Programm (Listing 10) nutzt dies 
aus, indem es die genannten Speicherstellen in geeigneter 
Weise abändert. Es schreibt die »CBM80«-Zeichenfolge ab 
$8003 in RAM und läßt die Speicherstellen $8000/$8001 
auf den Basic-Warmstart zeigen. 

Wenn man jetzt einen Reset auslöst, kommt man wie 
gewohnt aus allen »abgestürzten« Programmen heraus, ein 
vorhandenes Basic-Programm bleibt aber erhalten. 

(Henning Zipf) 


RESTORE für Unterprogramme 


Will man in ein Programm ein schon vorhandenes Unterpro¬ 
gramm einfügen, kann es beim Lesen von DATAs Schwierig¬ 
keiten geben. Oft genügt die RESTORE-Anweisung nicht. 

Wenn beide Programmteile, Hauptprogramm und Unter¬ 
programme, DATAs enthalten, muß sichergestellt werden, 
daß auch wirklich die richtigen Werte gelesen werden. Wenn 
man nicht aufpaßt, kann es passieren, daß das Unterpro¬ 
gramm DATAs aus dem Hauptprogramm liest. Wie kann man 
das verhindern? Es gibt eine umständliche Methode: Man 
kann eine kleine Basic-Erweiterung einbauen, den RESTORE 
X-Befehl. Es geht aber auch einfacher. Die Zeropage, das 


100 

REM *** RESET-HELFER *** 

< 141 > 

110 

REM 

< 172> 

120 

REM HENNING ZIPF 

<16B> 

130 

REM KIRCHSTR. 8 

<036> 

140 

REM 6086 RIEDSTADT 5 

<150> 

150 

REM TEL. (06158) 72453 

<243> 

160 

REM 

< 222 > 

170 

FOR 1=1 TO 9 

<016> 

180 

READ D 

<244> 

190 

POKE 32767+1,D 

<196> 

200 

NEXT I 

<028> 

210 

POKE 53280,14:POKE 53281,6 

< 166> 

220 

PRINT CHRi(147);CHRi(5) 

<071 > 

230 

PRINT" C 64 CHANGED RESET VEKTOR" 

<067> 

240 

PRINT 

<086 > 

250 

PRINT" 64 K RAM SYSTEM 38911 BASIC BYT 



ES FREE" 

<233> 

260 

PRINT 

< 108> 

270 

NEW 

< 154> 

280 

DATA 0,0,255,0,195,194,205,56,48 

<015> 

290 

REM ERST SAVE, DANN RUN ! 

< 160> 

Listing 10. Listing zu »Reset-Helfer für C64« 



sind die ersten 256 Bytes des Speichers, hilft uns bei der 
Lösung des Problems. Genauer gesagt, die Adressen 65/66 
und 122/123. Schlagen wir im C 64-Handbuch auf Seite 162 
nach, dann steht dort: 

65- 66 Adresse des aktuellen DATA-Elements 
122-123 Basic-Zeiger innerhalb der Subroutine 
Mit diesen Informationen läßt sich schon etwas anfangen. 
Wenn das Unterprogramm angesprungen wird, dann sollte 
der Zeiger in Speicherstelle 122/123 auf die Adresse des 
Unterprogramms im Speicher stehen. POKEt man diese 
Werte in die Zeilen 65/55 mit 


POKE 65,PEEK(122) 

POKE 66,PEEK(123), 

so wird beim nächsten READ der Wert gelesen, der hinter 
dieser Basic-Zeile mit den POKEs steht, also das erste DATA- 
Element innerhalb des Unterprogramms. Nach dem Rück¬ 
sprung aus dem Unterprogramm muß der Zeiger eventuell 
auch im Hauptprogramm wieder gestellt werden. 

In dem kurzen Demo-Listing (Listing 11) werden drei Unter¬ 
programme in zufälliger Reihenfolge aufgerufen. 

* - (Stephan Pätzold) 


RAM-Floppy 


Wer kennt das nicht: ein paar Veränderungen an einem Pro¬ 
gramm - eine Zeile rein, eine andere raus - und nichts geht 
mehr. Das lästige Neuladen des Originalprogramms von Dis¬ 
kette können Sie ab jetzt vergessen. 

Ist ein Programm mal wieder zu Tode editiert, werden Sie 
nun nicht mehr von den langen Ladezeiten der 1541 in Ihrem 


1 REM ************************ <12B> 

2 REM * DEMO * <010> 

3 REM * SUBROUTINE-RESTORE * <071> 

4 REM ************************ <131> 

5 PRINT"{CLR,6SPACE>TASTE DRUECKEN !“ <104> 

6 PRINT:PRINT <114> 

10 X=INT CRND(TI)*3)+1 <125> 

20 ON X GOSUB 1000,2000,3000 <040> 

25 POKE 65,PEEK(122):POKE 66,PEEK(123> <001> 

30 READ Al:PRINT Ai <066> 

50 DATA ” HAUPTPRG.” <146> 


100 GOTO 10 <078> 
1000 REM *** SUBROUTINE 1 *** <183> 
1005 : <042> 
1010 POKE 65.PEEK(122):POKE 66,PEEK(123> <221> 
1020 FOR 1=1 TO 4:READ A:PRINT A;:NEXT <145> 
1030 READ Ais PRINT Ai; <105> 
1040 POKE 198,0:WAIT 198,1 <116> 
1050 DATA 1,11,111,1111,"UPIC2SPACE>" <085> 
1060 RETURN <182> 
1070 s | <108> 
2000 REM *** SUBROUTINE 2 *** <164> 
2005 s <022> 
2010 POKE 65,PEEK(122):POKE 66,PEEK(123) <201> 
2020 FOR 1=1 TO 4:READ AsPRINT A;:NEXT <125> 
2030 READ Ai:PRINT Ai; <084> 
2040 POKE 198,0:WAIT 198,1 <095> 
2050 DATA 2,22,222,2222,"UP 2 " <076> 
2060 RETURN <162> 
2070 : <088> 
3000 REM *** SUBROUTINE 3 *** <145> 
3005 : <002> 
3010 POKE 65,PEEK(122):POKE 66,PEEK(123> <1B1> 
3020 FOR 1=1 TO 4:READ AsPRINT A;:NEXT <105> 
3030 READ Ai:PRINT Ai; <064> 
3040 POKE 198,0:WAIT 198,1 <075> 
3050 DATA 3,33,333,3333, "UP<2SPACE>3" <066> 
3060 RETURN <141> 
3070 : <067> 


© 3 * 


Listing 11. Demoprogramm zu »RESTORE für 
Unterprogramme« mit zwei POKEs 
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Programmierdrang gebremst. Mit »RAM-Floppy« (Listing 12) 
kann ein Programm bearbeitet werden, während man eine 
Kopie davon im RAM hat. In Sekundenschnelle kann die 
Kopie in den Basic-Speicher gebracht oder mit der Orginal- 
version vertauscht werden. Ganz einfach durch Eingabe von 
»@V« oder »@T«. Numerische Variablen bleiben dabei erhal¬ 
ten. Die »RAM-Floppy« besitzt eine Speicherkapazität von 
maximal 25 KByte. Der Speicher beginnt ab Adresse 40960. 

Ein Problem ergibt sich im Speicherbereich des Kernal- 
und Basic-ROMs. Ein POKE-Befehl schreibt ins RAM, wäh¬ 
rend die PEEK-Funktion auf das ROM zugreift. Noch kompli¬ 
zierter sieht es beim Zeichen-ROM und den I/O-Bausteinen 
aus. Wie Sie vielleicht aus unserem Grafikkurs wissen, gibt es 
in diesen Bereichen drei Speicheretagen. Der Inhalt der Zelle 
1 regelt den Zugriff des Computers auf die verschiedenen 
Speicherebenen. Werden die Bits 0 und 1 in Adresse 1 
gelöscht, sieht der Computer nur noch das RAM. Basic- und 
Kernel-ROM sind verschwunden. Löschen Sie diese Bits 
deshalb nur durch ein Maschinenspracheprogramm, wenn 
vorher Ein- und Ausgaben gesperrt wurden. Dies wird durch 
Setzen des Interruptregisters erreicht. 

Das Maschinenprogramm besteht aus drei Teilen. Im 
Bereich von 40704 bis 40768 erfolgt die Auswertung der 
Befehle von »RAM-Floppy« und der Aufruf der beiden Unter¬ 
programme, die das Tauschen oder Verschieben der Basic- 
Programme erledigen. 

Das abgedruckte Basic-Programm (Listing 12) POKEt das 
Maschinenprogramm ab Adresse 40704. Mit SYS 40704 
wird es initialisiert. 

Die »RAM-Floppy« hat eine Kapazität von 25 KByte. Das 
Programm im Basic-Speicher kann zwar 38 KByte lang sein, 
läßt sich dann allerdings nicht mehr vollständig verschieben 
oder vertauschen. Der Speicherbedarf sollte auch bei Pro¬ 
grammen mit vielen Variablen nicht außer acht gelassen wer¬ 
den. Bei langen Programmen mit vielen Variablen kann es 
durchaus Vorkommen, daß die Programme zwar getauscht, 
die Variablen allerdings nicht mehr übernommen werden kön¬ 
nen. 

(Uwe Klatt) 

Sequentielle Datei 
als Basic-Programm laden 


Es sind eine Reihe von Anwendungen denkbar, bei denen 
aus einer sequentiellen Datei auf Diskette oder Kassette ein 
lauffähiges Basic-Programm erstellt werden soll (Datenfern¬ 
übertragung, Umwandlung von Textfiles in Basic-Program- 
me). Der folgende Einzeiler machfs für den VC 20 möglich: 
OPEN 1, (Gerät), {Sekundäradresse), "(Name)" : 

POKE 812, 238 : POKE 781, 1 : SYS 65478 

Dieses Miniprogramm öffnet das File Nummer 1 als Einga¬ 
befile (anstelle der Tastatur). Außerdem wird der CLALL- 
Vektor des Betriebssystems auf ein »RTS« gesetzt, so daß 
beim Einlesen von Programmzeilen keine Files geschlossen 
werden. 

Deshalb werden nach Eingabe der obigen Befehlszeile von 
der ausgewählten Datei so lange Zeilen eingelesen und 
anschließend sofort im Direktmodus ausgeführt, bis die 
Betriebssystem-Routine CLRCHN aufgerufen wird (zum Bei¬ 
spiel durch einen Syntaxfehler in den gelesenen Zeilen oder 
durch GET #1, A$). 

Um in den normalen Eingabemodus zurückzukehren, muß 
nur »POKE 812, 239 : CLR« eingegeben werden. 

Zum Ausprobieren: Laden Sie ein beliebiges Basic- 
Programm und geben Sie danach im Direktmodus ein: 

OPEN 1,8,3, "LISTING,S,W": CMD 1 : LIST : PRINT#1 : 
CLOSE 1 


0 

REM********************************** 

<037> 

l 

REM* RAM-FLOPPY * 

<029> 

2 

REM********************************** 

<039> 

3 

REM* UWE KLATT * 

<042> 

4 

REM* BILLERBECKER STR. 27 * 

< 14B> 

5 

REM* 4939 STEINHEIM * 

<067> 

6 REM* TEL. 05233/5672 * 

<106> 

7 

REM********************************** 

<044> 

B POKE 53280,0:POKE 532B1.11 

<021 > 

9 

POKE 646,8 

<072> 

10 

PRINT"BITTE WARTEN" 

<040> 

11 

REM ***************************** 

<023> 

12 

REM *** DATAS LESEN *** 

<020> 

13 

REM ***************************** 

<025> 

14 

FOR 1=40704 TO 40768:READ AiPOKE I,A:S= 



S+A:NEXT 

<100> 

15 

IF 806567 THEN END 

< 181 > 

16 

FOR 1=40784 TO 40849:READ A:POKE I,A:S= 



S+A:NEXT 

< 143> 

17 

IF S<>14392 THEN END 

<098> 

1B 

FOR 1=40853 TO 40902:READ AlPOKE I,A:S= 



S+A:NEXT 

<169> 

19 

IF S<>20412 THEN END 

< 147> 

20 

REM ***************************** 

<032> 

21 

REM *** MENUE *** 

< 197> 

22 

REM ***************************** 

<034> 

23 

PRINT CHRX147) 

<052> 

24 

PRINT"{RVSON,40SPACE>"; 

< 194> 

25 

PRINT"{RVSON,SPACEJRAM-FLOPPY 25.5 KBYT 



Ed8SPACE>"; 

<048> 

26 

PRINT"<RVSON,40SPACE>" 

<246> 

27 

PRINT"-ev<2SPACE>VERSCHIEBT PROGRAMM I 



N C2SPACE >RAM-FLOPPY" 

<254> 

28 

PRINT"'@T-{2SPACE5VERTAUSCHT PROGRAMM M 



IT RAM-FLOPPY" 

<075> 

29 

REM ***************************** 

<041 > 

30 

REM *** MC PROGRAMM STARTEN *** 

<222> 

31 

REM ***************************** 

<043> 

32 

SYS 40704:NEW 

<211 > 

33 

REM ***************************** 

<045> 

34 

REM *** DATAS FUER 1. MC TEIL *** 

<097> 

35 

REM ***************************** 

<047> 

36 

r ' /NT A 169,159,133,56,133,52,169,0,133,55 



i x jV 9 jL 1 | 141 f 16V 


37 

DATA 159,141,9,3,96,32,115,0,240,4,201, 



64,240,3,76,231 

<m> 

38 

DATA 167,32,115,0,201,B4,240,7,201,86,2 



40,12,76,B,175,32 

<255> 

39 

DATA 115,0,32,80,159,76,174,167,32,115, 



0,32,149,159,76,174 

< 127> 

40 

DATA 167 

<008> 

41 

REM ***************************** 

<053> 

42 

REM *** DATAS FUER 2. MC TEIL *** 

<234> 

43 

REM ***************************** 

<055> 

44 

DATA 169,0,133,45,169,104,133,46,120,16 



5,1,41,252,133,1,169 

<051 > 

45 

DATA 0,133,98,133,100,141,0,160,169,160 



,133,101,169,8,133,99 

<246> 

46 

DATA 162,96,160,0,177,9B,133,102,177,10 



0,145,98,165,102,145,100 

<094> 

47 

DATA 200,208,241,230,99,230,101,202,20B 



,232,165,1,9,3,133,1 

<062> 

48 

DATA BB,96 

< 112> 

49 


<061 > 

50 

REM *** DATAS FUER 3. MC TEIL *** 

< 114> 

51 

REM ***************************** 

<063> 

52 

DATA 120,165,1 ,41 ,252, 133,1,169,0,133,9 



8,133,100,141,0,160 

<069> 

53 

DATA 169,160,133,101,169,8,133,99,162,9 



6,160,0,177,98,145,100 

< 197> 

54 

DATA 200,208,249,230,99,230,101,202,208 



,240,165,1,9,3,133,1 

< 197> 

55 

DATA 8B,96 

< 119> 

Listing 12. Listing zu »RAM-Floppy« 


Spezialeffekt 


Wenn man beim C 64 in die Speicherstelle 53270 Werte zwi¬ 
schen 0 und 15 schreibt (POKE 53270,x), kann man den 
Bildschirm um bis zu sieben Bildpunkte nach links oder 
rechts scrollen lassen. Ist x kleiner als 8, dann scrollt der Bild¬ 
schirmausschnitt um x Bildpunkte nach links, sonst um x-8 
Bildpunkte nach rechts. 
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POKE 53270,8 stellt den Normalzustand wieder her. 
Dieser Trick läßt sich gut bei Action-Spielen als optische 
Untermalung beispielsweise einer Explosion einsetzen. 

(Michael Keukert) 

Text und Grafik mischen 


Im Leserforum des 64'er-Magazins, Ausgabe 8/84, fragte 
Frank Schager nach einer Möglichkeit, mit Simons Basic ein 
Textfenster in der hochauflösenden Grafik zu erzeugen. 

Mit dem folgenden kleinen Programm wird die normale 
Tastaturabfrage mit dem Simons Basic-Befehl »TEXT« verbun¬ 
den: 

10"X = 2 : Y = 2 : REM Text-Anfang 
20 HIRES 15, 11 : REM Grafik ein 
30 GET A$ 

40 IF A$ < > " " THEN G0SUB 100 

50 GOTO 30 
60 REM 

100 X = X + 8 : REM X-Koordlnate erhöhen 
110 IF X >38 * 8 THEN X = 2:Y = Y + 8: 

REM Zellenende? Dann neue Zeile 

120 TEXT X,Y,A$,1,1,8 : REM Zeichen drucken 

130 AA$ = AA$ + A$ : REM Wort erzeugen 

140 IF AA$ = "GEHE" THEN 1000 : REM Zum Beispiel 

150 RETURN 

Veränderbar ist auch der Faktor 38 in Zeile 110, je nach¬ 
dem, welche Zeilenlänge gewünscht wird. Ebenso besteht 
die Möglichkeit, zwischen den Zeilen 130 und 150 weitere 
IF-Abfragen einzubauen. Empfehlenswert ist die besondere 
Abfrage der Tasten SPACE und RETURN. 

(Jörg Prante) 

VC 20-Grundversion simuliert 


Mit der folgenden kurzen Routine lassen sich die meisten 
Grundversions- oder +3 KByte-Programme auch mit einer 
8 KByte-Erweiterung laden und ausführen: 

POKE 648, 30 : SYS 64821 
POKE 4096, 0 : POKE 44, 16 : NEW 
Da der Bildschirmspeicher durch die kleine Routine an der 
gleichen Stelle wie in der Grundversion liegt, sind die meisten 
Grundversions-Programme direkt lauffähig. 

Automatische Zeilennumerierung 


Das lästige Durchnumerieren der Zeilen bei der Programmie¬ 
rung kann Ihnen dieses kleine Programm abnehmen. 

Die Syntax des AUTO-Befehls ist: 

—A anfangszeilennummer, Schrittweite 

Nach Eingabe dieses Befehls wird die Zeilennummer vor¬ 
gegeben und nach RETURN um »Schrittweite« erhöht. 

Um aus dem AUTO-Modus wieder herauszukommen, muß 
man nach Vorgabe einer Zeilennummer 
»—« RETURN eingeben. 

Falls man nach Vorgabe einer Zeilennummer die RETURN- 
Taste betätigt, wird die entsprechende Zeile, falls sie vorhan¬ 
den ist, gelöscht. Hiermit lassen sich auch sehr schnell Pro¬ 
grammblöcke löschen, falls man die RETURN-Taste gedrückt 
hält, die Zeilenvorgabe weiterläuft und die entsprechenden 
Zeilennummern gelöscht werden. 

»—«=CHR$(95) 

»A«=CHR$(65) 

Das Programm (Listing 13) als Basic-Lader eintippen, 
anschließend mit RUN starten. Falls »FEHLER IN DEN DATA- 


ZEILEN« erscheint, DATAs auf Tippfehler überprüfen. Falls 
»OK«, kann die Basic-Erweiterung mit SYS 49152 initialisiert 
werden. Nun hat man das Basic um den Befehl »A« erweitert. 

(Frank Siedel) 

Zwei Tips für den C64 


Die Speicherstellen 57 und 58 enthalten die Zeilennummer 
der aktuellen Basic-Zeile. Die Abfrage geschieht mit »PRINT 
PEEK(57) + 256 * PEEK(58)«. 

Mit »PRINT PEEK (1)« kann abgefragt werden, ob eine Taste 
an der Datasette gedrückt ist. Es gibt drei mögliche Werte: 
7: Taste gedrückt, 

55: keine Taste gedrückt, 

39: Taste gedrückt, aber Programmlauf unterbrochen. 

Diese Abfragen sind für die benutzerfreundliche Program¬ 
mierung von Kassettenoperationen recht nützlich. 

(Wolfgang Meyer/kn) 

Und noch ein Tip 


Der FORMULAR TOO COMPLEX-Error ist sehr unange¬ 
nehm, da sich das Programm danach oft nicht mehr listen 
läßt. Nach Eingabe von POKE 24,0 verhält sich der Computer 
aber wieder normal. (Roger Limberg) 


Tips und Tricks, die nur ein PEEK oder POKE beinhalten, 
finden Sie in der POKE-Liste. (kn) 


e G4'er 

Listing 13. 

Listing zu »Automatische Zeilennumerierung« 


REM******************************* 
REM** AUTO FUER C 64 ** 
REM** VON ** 
REM** FRANK SIEDEL ** 
REM** POSENER STR. 18 ** 
REM** 2945 SANDE ** 
REM******************************* 



1300 


PRINT CHR*(147) 

SU=0 

FOR 1=1 TO 170 
READ A 
SU=SU+A 
POKE 49151+1,A 
NEXT 

IF SU017417 THEN PRINT "FEHLER IN DE 
N DATAZEILEN"3 END 
PRINT"OK”:END 
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Kurz und 
nützlich - 
Einzeiler 

Einzeiler sind häufig sehr nützliche Utili¬ 
ties oder »Basic-Erweiterungen«. Wir stel¬ 
len Ihnen deshalb hier einige dieser Kurz¬ 
programme vor. 

W f ir wollen uns nicht nur auf’s Listing beschränken, 
sondern Ihnen auch eine Beschreibung der Varia¬ 
blen und eine kurze Erklärung des Programmlaufs 
geben. So wird es sicher einfacher, die Kniffe, die in solchen 
Einzeilern stecken, zu verstehen und auch selbst zu verwen¬ 
den. 

Zahlenkonvertierungen von 
Dezimal nach Hexadezimal 


Diese Zahlenkonvertierungen braucht man recht häufig. 
- Hex X$ nach dezimal (Listing 1) 


— Hex X$ nach dezimal X:10 
x=0: fori=ltolen(x$): 
xO = asc (mid$(x$,i,l)):x=16*x 
+ x0-48 + (x0>64)*7; next 


und - Dezimal X nach hex X$: (Listing 2) 


— Dezimal X nach hex X$:10 
x$ = ”";fori=Ito4:x0=x/16: 
x=x-int(x0)*16:x$=ehr $ 

(48+x-(x > 9)*7+x$:x= 
x0:next 


Umwandlung beliebiger Zahlensysteme 


Die folgenden beiden Einzeiler von Martin und Hartmut 
Sprave dienen zum Umwandeln von Dezimalzahlen in Zahlen 
beliebiger Basis und umgekehrt. Man kann die beiden Pro¬ 
gramme auch kombinieren und erhält so eine Umwandlungs¬ 
routine zwischen verschiedenen Zahlensystemen. Beide 
sind auch als Unterroutine in einem Programm denkbar. 

Zur Umwandlung dezimal/beliebig: 

Die Variable D enthält eine Dezimalzahl beliebiger Größe. 
In der Variablen B muß die Basis angegeben werden, die der 
umgewandelten Zahl zugrunde liegt. Das Ergebnis steht 
in $Z. 

Zum Programm: Die Dummy-Schleife (von 0 bis 0) wird 
benutzt, um später wieder mitten in die Zeile springen zu kön¬ 
nen. An jeder Stelle wird die Zahl in der Variablen D durch die 
Basis B geteilt. Dadurch wird die unterste Ziffer abgeschnit¬ 
ten. Die jeweils niederwertigste Stelle ist der ganzzahlige 
Rest dieser Division und steht in S. Dieser wird in ASCII-Code 
umgerechnet. Durch den CHR$-Befehl wird der Code zu 
einer Zeichenkette. Diese wird vorne an $Z angehängt. Die 
letzte höchstwertige Ziffer ist erreicht, wenn D<1, da die 
nächste Stelle dann 0 ist. Solange D> =1 ist, ist die Endbe¬ 
dingung noch nicht erreicht und die FOR-Schleife wird weiter 
durchlaufen (bis P+1 <=0). 


10 z$="":-farp=OtaO:d=d/b:s=(d-int(d) )*b: 
z$=chr* (55+S+7* (s<10))+z$:p=-d:next 
40 rem in 10 dez in beliebig 


Zur Umwandlung beliebig/dezimal: 


Diese Routine wandelt eine beliebig große Zahl, deren Basis 
in der Variablen B steht, in eine Dezimalzahl um. Die Zahl 
selbst muß in $Z stehen. D wird mit 0 initialisiert. Die Schlei¬ 
fenvariable S dient als Zeiger auf die einzelnen Stellen von 
$Z. Diese werden nacheinander in ASCII-Code umgewan¬ 
delt. Der Code für Null (48) wird subtrahiert und das Ergebnis 
in H zwischengespeichert. Man multipliziert die umgewan¬ 
delten Stellen (in D) mit B und erhöht sie dadurch um eine 
Potenz dieser Basis. Dann addiert man die aktuelle Stelle (H) 
dazu. Bei Darstellung durch einen Buchstaben (H > 9) ist auf¬ 
grund des ASCII-Codes noch die Subtraktion einer 7 notwen¬ 
dig. Die Schleife wird solange durchlaufen, bis die niederwer¬ 
tigste Stelle erreicht ist. 


20 d=0: i ors=ltolen(zJ):h=asc(mid$(zl,s)) 
—48:d=d*b+h+7* <h>9):next 
50 rem in 20 beliebig in dez 


Die Fakultätsfunktion 


Dieser Einzeiler von Detlev Marks berechnet Fakultäten bes¬ 
ser als ein Taschenrechner (größer als »69«), Der C 64 
best' -' standardmäßig keinen Befehl zur Berechnung der 
Fakultät. 

Die Eingabevariable ist A. B dient als Zählvariable und C als 
Rechen- und Ausgabe-Variable. 


10 rem fakultaeten 
20 : 

30 inputa:-frb=ltaa: c=c+log <b ) : next:c=c/l 
og(10):print10t(c-int(c));"e";int(c):run 
40 : 


Dividieren mit beliebig vielen 
Nachkommastellen 


Die Variable Z enthält die Zahl, die geteilt wird, die Variable D 
den Dividenden, durch den geteilt wird. In N kann die Anzahl 
der gewünschten Nachkommastellen angegeben werden. 
Die Variable E% enthält das Ergebnis ohne Rest. Es wird aus¬ 
gegeben. R enthält den Rest und in Q% steht der Quotient 
(beschränkt auf Vorkommastellen). 

Die Vorkommazahl erhält man durch Q=INT(Z/D), hier ver¬ 
einfacht durch Q%=Z/D. Q% wird ausgegeben. Dann wird 
der Rest (Z-Q% * D) berechnet. Die Schleife wird n mal durch¬ 
laufen (N=Anzahl der Nachkommastellen). 

Analog zu Q% wird E% = R* 10/D berechnet. E% wird aus¬ 
gegeben als 1. Stelle. Der neue Rest wird gebildet durch: 

R (neu) = 10* R (alt) - D*E%. 

Nun kann die Schleife durchlaufen werden, bis alle Nach¬ 
kommastellen ausgegeben wurden. 

Beispiel: Wie lautet die 85. Nachkommastelle von 116/13? 
Z=116, D=13, N=85 sind die Variablenwerte. Das Pro¬ 
gramm liefert das Ergebnis 9. 

Der Autor dieses Programms ist Heinz Bauschke. 



152 


SONDERHEFT 




















C 64 


TIPS&TRICKS 


O inputz ,d ,n: qy.=z /d: printqX: r=z—d*qV.: -f or 
i = lton: e'4=r*10/d:print ”11";eX;:r=10*r-d*e 
%:next 
10 rem 


INPUT mit Komma 


Diese INPUT-Routine von Jürgen Reinert ersetzt den INPUT- 
Befehl. Sie erlaubt Komma, Doppelpunkt und Strichpunktals 
zusätzliche Satzzeichen bei der Eingabe. Sonst funktioniert 
sie genauso wie der INPUT-Befehl. Die Routine übernimmt 
alle Zeichen der Tastatur, auch führende Leerzeichen (Leer¬ 
zeichen vor Beginn des Textes). 

Die Variable AA enthält die aktuelle Eingabe in ASCII-Code. 
II bildet die Laufvariabie für Schleifen und XX$ enthält den ein¬ 
gegebenen Text. 

Das »Herz« dieses Einzeilers ist die Eingaberoutine ab 
Adresse 42336. Diese schreibt alle 80 Zeichen einer Bild¬ 
schirmzeile in den Basic-Eingabepuffer, der bei Adresse 512 
beginnt. Dann liest das Programm Zeichen für Zeichen den 
Eingabepuffer bis zur genannten 0 und stellt daraus den 
String XX$ zusammen. 

Erfolgt keine Eingabe, das heißt, nur die RETURN-Taste 
wurde gedrückt, so wird die Routine mit XX$=CHR$(32) 
verlassen. In allen anderen Fällen enthält XX$ alle sichtbaren, 
eingegebenen Zeichen (außer Steuerzeichen). 


1 SYS 42336:XX$="":FÜR 11=512 TO 600:AA=PE 
EK{II):IF AA THEN XX$=XX$+CHR$(AA):NEXT 
10 : 

20 REM INPUT 


Formatierte Ausgabe 


Dieser Einzeiler gibt Zahlen beliebiger Länge und unabhängig 
vom Vorzeichen rechtsbündig aus. Die Tabulatorfunktion von 
Volker Walter ist sicher beim Aufbau von Tabellen nützlich. 

Die Variable A enthält die Zahl, die ausgegeben wird. Die 
Zahl »22« legt fest, daß die Kommata der ausgegebenen Zah¬ 
len in Spalte 24 stehen (2 Stellen werden vom Komma 
gebraucht). Die Spaltennummer kann im Listing beliebig 
gesetzt werden (Zahl 'm Listing = tatsächliche Spaltennum¬ 
mer - 2). 

Ist A > = 1, so wird der Zehnerlogarithmus von A berechnet 
und von der Spaltennummer abgezogen, bei der der Dezimal¬ 
punkt stehen soll. Da der C 64 nur den Logarithmus zur Basis 
e berechnen kann, muß das Ergebnis mit der Konstanten 
.43429448188 multipliziert werden. Dadurch erhält man 
den Zehnerlogarithmus. 

Diese Berechnung erfolgt durch 
INT(LOG(B-(B=0)) *.43429448188) * (B < = 1). 

Ist A<1, so wird zur Spaltennummer eine Eins addiert. 

Null bildet einen Sonderfall, da die Null noch vor dem Komma 
stehen muß. 

INT(—B) * (B < 1). 


20 b=ab5(a):printtab(int(lag(b-(b=0))*.4 
3429448188)*(b >=1)+int(-b)*(b<1)+22);a 


Mehr Struktur mit Spaces 


Der Basic-Interpreter auf dem C 64 überliest führende Leer¬ 
zeichen zwischen Zeilennummer und dem Basic-Befehl ein¬ 
fach. So ist ein Einrücken mehrerer Programmzeilen oder das 
Einfügen von Leerzeilen, wodurch das Programm wesentlich 
übersichtlicher würde, standardmäßig nicht möglich. 


In der Regel behilft man sich in solchen Fällen, indem man 
an den Zeilenanfang einen Doppelpunkt setzt, auf den dann 
die gewünschte Anzahl Leerzeilen folgt. 

Von Herbert Heise stammt eine wesentlich elegantere 
Methode: 

Der Basic-Interpreter überliest bei der Zeileneingabe Gra¬ 
fikzeichen. Diese Tatsache kann man sich zunutze machen. 
Nach der Zeilennummer wird irgendein Grafikzeichen 
(besonders einfach: SHIFT und gleichzeitig die Leertaste) 
getippt, danach die gewünschte Anzahl führender Leerzei¬ 
chen und dahinter die vorgesehenen Basic-Befehle. Auf dem 
Bildschirm ist das Grafikzeichen noch zu sehen. Aber beim 
Auflisten stellt man fest, daß das Grafikzeichen nicht in den 
Programmtext übernommen wurde. Dennoch erscheint die 
Zeile um die gewünschte Anzahl von Stellen eingerückt. 

Um ganze Leerzeilen mit dieser Methode zu erzeugen, 
schreibt man hinter die Zeilennummer ein Grafikzeichen, ein 
Space und noch ein Grafikzeichen. Nach einem RETURN 
wird nur das Leerzeichen in die Zeile übernommen. Mit LIST 
erhält man nun eine Zeile, die nur aus einem Leerzeichen 
besteht. 

In diesem Zusammenhang ist noch folgender POKE-Befehl 
interessant: 

Mit »POKE 129,58« werden Basic-Zeilen nicht mehr aus¬ 
geführt, die keine Spaces in Anführungszeichen enthalten. 
Der Interpreter meldet »7SYNTAX ERROR«. Ausschalten läßt 
sich dieser Modus wieder mit »POKE 129,322«. 

Zeilen löschen am Bildschirm 


Diese kleine Routine von Stefan Keimeier löscht bestimmte 
Zeilen auf dem Bildschirm. Dabei wird eine Maschinenroutine 
des C 64 verwendet, die diejenige Zeile vom Bildschirm 
löSciu, deren Zeilennummer im X-Register steht. Die Zeilen¬ 
nummerwird zunächst in die Speicherzelle gePOKEt, deren 
Inhalt der SYS-Befehl in das X-Register übernimmt. Dabei 
wird von 0 bis 24 gezählt. Die Position des Cursors bleibt 
davon unbeeinflußt. 

Die Variable LN enthält die Zeilennummer (0 bis 24), V gibt 
die Von-Zeile und B die Bis-Zeile an (gelöscht wird »von« 
»bis«). 

10 FQR LN=V TG B-.POKE 781,LN:SYS 59903:NEXT 

20 : 

30 REM FUSR NUR EINE ZU LOESCHENDE ZEILEGILT: 

40 : 

50 POKE 780,LN:SYS 59903 

60 : 

70 REM STEFAN KEIMEIER 


Grafikbildschirm löschen mit DIM-Befehl 


Die Variablen A und B müssen vor der DIM-Anweisung ange¬ 
legt werden: 

(A=0:B=0), da im Programmverlauf das Variablenfeld beein¬ 
flußt wird. 

Dann werden durch 

A=PEEK(49):B=PEEK(50) die Werte für das Variablen¬ 
ende gesichert. Durch das Dimensionieren einer Variablen 
wird ein entsprechend großer Platz hinter dem Variablenende 
auf Null gesetzt. 

Der Bildschirmspeicher fängt bei Adresse 8192 und geht 
bis Adresse 16191. Hinter dem bisherigen Variablenende 
(Adresse: A+B*256) wird die Variable F (auf der Adresse 
16191-a-b* 256) angelegt. Pro indizierter Variablen werden 5 
Byte freigemacht. Dabei wird die mit 0 indizierte Variable 
nicht berücksichtigt, ebenso die ersten sieben Byte für Varia¬ 
blenname und Dimension. 

Durch POKE 49,A:POKE 50,B werden die alten Werte wie¬ 
der hergestellt. F ist nun nicht mehr dimensioniert. 
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Wenn das Variablenende größer oder gleich 818§ ist, wenn 
also das Programm einschließlich Variablenfeld größer ist als 
6 Bytes, dann wird der Bildschirm nicht ganz gelöscht. 

Soll das Grafikprogramm zum Speichern von Bildern be¬ 
nutzt werden, darf man nicht vergessen, den Zeiger für Spei¬ 
chergrenzen (PEEK(55)+PEEK(56)’256) auf eine 
Adresse kurz hinter den Bildschirmspeicher zu setzen. 

Der Autor des Programms, Manfred Hedtke, schlägt vor, im 
Grafikprogramm die Zeile 10 immer dann aufzurufen, wenn 
über die Tastatur »SHIFT + CTRL HOME« (entsprechend 
»freier Bildschirm im Textmodus«) eingegeben wird. 


10 a=0: b=0: a=peek (49) : b=peek (50) : dim-f ( (1 
6191-a-b*256)/5):poke49,a:poke50,b 
20 rem 


Soft-Scrolling 


Mit diesem Einzeiler von Georg Brandt kann ein beliebiger 
Text von rechts nach links punktweise über den Bildschirm 
geschoben werden. Die Variable A mit dem Wert 53270 bil¬ 
det das Register für horizontales Smooth-Scrolling. Die Varia¬ 
ble L enthält die Anzahl der Zeichen (L=40 für die gesamte 
Bildschirmbreite, weniger für kleinere Textausschnitte), die 
gleichzeitig auf dem Bildschirm erscheinen sollen. In der 
Variablen A$ erwartet die Routine den zu zeigenden Text. Das 
letzte Zeichen sollte ein Leerzeichen sein. Das rechtsbün¬ 
dige Zeichen des Strings steht zweimal auf dem Bildschirm, 
da es nicht gelöscht wird. 

Das Programm arbeitet nach folgendem Prinzip: Der Text 
wird auf den Bildschirm ausgegeben. Dann wird der Bild¬ 
schirminhalt mit Hilfe des Smooth-Scrolling-Registers punkt¬ 
weise nach links gezogen, bis er um sieben Punkte verscho¬ 
ben ist. Nun wird der gesamte Text nach links geschoben und 
das Scroll-Register zurückgesetzt. Dadurch scheint der Text 
um den achten Punkt verschoben zu sein. 

Wichtig: 

- Vor Programmaufruf sollte der Bildschirm gelöscht werden, 
da sonst auch der restliche Bildschirminhalt verschoben 
wird. 

- Auch andere Steuerzeichen außer dem hier verwendeten 
HOME können eingesetzt werden, um den Text zu positionie¬ 
ren. 


1 FOR R=1 TO LEN(A$>:FOR 1=207 TO 200 STEP 
-1:PRINT"CHOME}"M1D$(A$,R,L):POKE A,I:NE 
XT I, R 
10 : 

20 REM SCROLL 


Scrollen in x-Richtung 


Bei diesem Einzeiler von Hans-Peter Harmann kann die 
Geschwindigkeit des Scrollers je nach Anwendung neu ein¬ 
gestellt werden. Die Verzögerungsschleife 
FOR G=0 TO 3:NEXT 

muß nur entsprechend abgeändert werden. Durch den Wert 
3 wird nur eine minimale Verzögerung erreicht. Experimentie¬ 
ren Sie ruhig mal damit, mit welchen Verzögerungswerten der 
Bildschirm wie schnell gescrollt wird. 


10 -Fort=lto7: poke53270,t: -forg=0to3: next: 
next: onagotolO: -f ory=1024to2023: pakey, 194 
:next:a=l:goto10 
20 rem 


Scrollen bei bleibendem Text 


Dieses kleine Programm stammt von Peter Eckart. Es 
bewirkt, daß nur Teile des Bildschirmes gescrollt werden. Die 
Zahl, die Sie in Speicherzelle 59639 POKEn, legt fest, wie¬ 
viele Zeilen am oberen Rand stehen bleiben. So kann man die 
Kopfzeile einer Tabelle auf dem Bildschirm festhalten oder 
eine Information, die für ein Programm wichtig ist (Tasten¬ 
belegung, Erklärung der wichtigsten Befehle oder anderes). 
Beendet wird dieses Programm durch den Befehl POKE 
1,55. 

Wenn Sie eine »0« gePOKEt haben, wird eine Zeile auf dem 
Bildschirm festgehalten. Beim POKEn einer »1« zwei Zeilen, 
beim POKEn einer »3« ... 

Obwohl diese Routine sehr kurz ist, braucht sie sehr lange 
zur Ausführung. 


1 fori=40960to49151:pakei,peek(i):next:f 
ori=57344to65535:pakei,peek(i):next:pake 
59639,10:pokel,53 


Grafik: Rahmen zweifarbig 


Der Bildrahmen des C 64 ist standardmäßig einfarbig. Von 
Markus Hillebrand stammt dieser Einzeiler, der einen zweifar¬ 
bigen Außenrahmen simuliert. 

So einfach diese Routine ist: sie verblüfft einen doch! 

Der Rahmen erscheint in schwarz (0) und weiß (1). Beim 
Abtippen der Programmzeile ist es ganz wichtig, die Anzahl 
der Doppelpunkte und der Leerstellen genau zu treffen. Zwi¬ 
schen den beiden POKEs und den Doppelpunkten stehen je 
fünf Leerzeichen. Danach folgen 17 beziehungsweise 15 
Dopp . unkte. Wichtig ist dies deshalb: Der Autor des Pro¬ 
gramms wollte die Grenze zwischen den beiden Farben mög¬ 
lichst ruhig auf dem Bildschirm haben. Dazu mußte er die 
genaue Farbwechselperiode finden. Da der Interpreter Dop¬ 
pelpunkte und Leerzeichen unterschiedlich schnell abarbei¬ 
tet, hat er die Feineinstellung mit Leerzeichen vorgenommen. 

Aber Vorsicht: Sobald während des Programmablaufs eine 
Taste gedrückt wird, fängt das Bild an zu »laufen«, weil die 
Raster-Interrupt-Tastaturabfrage in Kraft getreten ist, die den 
Zeitplan durcheinander bringt. 


10 Doke53280.1 




532RO,O . 




20 rem 





Spiralen mit dem Plotter 1520 


Dieser Einzeiler malt mit dem Plotter 1520 eine Spirale, die 
aus lauter Dreiecken besteht. Zugrunde liegt diesem Pro¬ 
gramm von Christoph von Rhein die Berechnung eines Krei¬ 
ses. Die X- und Y-Koordinaten werden mit den Funktionen 
SIN und COS errechnet. Da X und Y mit der Laufvariablen I 
multipliziert werden, kommt bei dieser Berechnung eine Spi¬ 
rale heraus. Wenn Sie das Aussehen der Grafik ändern wol¬ 
len, dann können Sie den Faktor 2 innerhalb der Sinus- und 
Cosinus-Klammern durch einen anderen Wert ersetzen. 


1 OPEN 1,6,1:PRINTttl,"M",240,0:FOR 1=1 TO 
250:PRINT#1,"S",240+SIN(1*2)*1,COS(1*2)* 
I:NEXT 


Ein grafischer Disassembler: DI-AS 


Der Speicherbereich des C 64 läßt sich in 256 Seiten ä 256 
Byte aufteilen. DI-AS interpretiert die Speicherinhalte als Bild- 
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schirmcode und stellt die 64 KByte des C 64 Seite für Seite 
auf den Zeilen 7-13 des Bildschirms dar. Die Seitennummer 
wird am oberen Bildschirmrand angezeigt. Andreas Carl, der 
Autor dieses Programms, sagt zur Bedienung des Dissas- 
semblers: 

Bevor das Progamm geladen und gestartet wird, muß mit 
»SYS64738« unbedingt ein Reset durchgeführt werden. 
Dann sollte der Bildschirm mit »CLR« gelöscht werden. Mit 
»RUN« wird das Programm gestartet. Dann stehen dem 
Benutzer die folgenden Optionen offen: 

- im Speicher vorwärts blättern 
(CURSOR-RIGHT) 

- im Speicher rückwärts blättern (CURSOR-DOWN) 

- die Seite NR betrachten (R/S POKE3,NR:CLR:RUN) 

Es stehen umfangreiche Fehlerbehandlungen zur Verfü¬ 
gung. 


5 print"3Hiab'SqS<3HP-a : "peek <3) "8« ":pok 
e41,5: geta*: poke3,peek (3) - (a*="!»J" ) + <ai=" 
£1" ) : sys 1024: goto5 


Speicherblockverschiebung 


Dieser Einzeiler von Jens Baas dient zur Übertragung von 
Speicherblöcken. Er ist zum Beispiel nützlich, wenn Sie das 
Basic oder das Betriebssystem vom ROM ins RAM verlegen 
wollen. Die Variablen mit »L« bezeichnen jeweils das Low- 
Byte der Adresse, die Variablen mit »H« das High-Byte. 

Für eine Adresse X lassen sich diese so berechnen: 
AL=X-256*INT(X/256):AH = INT(X/256). 

Die Routine benutzt die Blockverschiebe-Routine des 
ROMs. 


I pake95,al:poke96,ah:poke90,el:poke91,e 
h: pcske88,nl: poke89,nh: sys41919 

II rem beispiel: 

12 poke95,0:poke96,160: poke90,0: poke91,1 
92:poke88,0:poke89,192:sys41919 

13 rem 11 basic ins ram TT 


Merge 


Bisher gab es oft nur die eine Möglichkeit, wenn ein Pro¬ 
gramm aus zweien zusammengesetzt werden sollte: das kür¬ 
zere mußte ans Ende des längeren getippt werden. Hier ist 
eine ganz kurze Routine von Andreas Gast, die Programme 
verkettet. 


10 a=peek(45)+256*peek(46)-2:poke44,a/25 
6:poke43,a-peek(44)*256:print"prg laden 
& p043,1: p844,8 


Directory laden, 

ohne das Basic-Programm zu zerstören 


Jedem Programmierer ist das Problem, das diesem Einzeiler 
zugrunde liegt, sehr bekannt: Man hat - mit Ach und Krach 
- ein Basic-Programm geschrieben. Nun will man seine 
Arbeit speichern und erkennt seine freien Disketten nicht 
wieder. Wenn man die Disketten aber mit 
LOAD "$",8 : LIST 

listet, löscht man das neue Programm und die ganze Arbeit 
war umsonst. Reinhard Abdel-Hamid schlägt vor, die fol¬ 
gende Programmzeile vor dem eigenen Programm einzuge¬ 
ben. Mit ihr läßt sich das Directory listen. Das im Speicher lie¬ 
gende eigene Programm bleibt erhalten. 


Gestartet wird mit 
OPEN 1,8,2, "$":GOTO 0. 

Der OPEN-Befehl eröffnet eine sequentielle Datei (hier das 
Directory) zum Lesen. Mit 
GET #1,A$ 

wird ein Byte vom Disketten-Puffer geholt und das Kom¬ 
mando 

A=ASC(A$ + " SHIFT/HOME ") 

wandelt ASCII-Zeichen in Zahlen (von 0 bis 255) um. Hat A$ 
die Länge 0, so behält der Ausdruck trotzdem die Länge 1. 
Durch 

PRINT CHR$((A=130 AND 13 OR ((31 <A AND A<95) 
AND A))); 

wird das zugehörige Zeichen zu A gedruckt, wenn A einen 
Wert zwischen 32 und 95 hat. Ist A=130, so wird RETURN 
ausgegeben. Die Steuerzeichen und Grafiksymbole werden 
durch die Formel innerhalb der Charakterstring-Klammer 
»herausgefiltert«. Nur Zahlen, Buchstaben und Satzzeichen 
werden ausgedruckt. 


0 get#l,a$:a=asc(ai+'^T ):printchr*((a=13 
0andl3or((31<aanda<95> anda)));:gota0 


Die Routine kann auch für andere Zwecke angewendet 
werden. 

Es ist ohne weiteres möglich, alle Kommentare, Inhalte von 
Print-Anweisungen und Texte des auf der Diskette befindli¬ 
chen Programms auf den Bildschirm zu bringen, da man alle 
Programme auf der Diskette als sequentielle Datei lesen 
kann. 

Eröffnen Sie die Datei dafür nach dem folgenden Schema: 
OPEN 1,8,2, "filename" 

Dann v ird das Programm mit 

GOTO 0 gestartet. Wenn die Ausgabe beendet ist, wird mit 
der RUN/STOP-Taste die Endlosschleife wieder verlassen. 

Maschinenprogramme speichern 


Mit dem folgenden Einzeiler von Markus Eicher können 
Maschinenprogramme sehr einfach gespeichert werden, 
ohne den Basic-Pointer zu verstellen. Die Werte für LE und 
HE werden berechnet, indem man auf die Endadresse eine 
1 addiert. 

Le = Low-Byte der Endadresse 

He = High-Byte der Endadresse 

La = Low-Byte der Anfangsadressse 

Ha = High-Byte der Anfangsadresse 

Low- und High-Byte einer Adresse werden so berechnet: 

Adresse = dez. 2000 

Highbyte = INT(2000/256) = 78 

Lowbyte = 20000-Lowbyte* 256=32 

Die Variable A$ enthält den Namen der Datei, in die auf der 
Diskette das Maschinen-Programm abgelegt werden soll. X 
legt fest, ob das Programm auf Diskette (X=8) oder Kassette 
(X=1) gespeichert wird. 

Falls ein langer Programmname gewählt wird, müssen die 
Befehle abgekürzt werden. 


1 sys(57812)al,x:pokel93,ls:pokel94,hs:p 
okel74,le:pokel75,he:sys62957 


Beispiel 1: 

Das Programm auf den Adressen 20000 bis 22000 soll auf 
der Diskette unter dem Namen »Beispiel 1« gespeichert wer¬ 
den. Der Dateiname wird der Variablen $A zugewiesen. 

Die POKE-Befehle lauten 
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POKE193,32:POKE194,78;POKE174,241:POKE175,85 

Beispiel 2: 

Ein Programm von $C000-$C37E soll auf Kassette gespei¬ 
chert werden. Die Variable X hat also den Wert 1. 

Die Low- und High-Bytes sind: 

1. von $COOO 

Low = $00 = dez. 0 
High = $C0 = dez. 192 

2. von $C37E 

Low = $7E = dez. 126 
High = $C3 = dez. 195 
Die POKE-Befehle heißen: 

POKE193,0:POKE194,192:POKE174,127:POKE175,195 

Floppy-Zeit verkürzen 


Die kleine Routine von Robert Loos dient dazu, die Zugriffs¬ 
zeit der Floppy-Disk 1541 ganz entscheidend zu verkürzen. 
Eine sichere Funktion der Floppy wird nicht gefährdet, wenn 
der Schrittmotor, der den Schreib-Lesekopf bewegt, wesent¬ 
lich schneller arbeitet. Der Schrittmotor wird im Interrupt 
bedient. Daher genügt es, die Größe des Interruptintervalls 
zu verändern, um die Drehzahl des Motors zu beeinflussen. 
Standardmäßig wird etwa alle 15 Millisekunden (hier etwa alle 
4 Millisekunden) ein Interrupt ausgelöst, der den Stepper um 
eine Viertelspur bewegt. Alle Bewegungen des Kopfes wer¬ 
den dadurch fast viermal schneller. Vorteile sind neben der 
Zeitersparnis: 

Das Laufgeräusch wird angenehm leise und kurz, und im 
Falle einer Kopfjustage fährt der Kopf mit erheblich vermin¬ 
derter Kraft gegen den Anschlag, sodaß die Gefahr einer 
Dejustage deutlich gemindert ist. 


10 OPEN 1,8,15,"M—W"+CHR*(7)+CHR*(28)+CHR* 
<1)+CHR*(15) 

20 : 

30 REM ZUGRIFFSZEIT DER FLOPPY KUERZER 


Ein RENEW, das funktioniert! 


Noch ein Programm von Hartmut und Martin Sprave: Dieser 
Einzeiler ist im Direktmodus, also ohne Zeilennummern, ein¬ 
zugeben. Vorher dürfen keine Variablen definiert oder Basic- 
Zeilen eingetippt werden, da sonst das gelöschte, aber noch 
im Speicher befindliche Programm zerstört wird. Im Wesentli¬ 
chen besteht das RENEW-Programm auf dem Aufruf einer 
System-Routine, die die Basic-Zeilen neu bindet und das 
Ende des gelöschten Programms herausfindet. Das erste 
POKE tut so, als ob sich ein (ungelöschtes) Basic-Programm 
im Speicher befindet, weil sonst die Routine nicht arbeitet. 
Die Endadresse des Basic-Programms wird um zwei erhöht 
und in den Zeiger auf den Start der Variablen (45/46) übertra¬ 
gen. Der CTR-Befehl gleicht alle weiteren Basic-Zeiger 
diesem Befehl an. 


6 rem c-64 

7 pake2050,8:sys42291:poke46,peek<35)-<p 
eek(781)>253):poke45,peek(781)+2and255:c 
lr 


Ein einfaches Renumber 


Diese Routine von Georg Wiehert numeriert ein Basic- 
Programm, das bis zu 255 Zeilen hat, in wenigen Sekunden 
neu. Die erste Zeilennummer ist dann 0, die Schrittweite ist 
1, Sprungadressen der Befehle GOTO und GOSUB bleiben 


beim Neunumerieren unverändert. Jedes Basic-Programm 
belegt die Speicherplätze 2048 bis PEEK(45) + PEEK(46) 
*256-3. PEEK(2049)+PEEK(2050)*256 gibt an, bei wel¬ 
cher Adresse die erste Zeile aufhört. Die erste Zeilennummer 
A wird aufgrund der Adressen 2051 und 2052 folgender¬ 
maßen berechnet: 

A=PEEK(2051) + PEEK(2052)*256. 

Die zweite Zeilennummer findet man im Speicher an den 
Adressen 

PEEK(2049 + PEEK(2050)*256+2 und 
PEEK(2049) + PEEK(2050)*256 + 3. 

Die Zeilennummern befinden sich jeweils an den Adressen 
A+2 (Low Byte) und A+3 (High Byte). 

Ist das Basic-Programm, das neu numeriert wird, länger als 
255 Zeilen, dann muß der Einzeiler zum Zweizeiler abgeän¬ 
dert werden. Dann wird folgendes wichtig: Aus Platzgründen 
wird in dieser Programmversion an die Stelle A+2 der Wert 
z gePOKEt (z=0,1,2...,n-1; n-1 steht für die Anzahl der Zeilen 
des Basic-Programms, das umnumeriert werden soll, inklu¬ 
sive dem Einzeiler) und an die Stelle A+3 den Wert 0. 


1 FOR A=2049 TO PEEK(45)+PEEK(46)*256-3:PO 
KE A+2,Z:POKE A+3,0:A=PEEK(A)+PEEK(A+l)* 
25fc-1:Z=Z+1:NEXT 
10 : 

20 REM RENUMBER (GEORG WICHERT) 


Track-Zerstörer: Kopierschutz 

Diese Programmzeile von Jörg Wegmeyer produziert auf 
dem gewünschten Track der Diskette (Variable T) einen 
READ ERROR 21. Damit erreicht man einen relativ sicheren 
Kopierschutz. 



1 openl,8,15:open2,B,2,:print#l,"ul 2 
0" ; t; 0: printttl, ''ni-e"chr* (163) ehr* (253) 


Eine Zeile = kompletter Datenschutz 


Diese Routine von Volker Ritzhaupt erreicht, daß auf einer 
Diskette weder das Inhaltsverzeichnis gelistet, Programme 
gelöscht noch irgendetwas auf die Diskette geschrieben 
werden kann. Das Laden der Programme funktioniert hinge¬ 
gen ganz normal. Der Inhalt der Diskette kann nur durch For¬ 
matieren mit einer neuen ID-Nummer noch manipuliert wer¬ 
den. 

Das Directory wird nicht mehr gelistet, weil es als Basic- 
Programm geladen wird und in dem veränderten Directory 
drei Nullen am Anfang (für den Interpreter das Zeichen für 
Programmende) erscheinen. Das »Directory-Programm« 
endet also schon nach zehn Bytes. Die ersten fünf Byte stel¬ 
len den Zeilenanfang und die Zeilennummer dar. Darauf fol¬ 
gen, wie immer am Anfang eines Inhaltsverzeichnisses, ein 
Leerzeichen und ein Anführungszeichen. Um diese drei Zei¬ 
chen beim Listen verschwinden zu lassen, folgen nun drei 
chr$(20), also drei DELETEs. Dies bewirkt, daß das Directory 
beim Listen völlig verschwindet. Da nun unmittelbar die drei 
Nullen folgen, wird das Listen hier abgebrochen. Auf den 
LIST-Befehl erscheint nur die Meldung »READY«. 


1 openl,8,3,"#":open2,8,15,"b-p3,144":pr 

1 nt#l , "»'chrJ(O) ehr* (O) ehr* (O) : print#2 
,"u2:3,0,18":print#2, "i 

2 rem 

3 rem verhindert auf listen des directory 

und macht schreibschutz auf disk 

4 rem 
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Der Befehl GOTO X - 
eine Basic-Erweiterung 


Dieses Programm von Reinhard Jurk simuliert den im 
Commodore-Basic nicht vorhandenen Befehl GOTO X. 

Zu dem etwas seltsamen Aussehen der Programmzeile: In 
den Ausführungszeichen steht ein Maschinenprogramm, 
dessen Opcodes im Listing des Basic-Interpreters diese 
merkwürdigen Zeichen erzeugen. 


10 syspeek (61) +256*peek (62) +26: "?!äLitesWI II 
a=tv l»HWu»'SUHMi!!Ju Ä18. I - Sil- 1 - +_. ETI - «" 

20 rem 

30 rem goto x: 11 ~/.=zei lennummer: gotolO 
40 rem 


BITTE UNBEDINGT GENAUSO EINGEBEN !!! 

43 KLANNERAFFEN CeD 

5 GOTO20 

10 SVSPEEKC61D+256*PEEKC62D+26: "e@ee@@e@ 

20 FORA=2082TO2124:READX:S=S+X:POKEA ,X:N 
EXT:IFS<>5185THENPRINT"DATA ERROR !":END 
30 PRINT-OK." 

40 DRTR169,204,133 ,69,133,70,165,157,133 

,85,133,86,160,12,200,145,85,162,129 

50 DRTR202,200,138,145,85,172,128,163,16 

6,46.165,45,32,17,177,32,43,175,32,1 

60 DATA184,76,163,168 

READY. 

Der Einzeller als DATA-Lader 


Cx 







PC ■ 

IRQ 

NU-BDIZC AC 

XR YR SP 

• > 

E147 

EA31 

00110001 08 

08 02 F6 

" 

081A 

A9 

CC 

LDA 

«$CC 


081C 

85 

45 

STA 

$45 

- 9 

081E 

85 

46 

STA 

$46 


0820 

A5 

9D 

LDA 

$9D 

- 9 

0822 

85 

55 

STA 

$55 

* • 

0824 

85 

56 

STA 

$56 

•• .• 

0826 A0 

0C 

LDY 

«$0C 

* * 

0828 C8 


INY 


• 9 

0829 91 

55 

STA 

C$55 D, Y 

- 9 

082B A2 

81 

LDX 

*$81 

a 9 

082D CA 


DEX 


• 9 

082E C8 


INY 


• 9 

082F 8A 


TXA 


• 9 

0830 91 

55 

STA 

C$551,Y 

" 9 

0832 AC 

80 A3 

LDY 

$A380 

• 9 

0835 A6 

2E 

LDX 

$2E 

■ 9 

0837 A5 

2D 

LDA 

$2D 

• 9 

0839 20 

11 Bl 

JSR 

$B 111 

• 9 

083C 20 

2B AF 

JSR 

$AF2B 


083F 20 

01 B8 

JSR 

$B801 

. , 

0842 4C 

A3 A8 

JP1P 

$A8A3 

Die Bedeutung des DATAs im Assembler-Code 


Zur Eingabe: 

In diesem Listing ist ein Generierungsprogramm angegeben. 
Dieses wird eingegeben und gestartet. Wenn der 
Checksummer-Test positiv ausgefallen ist und man sich ver¬ 
gewissert hat, daß das Programm richtig eingegeben wurde, 
gibt man »LIST« ein, gefolgt von »NEW«. Dann fährt man mit 
dem Cursor auf Zeile 10 und drückt RETURN. Die Routine 
steht nun im Speicher. 

Zum Einbinden der Routine in eigene Programme ändert 
man die Zeilennummern entsprechend ab, weist der Varia¬ 
blen LL% den Wert der anzuspringenden Zeile zu und springt 
mit »GOTO« zu der Zeile, in der GOTO X steht. 


File-Einträge mit Sonderzeichen 


Mit dem Einzeiler von Ralf Peiler lassen sich Zusätze an File¬ 
namen im Directory anhängen. So wird zum Beispiel aus dem 
Directory-Eintrag "name" der Directory-Eintrag "name",8: 
oder "name",8,1. Doch nun der Einzeiler: 

INPUT"name "; A$: OPEN 1,8,15, "R: "+A$f " {SHIFT-SPACE) 

[C0MM0D0DRE-D]8(SHIFT-KLAMMERAFFE)= "+A$: CLOSE 1 
»SHIFT-SPACE« teilt dem DOS mit, ein Anführungszeichen zu 
setzen. 

»COMMODORE-D« ist der Code für»,«. »8« entspricht der 
normalen »8« und »SHIFT-KLAMMERAFFE« ist der Code für 
»:«. Soll »,8,1« an den Filenamen angehängt werden, so ist 
»{C0MM0D0RE-D)8{SHIFT-KLAMMERAFFE}« zu ersetzen 
durch *{COMMODORE-D)8{COMMODORE-D)«. Wie Sie 
sehen, geht das Anhängen kinderleicht. Verblüffung kann 
man auch erzeugen durch ein buntes Directory. Allerdings 
lass<=' sich nicht sämtliche Farben erzeugen. Bisher sind fol¬ 
gende Kombinationen gefunden worden: 
name [SHIFT-SPACE) [ CTRL-2) = name - weiß 
name { SHIFT-SPACE) ( CTRL-3] = name — rot 
name fSHIFT-SPACE) {CTRL-4) = name — blau 
name { SHIFT-SPACE) {CTRL-6) = name - grün 
name {SHIFT-SPACE) {CTRL) = name - clr 
name {SHIFT-SPACE) {DEL) =name — del (auchmehrmals) 
name {SHIFT-SPACE) {RVSON) = name — bis »PRG« revers 


Trick 17 mit ON ... GOTO 


Eine sehr interessante Version einer ON...GOTO-Anweisung 
stammt von Peter Zankl. 

Der Ausdruck (A$= "A") hat den Wert -1, wenn ein A ein¬ 
gegeben wurde. Sonst hat er den Wert 0. Rechnen Sie nach 
oder probieren Sie es aus! (cg) 


100 

rem tastaturab-frage mit Sprung 

200 

rem : 


300 

rem vorher: 


400 

: 


410 

geta$: i-f a$=" "then410 


420 

i-fa$="a"then2000:rem 

programmteil a 

430 

i-f a$="b"then3000: rem 

programmteil b 

440 

i-f a$="x "then end:rem 

ende 

450 

goto 410 


499 

: 


500 

rem nachher: 


600 

: 


610 

getaT:onl-(aJ="a")-2*(a$="b")-3*(a$= 

"x")goto610,2000,3000:end 

620 
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20000 Byte 
mehr 

20 KByte adressierbarer Speicher werden 
uns beim normalen Basic vom Computer 
vorenthalten. Dieser Speicherplatz ist 
jedoch nicht tot, er kann mit ein paar Tricks 
für alle möglichen Zwecke nutzbar ge¬ 
macht werden. 


steht. In Standardmodus stehen LORAM, HIRAM, CHAREN, 
Schreibleitung und Motorsteuerung auf »Ausgabe«. Nur der 
Kassettenschalter steht auf »Eingabe«. 

Die Steuerbits des Prozessorregisters erfüllen im allgemei¬ 
nen folgende Funktion: 

BIT 0 (LORAM): 

Dieses Bit steuert die Belegung des Speicherbereichs von 
$A000 Bis $BFFF. Ist Bit 0 gesetzt, so belegt der 8-KByte- 
Basic-ROM den Adreßbereich. Bringt man diese Bit auf Low, 
so verschwindet das Basic-ROM und wird durch 8 KByte 
RAM-Speicher ersetzt. 

BIT 1 (HIRAM): 

Ist dieses Bit gesetzt, hat der Prozessor im Adreßbereich 
$E000 bis $FFFF Zugriff auf das Betriebssystem (Kernel- 
ROM) des Computers. Bei Low-Pegel wird das Kernel durch 
ebenfalls 8 KByte ersetzt. 


D er C 64 besitzt zwei Arten von Speicher-Chips. Zum 
einen den RAM-Speicher (Random Access Memory), 
zum anderen den ROM-Speicher (Read Only 
Memory). Auf das RAM kann beliebig zugegriffen werden. 
Das heißt, man kann diesen Speicher beliebig beschreiben 
und lesen. Dieser Speicher dient zur Aufnahme der eigenen 
Programme. ROM heißt soviel wie Nur-Lese-Speicher. Er ent¬ 
hält ein festes Programm oder Daten (Zeichensatz etc.) und 
kann nur gelesen werden. Der ROM-Speicher behält seine 
Informationen auch nach dem Ausschalten des Computers. 
Beim Einschalten des Computers oder nach einem Reset 
verzweigt der Prozessor ins ROM (Betriebssystem) und ini¬ 
tialisiert das gesamte System. 

Der C 64 besitzt 64 KByte RAM und 20 KByte ROM. Im 
ROM sind Basic, Betriebssystem und Standardzeichensatz 
gespeichert (Bild 1). Für die Ein-/Ausgabevorrichtungen 
benötigt der C 64 nochmal 4 KByte Speicherkapazität. Ein 
8-Bit-Computer mit 16-Bit-Adreß-Bus kann aber normaler¬ 
weise nur 64 KByte (2 hoch 16 Bit) adressieren. Wo liegt 
aber der Unterschied zwischen C 64 und den anderen 8-Bit- 
Computern der 65xx-Reihe? 

Das Geheimnis liegt im 6510-Prozessor. Der Chip verfügt 
im Gegensatz zum 6502 über ein Prozessorregister. Über 
diesen Port wird gesteuert, ob RAM, ROM oder Ein-/Ausgabe 
in bestimmten Speicherbereichen aktiv sind. Hierfür benötigt 
das Register (Speicherstelle 1) allerdings nur 3 Bit. Weitere 
3 Bit steuern den Kassettenport. Die restlichen 2 Bit sind 
unbesetzt und werden einfach überlesen. Das Datenrich¬ 
tungsregister für diesen Port liegt im Speicherplatz 0. 

Die einzelnen Bits im Kontrollregister des 6510 sind wie 
folgt definiert: 


Bit 2 (CHAREN): 

Dieses Bit ist dafür verantwortlich, ob sich das 4K-Byte- 
Zeichengenerator-ROM oder das I/O-RAM im Prozessor- 
Adreßbereich von $D000 bis $DFFF befindet. Wenn Bit 2 
gesetzt ist, dann hat der Prozessor Zugriff auf folgende Ein-/ 
Ausgabe-Register: 


$D000- 

SD400- 

$D800- 

$DC00- 

SDDOO- 

SDEOO- 

SDFOO- 


$D3FF 

$D7FF 

$DBFF 

■SDCFF 

■SDDFF 

SDEFF 

$DFFF 


VIC 

SID 

Farb-RAM 

CIA1 

CIA2 

freier I/O-Port # 1 
freier I/O-Port #2 


Is* Rit 2 gelöscht, kann der Prozessor aus dem Zeichen- 
ROM lesen. In diesem Fall sind die Ein-/Ausgabe-Register 
gesperrt. Im Normalzustand ist dieses Bit gesetzt. Dieses Bit 
muß nur gelöscht werden, wenn man den Zeichensatz ins 
RAM kopieren will. Dabei darf aber das Programm nicht unter¬ 
brochen werden, da ja die CIA1 (Tastatur) abgeschaltet ist. 
Um Bit 2 von Basic aus auf Low zu setzen, muß vorher der 
Interrupt gesperrt werden, da die Interruptroutine statt des 
Timers im CIA den Charaktergenerator vorfindet und dadurch 
abstürzt. 

Das Zeichen-ROM kann wie folgt eingeschaltet werden: 

10 POKE 56334,PEEK(56334) AND 254: REM INTERRUPT 
AUS 

20 POKE l,PEEK(l) AND 251: REM ZEICHEN-ROM EIN 

30 Programm.(Kopie des Zeichensatzes etc.) 

1000 POKE 5634,PEEK(56334) OR 1: REM INTERRUPT EIN 
Ausgeschaltet wird die Sache mit folgendem Programm: 


Name 

BIT 

Funktion 

LORAM 

0 

Basic-ROM/RAM 
($A000 bis $BFFF) 

HIRAM 

1 

Betriebssystem-RAM 
($E000 bis $FFFF) 

CHAREN 

2 

I/O-Zeichen-ROM 
($D000 bis $DFFF) 


3 

Schreibleitung 


4 

Schalter 


5 

Motorsteuerung (Bit 3 bis 5 betreffen 
nur Kassettenport) 


6 

(unbesetzt) 


7 

(unbesetzt) 


Zu jedem Daten-Port gehört auch ein Datenrichtungsregi¬ 
ster. Dieses liegt für den Prozessor-Port in Speicherstelle 1. 
Der Normalwert für das Datenrichtungsregister lautet 47 
oder Binär 00101111, wobeiOfür Eingabe und 1 für Ausgabe 


10 POKE 56334,PEEK(56334) AND 254: REM INTERRUPT 
AUS 

20 POKE l,PEEK(l) OR 4 : REM I/O-RAM EIN 
30 POKE 5634,PEEK(56334) OR 1: REM INTERRUPT EIN 

Sie werden sich nun aber fragen, wie der Computer trotz 
Tastaturabfrage Zeichen am Bildschirm ausgeben kann. Dies 
geschieht mit Hilfe des sogenannten ROM-IMAGE. Weil der 
VIC-ll-Chip gleichzeitig nur auf 16 KBytezugreifen kann, muß 
der Zeichensatz immer in der jeweiligen Bank des VIC-II- 
Chips liegen. Im Standardmodus greift der VIC auf Bank 0 zu 
($0000 bis $3FFF). Das System ist so entwickelt, daß VIC-II 
davon ausgeht, daß sich der Zeichensatz im »zugriffsberech¬ 
tigten« Speicherbereich befindet. Arbeitet der VIC-II in Bank 
0, nimmt er an, der Zeichensatz befindet sich ab $1000, 
obwohl dieser in Wirklichkeit in $D000 liegt. Der Speicherbe¬ 
reich $1000 bis $1FFF ist aber trotzdem für den Anwender 
als RAM-Bereich vorhanden. Gleiches gilt für die drei ande¬ 
ren möglichen Banks des VIC-II: 
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Bank VIC-ll-Chip 

0 $0000-$3FFF 

1 $4000-$7FFF 

2 $8000-$BFFF 

3 $COOO-$FFFF 


ROM-IMAGE 

$1000-$1FFF 

$5000-$5FFF 

$9000-$9FFF 

$DOOO-$DFFF 


Wenn man nun Bit 1 und 2 löscht, müßte man theoretisch 
auf 64 KByte RAM Zugriff haben. Das probieren wir gleich 
mal aus (vorher eventuelle Programme sichern!): 


POKE l,PEEK(l) AND 252 


Jetzt stehen die 64 KByte RAM voll zur Verfügung, nur ist 
der Computer jetzt »scheintot«. Er reagiert weder auf Tasten¬ 
druck noch auf gut Zureden. Hier hilft nur noch ein Reset oder 
Ausschalten. 


Was passiert bei PEEK und POKE? 


Befindet sich der C 64 im Standardmodus (wie nach dem Ein¬ 
schalten), dann sind Basic-ROM und Kernel-ROM aktiv. Wie 
wir wissen, kann man den ROM-Speicher nicht beschreiben 
(Read Only Memory). Was passiert nun, wenn man versucht, 
in diesen Speicherbereich einen Wert zu POKEn? Der Befehl 
wird nicht einfach ignoriert, wie man das so vom VC 20 oder 
den anderen CBM-Computern kennt. Der Prozessor schiebt 
den Wert einfach in das darunterliegende, »versteckte« RAM. 
Versucht man mit PEEK (X) das Byte wieder zu lesen, stellt 
man fest, daß der Prozessor auf das ROM zugreift. 

Auf diese Weise läßt sich einfach das Basic- und Kernel- 
ROM ins RAM kopieren. Setzt man anschließend Bit 1 des 
Prozessorports auf Low, verändert sich scheinbar nichts. Der 
Prozessor greift jetzt auf das RAM zu und kann beliebig ver¬ 
ändert werden. 

Im folgenden werden zwei Programme gezeigt, um das 
Betriebssystem ins RAM zu kopieren und umzuschalten: 

10 FOR 1=40960 TO 49151: POKE I,PEEK(I) : NEXT 
20 FOR 1=57344 T0 65535: POKE I,PEEK(I) : NEXT 
30 POKE 1,53 : REM FÜR C 64 
30 POKE 1,5 : REM FÜR SX 64 


$0000 


$8000 


$ A000 


$C000 


$E000 


$FFFF 


$0000-$7FFF 

32 KByte RAM 


$8000-$9FFFF 

8 KByte RAM 

oder 

ROM-Modul (zum Beispiel EPROM-Platine) 


$A000-SBFFF 

8 KByte Basic-ROM 

oder 

8 KByte RAM 

(oder eventuell ROM-Modul) 


$C000-$CFFF 

4 KByte RAM 


$D000-$DFFF 
4 KByte Zeichensatz-ROM oder 4 KByte Ein-fAusgabe-RAM 


$E000-$FFFF 

8 KByte KERNEL-ROM 

oder 

8 KByte RAM 


oder wie in Listing 1: 


Bild 1. Die Speicheraufteilung im C 64 
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cooo 

A9 

CO 


LDA 

#*CO 
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C002 

85 

FB 
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•FB 
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C004 

A9 
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#*A0 

>r 

C006 

85 

FD 
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•FD 

>, 

C008 

20 

IE 

CO 

JSR 

•C01E 

>, 
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A9 

00 
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#*00 

>, 
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85 

FB 
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•FB 

>» 

COOF 

A9 

EO 


LDA 

#«E0 

>, 

COll 

85 

FD 
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•FD 

>» 

CO 13 

20 

IE 

CO 

JSR 

•C01E 

>, 

C016 

A9 

35 


LDA 

#*35 

>, 

C018 

85 

01 


STA 

*01 

>. 

C01A 

8D 

D6 

FD 
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•FDD6 

>, 

C01D 

60 
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AO 

00 
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#*00 

>, 
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84 

FC 


STY 

•FC 

>, 

C022 

Bl 

FC 


LDA 

C*FC),Y 

>, 

C024 

91 

FC 


STA 

(*FC),Y 

>. 

C026 

C8 



INY 


>» 

C027 

CO 

00 


CPY 

#*00 

>, 

C029 

DO 

F7 


BNE 

•C022 

>, 

C02B 

E6 

FD 
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•FD 

>, 

C02D 

A5 

FD 


LDA 

•FD 

>, 

C02F 

C5 

FB 


CMP 

•FB 

>, 

C031 

DO 

EB 


BNE 

•C01E 

> f 

C033 

60 



RTS 



Listing 1. So kopiert man das ROM ins RAM 


Hier stellen sich dem Anwender ungeahnte Möglichkeiten, 
auf die hier nicht im einzelnen eingegangen werden soll. 

20 KByte frei - 
was tun damit? 


Es gibt auch noch andere Möglichkeiten, den RAM-Bereich 
unter dem ROM zu nutzen. 

Es ist durchaus möglich, zum Beispiel ein HiRes-Grafikbild 
in diesem RAM-Bereich zu erstellen. Durch Umschalten des 
VIC-ll-Chips steht dem Anwender so sofort ein neues Grafik¬ 
bild zur Verfügung, während das frühere Bild wieder editiert 
werden kann. Eine praktische Anwendung hierfür wäre zum 
Beispiel eine Dia-Show. 

Die RAM-Bank unter dem ROM kann auch als sogenanntes 
RAM-Floppy verwendet werden. Es könnte also durchaus ein 
20 KByte langes Maschinen-Programm ohne Schwierigkei¬ 
ten im »versteckten« RAM untergebracht werden. 

Es gibt noch sehr viele Möglichkeiten, den »versteckten« 
Speicher zu nutzen. Probieren Sie es doch selbst mal. Sie 
werden erstaunt sein, wo und was ihr C 64 alles speichern 
kann. 

(C.Q. Spitzner/og) 
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C 64 


TIPS&TRICKS 


Ping-Pong 

Nach all den vielen Tips und Tricks noch 
ein zusätzliches Bonbon für Sie: Das erste 
Telespiel der Welt, gespielt auf Ihrem C64. 

T apfer haben Sie sich durch dieses Sonderheft durch¬ 
gearbeitet. Zur Entspannung bieten wir Ihnen noch ein 
kleines Spielchen an. Es ist eine Nachahmung des 
ersten Telespieles überhaupt: eine einfache Tennis-Simula¬ 
tion. Dabei übt gerade seine Einfachheit einen besonderen 
Reiz aus. Gesteuert wird das Spiel mit zwei Joysticks, für 
jeden Spieler einen. Will man alleine spielen, kann man eine 
Mauer aus reversen Leerzeichen bauen, von der der Ball 
abgelenkt wird. Man muß hierbei nur darauf achten, daß bis 
zur Spalte 29 der Ball nur nach rechts, ab der 31. Spalte der 
Ball nach links abgelenkt wird. 

»PONG64« war ein Beitrag zum Wettbewerb »Bildschirm¬ 
seite«. Deshalb erscheint das Programm im Listing extrem 
kompakt und undurchschaubar. Dennoch lassen sich ein 
paar Parameter verändern. Zum einen ist das die Geschwin¬ 
digkeit des Balles. Mit POKE 49335,V wird die Geschwindig¬ 
keit verändert. Dabei ist 18 der Standardwert. Zum anderen 
der Winkel des Balles. Ihn flacht man mit POKE 49263,2 ab 
(normaler Inhalt ist 1). Diese Änderungen sind am besten zwi¬ 
schen den Zeilen 2 bis 8 anzubringen. 

(Tek-Seng The/Ewald Mack/og) 


0 PRINT"<CLR,RVSON,YELLOW>";sFOR 1=0 TO 39 
SPRINT" “;:NEXT:V=49152s FOR J = 1 TO 7 s REA 
D A*sFOR 1=1 TO 36 <229> 

1 POKE V,10*(ASC(MID*(A*,1*2-1,1))-65)+VAL 

(MID*(A*,1*2,1))sV=V+lsNEXTsNEXT <164> 

2 V=B32s FOR I=V TO 960sPOKE I,0sNEXTsFOR I 
=0 TO 20 sPOKE V+1*3,255s NE X T s V=53248s POK 

E 2,0 <156> 

B POKE V+16,2s POKE V+4,0sPOKE V+21,7sQ=(PE 
EK <2)AND 3)aP(Q)=P<Q>+1sPRINT"CHOME,RVSO 
N>"P(2>; <193> 

9 PRINT SPC(25); P (1)sSYB 49152sB0T0 8 <243> 


50 DATA Q90301A1UBO1A3UBQ9A0O1D3U801C3U801 
C9UBQ9H201A2U8Q9D201A0UBQ2B3D2Y9A702YB <114 > 

51 DATA A7X2Q2Z0A7X2O2N1A302N4 A3Q2A4D2E0U8 
X202D9UBX202MBA302N7A3X202D2U8Q9R301A2 < 090 > 

52 DATA T201A5T2Q9F001S5T2R4A1UBR3A0W0D2W1 
T202A1UBR4A3UBR3A1W0D2W1T202A3UBU6Z5U7 < 252> 

53 DATA U8D4H9A1O1Z5U7R4A5UBR3Z0T2U8B0U2W4 
F9R6B3XBZ0T2U8ABX2W4Y7O4A3U6Z0T2O2A5UB <062> 

54 DATA R3B6UBE1A4R2Y9T2UBB5XBA4U8UBC3H4U8 

G6Q9A60IB6USUBB3U6A4UBUBA8B0Y0F4Q9A2O1 <227> 

55 DATA B6UBQ2BBO0Z5N6UBZ3U2U8Y8R3D1USU8AB 
R3D0UBY0B6U6S5T2R3B6UBX8Y9T2E1A4UBA301 <073> 

56 DATA Y9T2H611T2K604B1K604B5J6N3A2J6G9A1 
U8Y9U2W4FBR6Y-3X-2J6X2W4X0O4X6U2J6A1A1Z5 <122> 

© G4'«m- 


»Pong 64«, 

eine Nachahmung des ersten Telespiels; 
bitte mit dem Checksummer eingeben 
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